古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net

**デフォルトの名無しさん** · 2015/08/30(日) 19:25:35.12

ここは古代に使われていたVisual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、
「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。

VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。

○ 質問者の心得
　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。
　二．VBScript、インストーラーなどはこのスレでＯＫ。
　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。
　四．荒らしは相手しない。

○ 回答者の心得
　一．答えられない質問は無駄に罵倒せずスルー。無理するな。
　二．代用法を強制しない。
　三．回答する上で必須ではない情報をむやみに聞き返さない。
　四．荒らしは相手しない。
　五．VB情報募集中。
　六．回答は質問者が理解できるよう具体的に。

MSDN Online Japan ホーム
　http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6
　http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
　http://www.google.co.jp/

前スレ VBプログラマ質問スレ（Ver.6.0 まで） part64
http://peace.2ch.net/test/read.cgi/tech/1393069842/

※「まず自分で調べる」クセを身につけよう。

**デフォルトの名無しさん** · 2016/01/05(火) 17:52:56.18

Visual Basic 6.0 が扱えるスレッドについて質問させてください。
私はVB6.0で作られた業務アプリのユーザーです。
プログラミングはかじった程度ですが、訳あってこの周辺を調べています。

第4回 Background Workerで夢のマルチスレッドがついに！
ttp://www.atmarkit.co.jp/fdotnet/vb2005/vb2005_04/vb2005_04_01.html
を読むと、「VB6.0まではスレッドが使えなかった」と書いてあります。

Visual Basic .NET におけるコンポーネント作成の変更点
ttps://msdn.microsoft.com/ja-jp/library/cc437477(v=vs.71).aspx
を読むと、ActiveX に関してはスレッドが使える、旨の記載があります。

これは、「GUIコントロールに関してのみ」スレッドが使えるという解釈で良いのでしょうか？
よろしくお願いします。

**デフォルトの名無しさん** · 2016/01/05(火) 18:04:42.84

>>282
> これは、「GUIコントロールに関してのみ」スレッドが使えるという解釈で良いのでしょうか？
主語は？

あとt抜きとかやめろ

**デフォルトの名無しさん** · 2016/01/06(水) 00:20:36.17

ｔは抜いていないと思うんだが

**283** · 2016/01/06(水) 08:22:15.82

**282** · 2016/01/06(水) 08:30:51.56

操作ミス失礼。

>>283
「Visual Basic 6.0 でアプリケーションを組んだ場合、GUIコントロールでのみスレッドが扱える」
という理解で良いかどうか、ということになります。
逆に言えば、
「画面の無いコマンド（VB6.0で作れるかは分かりません）を作る場合、スレッドを使った処理を実装できない」
という理解で良いかどうか、ということになります。

**デフォルトの名無しさん** · 2016/01/06(水) 11:41:01.45

>>286
一体何が知りたくて質問してるのかしらないが、>>282で自分で答え書いてるじゃん。
「GUIコントロールでスレッドが使える」とか意味わからんし。

・VB6ではスレッドは使えない
・VB .NET以降は使える

**282** · 2016/01/06(水) 12:52:44.59

>>287
ありがとうございました。
すみません、ActiveX.exe、ActiveX.dll が良く分からなかったので「GUIコントロール」という書き方をしてしまいました。

A Thread to Visual Basic: Multi-Threading In VB5 and VB6
http://www.freevbcode.com/ShowCode.asp?ID=1287

この文献に行き着いたので時間をかけて読んでみます。

**デフォルトの名無しさん** · 2016/01/06(水) 14:04:10.34

>>288
日本語より英語の方が堪能とかじゃないなら、「VB6 ActiveX DLL」とかで検索した
日本語ページ読んだ方がいいんじゃないの？

**282** · 2016/01/06(水) 16:18:49.26

>>289
ありがとうございます。調べてみます。

**デフォルトの名無しさん** · 2016/01/06(水) 18:54:23.27

ActiveX.EXEて非同期で動くんでそ？

**デフォルトの名無しさん** · 2016/01/06(水) 21:13:44.20

VB6でスレッドとか変態的だからメンテの関係でやめたほうがいいんでない

**デフォルトの名無しさん** · 2016/01/06(水) 23:20:20.15

素人質問で申し訳ありませんが、昨今においてWin7にVB6で組んで納品、という形態は存在するのでしょうか？

**デフォルトの名無しさん** · 2016/01/07(木) 01:08:47.02

しません

**デフォルトの名無しさん** · 2016/01/07(木) 03:59:59.40

>>286
ActiveXオブジェクトはVB以外でも作成できる
VB6ではマルチスレッドはサポートされてない
(API呼び出しで無理やりやる方法もあるけど、問題になる事もある)
これが全て。GUIとか何とか関係ない

>>291
たしかに非同期で動くけど、それ別EXEだからマルチスレッドじゃなくて別プロセスじゃね

**291** · 2016/01/07(木) 08:36:17.81

>>295
やっぱそういうことですよねm(_ _)m

**282** · 2016/01/07(木) 15:30:23.13

やっと分かりました！

1. Visual Basic 6.0 で作成する「アプリケーション」ではスレッドは使えない。

2. Visual Basic 6.0 の開発環境では、「再利用可能コンポーネント」として ActiveX（≒COM）コンポーネントが作れる
　このコンポーネントではスレッドが使用可能。
　ただし、ActiveX は単独では動作できない。他から呼ばれる専用。

ということだったんですね…。
ありがとうございました。

**デフォルトの名無しさん** · 2016/01/07(木) 17:44:14.19

>>297
つか、やりたいのは「スレッドを使う」ではなくて、非同期処理をしたいんじゃないの？
だったら、スレッドは不要。

**デフォルトの名無しさん** · 2016/05/01(日) 11:17:00.72

匿名通信（Tor、i2p等）ができるファイル共有ソフトBitComet（ビットコメット）みたいな、
BitTorrentがオープンソースで開発されています

言語は何でも大丈夫だそうなので、P2P書きたい！って人居ませんか？

Covenantの作者（Lyrise）がそういう人と話したいそうなので、よろしければツイートお願いします
https://twitter.com/Lyrise_al

ちなみにオイラはCovenantの完成が待ち遠しいプログラミングできないアスペルガーｗ

The Covenant Project
概要

Covenantは、純粋P2Pのファイル共有ソフトです

目的

インターネットにおける権力による抑圧を排除することが最終的な目標です。そのためにCovenantでは、中央に依存しない、高効率で検索能力の高いファイル共有の機能をユーザーに提供します

特徴

Covenant = Bittorrent + Abstract Network + DHT + (Search = WoT + PoW)

接続は抽象化されているので、I2P, Tor, TCP, Proxy, その他を利用可能です
DHTにはKademlia + コネクションプールを使用します
UPnPによってポートを解放することができますが、Port0でも利用可能です(接続数は少なくなります)
検索リクエスト、アップロード、ダウンロードなどのすべての通信はDHT的に分散され、特定のサーバーに依存しません
、

**デフォルトの名無しさん** · 2016/05/14(土) 16:45:37.18

Dim a As Date

a = CDate("2016/5/14")
とか
a = DateSerial(2016, 5, 14)
で日付のみ入った状態に、後から時刻を設定するにはどうしたらいいでしょうか

DateAdd("s", h*3600 + m*60 + s, a)
だと、時刻を文字列に持っていた場合はちょっと面倒

**デフォルトの名無しさん** · 2016/05/14(土) 20:44:36.47

>>300
こんなのでいいんだろうか
a = CDate(Format(a, "yyyy/mm/dd") & " 16:45:37")

**デフォルトの名無しさん** · 2016/05/15(日) 00:17:47.00

>>301
ありがとうございます
こんなのでいけてしまいました
Dim a As Date
a = CDate("2016/1/2")
a = a & " 12:34:56"

**デフォルトの名無しさん** · 2016/05/19(木) 17:45:06.50

Windows10 64bitで昔作ったソフトを動かしてみたところ
入力系コントロール→他コントロール (テキストボックス→その他)のフォーカス移動がものすごく遅いことに気付いたんですが
原因わかりますか？

テキストボックAに「123」と入力、入力直後にテキストボックBをクリックしても1～2秒フォーカスが移動しない。
グリッドでも同様(同一グリッド内の別セルや別グリッド)

**デフォルトの名無しさん** · 2016/05/19(木) 18:53:48.78

vb.netを使わない理由は？

**デフォルトの名無しさん** · 2016/05/20(金) 07:45:18.75

>>304
パソコンだけリプレースなので。

**デフォルトの名無しさん** · 2016/05/21(土) 14:20:22.27

VBさん25歳の誕生日おめでとう
https://blogs.msdn.microsoft.com/dotnet/2016/05/20/happy-25th-birthday-vb/

**デフォルトの名無しさん** · 2016/06/07(火) 22:57:53.12

VBももうそんな歳かぁ

**sage** · 2016/06/07(火) 23:24:32.13

https://www.youtube.com/watch?v=SDaMdk0VWV4

**デフォルトの名無しさん** · 2016/06/30(木) 09:57:06.03

>>303
当方ではそんな現象でないですけど

**デフォルトの名無しさん** · 2016/09/07(水) 04:03:07.30

ドラッグ＆ドロップして、パスなしのファイル名だけ取得するにはどうしたらよい？
↓だとフルパスで取得してしまう

Private Sub TextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragEnter

'ドラッグされている内容が文字列型に変換可能な場合
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
'コピーを許可するようにドラッグ元に通知する
e.Effect = DragDropEffects.Copy
End If

End Sub

Private Sub TextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox1.DragDrop

'ドロップされた内容を表示する
TextBox1.Text = e.Data.GetData(DataFormats.FileDrop)(0)

End Sub

**デフォルトの名無しさん** · 2016/09/07(水) 05:33:42.80

>>310

フルパスからファイル名抜き出すってのじゃいかんの？

**デフォルトの名無しさん** · 2016/09/07(水) 05:46:01.84

円マークで分割して最後を取得みたいに？
最悪それでもいいんだけどVBさんならちょっとしたオプションで出来るかなと思って

**デフォルトの名無しさん** · 2016/09/07(水) 07:01:23.61

>>311
探しても見つからなかったから分割してやった。レスありがとう

**デフォルトの名無しさん** · 2016/09/17(土) 08:55:04.29

fso.GetFileName(フルパス)

**デフォルトの名無しさん** · 2016/10/05(水) 18:51:53.10

プログラム保存し忘れたんだけど復活させる方法ありますか？
ソースファイル単位では保存してます

**デフォルトの名無しさん** · 2016/10/05(水) 21:44:36.40

ありますん

**デフォルトの名無しさん** · 2016/10/13(木) 17:49:35.76

>>295
マルチスレッドと別プロセスって実際どんだけ違うものなのかな？

**デフォルトの名無しさん** · 2016/10/13(木) 20:57:13.55

>>317
プロセスが別＝メモリ空間が別，別プロセスになると切り替えにコストが多く発生する

**デフォルトの名無しさん** · 2016/10/16(日) 17:22:47.11

プロセス単位だとリソースをいくらリークさせても終わった時点でOSが面倒見てくれる
スレッドは自分で管理しないとプロセスが生きてる限りリークし放題
Excel VBAでしょーもない再起動が必要になったりするのはそれが原因

**デフォルトの名無しさん** · 2016/10/18(火) 09:13:44.98

PNGを表示するのに明熊さんのTransG32.dllを使ってる人いる？
4000ピクセル四方程度のPNGは開けたりクラッシュしたり
どういう条件だとクラッシュするのか、
PNGの幅ｘ高さの値と関係するのか調べても境界がはっきりしない
じゃあファイルのバイトサイズかなぁとログをとって気長に調べているのだけど
何か知ってる人はいますか

**デフォルトの名無しさん** · 2016/10/18(火) 09:19:02.67

ああそうだ、開けるPNGファイルを
メモリの少ないPCでも開けるかやってみればいいか

**デフォルトの名無しさん** · 2016/10/18(火) 21:27:37.76

すいません、
VB6の頃のopen文だっけ？に比べてVB.netやC#のファイル操作は遅くて
別のものを使うとVB6より速くなるみたいな
そんな記事をかなり昔みた記憶をふと思い出してググってみたのですが、その記事が見つかりませんでした。

どなたかこれの内容って覚えていませんか？

**デフォルトの名無しさん** · 2016/11/21(月) 20:14:13.91

誘導されてきました。
質問させてください。以下の現象が解決できず悩んでいます。
何か思い当たる解決方法をご存知の方がいれば、情報提供をお願いします。

■開発言語： VB6.0(SP6だったと思う)
■プラットフォーム： Windows10(64bit)
■互換モード： Windows2000
■現象：「CommonDialog.ShowOpen」時にエラーが発生
■エラー内容：
Microsoft Visual C++ Runtime Library
Runtime Error!
Program:xxxx\xxxx.exe
abnormal program termination

Windows8.1(64bit)では問題なく動作します。
互換モードをWindows2000以外にした場合、Windows10(64bit)でも問題なく動作します。
コモンダイアログはファイルを開く目的で実装しており、エラーが発生してもダイアログ自体は表示されます。
エラーを無視すればファイルの選択を行うことも可能で後続の処理も問題なく動作します。

以下のことは試したのですが、効果がありませんでした。
・「VB6Runtime」の最新化
・正常に動作する環境(Win8.1等)の「COMDLG32.OCX」を適用
・「VC++Runtime 2005～2015」のインストール

以上、よろしくお願いします。

**デフォルトの名無しさん** · 2016/11/22(火) 08:25:59.61

Win2000互換に拘る理由

**デフォルトの名無しさん** · 2016/11/23(水) 03:56:20.37

>>324
件のプロセスをキックする親プロセスがいるのですが、
親プロセスがWindows2000互換で動作しているため、引きずられてWindows2000互換で動作してしまいます。

親プロセスの互換モードを変えれば、エラーは発生しないのですが、この親プロセスからは
他に300近いプロセスをキックしているため、変更した互換モードで他のプロセスの動作検証を行う必要が出てきます。

それは避けたいため、Windows2000互換のままでも解決できる方法を探している状況です。

**デフォルトの名無しさん** · 2016/12/05(月) 03:32:50.56

子プロセスの互換モードって絶対親と同じじゃないとダメなんだっけ？
互換性データベースとかいじれば何とかならんのかな

**デフォルトの名無しさん** · 2016/12/10(土) 19:10:41.50

>>323
本件については、質問してから時間が経ってしまったこともあり
工期の問題もあったため、2003SV互換ですべて検証し直しました。

Win7(64bit)なんかではWScript.Runで呼び出すことで子プロセスに設定された互換モードで動かせていたみたいです。
Win10ではそれも効かなくなっているみたいですが。

>>326
色々調べた中で互換性データベースについては初めて目にしました。調べてみます。

**デフォルトの名無しさん** · 2016/12/17(土) 08:36:14.70

整数型はLongを扱うプロパティが大部分なのとループも4バイト整数が効率的なはずなのに、
他人の書いたコードは大部分がIntegerです。この型を選ぶ理由を教えてください。

**デフォルトの名無しさん** · 2016/12/17(土) 16:05:02.16

>>328
強いて言うなら、範囲制限。

**デフォルトの名無しさん** · 2016/12/19(月) 00:51:52.04

>>328
大昔のBASICにlong型がなかったから
当時の人材が今でも活躍してるんで。

**デフォルトの名無しさん** · 2016/12/26(月) 08:04:16.12

コモンダイアログは使っちゃだめだよね
将来的に使えなくなる可能性があるからAPIで書いておかないと
という話の「将来」が今田

**デフォルトの名無しさん** · 2016/12/26(月) 21:50:52.20

将来的にVBは産廃になるから移行しやすいようにレイヤー分割しとけよ
という話が教会に異端認定されて迫害されたから今苦労してるんだよね

**デフォルトの名無しさん** · 2017/01/29(日) 11:01:58.46

質問させてください。
VB初心者です。（普段はもっと古代言語を使用しています）

環境：windows7,office2010,vb6,activereports2.0j

VBのフォームにOLEを配置してEXCELを表示し、
ボタンを押すと、doverbメソッドが実行されてそのEXCELを編集出来るというプログラムがあります。
開発環境では問題無く動いたのですが、
実行環境で編集ボタンを押すと、押した時にはEXCELがアクティブになるのですが、
すぐにフォームのほうがアクティブになってしまい、EXCELを編集出来ません。
何度EXCELのほうにマウスを当てても戻ってしまいます。
環境かな？と思うのですが、何が原因なのか検討もつきません。
どなたか、何か思いつくことがあれば教えていただけないでしょうか？
よろしくお願いします。

**333** · 2017/01/29(日) 11:36:27.70

timerイベントで以下の処理を行っているのが原因でした。
If Me.Enabled = True Then
Me.SetFocus
End If
根本的な原因では無さそうな気がしますが、
特に問題もないようなのでこの処理を削除しました。

**デフォルトの名無しさん** · 2017/05/02(火) 07:16:38.64

それはよかたですね

**デフォルトの名無しさん** · 2017/05/06(土) 09:27:02.42

XPか7以降だったか
プロセスやスレッド間をまたがるフォーカス移動の挙動は仕様が変わってるから
SetFocusだけでは意図通り動かないと思う
説明がめんどくさいので解決したならいいけど

**デフォルトの名無しさん** · 2017/12/16(土) 16:36:17.31

まだVB.NETスレとパート数20くらい差があるのはすごい

**デフォルトの名無しさん** · 2017/12/16(土) 17:55:08.07

まだまだ使えう

**デフォルトの名無しさん** · 2018/01/05(金) 03:37:42.39

VBで困ったときにネット検索しても余り出てこなくなったんだよ

**デフォルトの名無しさん** · 2018/01/05(金) 09:30:37.13

パーツをペタペタ貼れるVB系は6.0しかないの？
．netでもそれさえあれば移行するのに。

**デフォルトの名無しさん** · 2018/01/05(金) 09:51:10.00

Win7で普通に組めるのは良いが配置したコントロール類を一括ドラッグ、位置調整するのが辛いな

**デフォルトの名無しさん** · 2018/01/06(土) 02:12:50.09

>>340
.netでも、ふつうにパーツペタペタ出来る

**デフォルトの名無しさん** · 2018/01/09(火) 11:31:51.61

>>342
マジで？
そういうツールが売ってるの？

**デフォルトの名無しさん** · 2018/01/09(火) 12:37:56.63

>>343
パーツがボタンやラベルのことならば標準機能で貼れる
お試し版あるからダウンロードして試したらヨカ

**デフォルトの名無しさん** · 2018/01/09(火) 14:04:33.78

Microsoft Team Explorer for Visual Studio 2013のMicrosoft Visual Basic 2013を使ってみたのですけど、コントロールを貼り付けられるようには出来てないような？
VB6でいうところのオブジェクトを表示する事が出来ませんよね？

**デフォルトの名無しさん** · 2018/01/09(火) 19:47:32.39

>>345
１回死んでから出直すといい

**デフォルトの名無しさん** · 2018/01/10(水) 18:40:35.20

新規プロジェクトで
Windowsフォームアプリケーション選び
form1.vb選択して、右クリック
ビューデザイナー開いておいて
左側のツールボックス開いたらコントロール群あるから
選んで貼り付け

**デフォルトの名無しさん** · 2018/01/10(水) 23:20:26.41

ファイルリストボックスって
なまじっか英数字のファイル名だとソートしてるから、そのまま使えると思ってたら
漢字は中途半端なソートするね

**デフォルトの名無しさん** · 2018/01/10(水) 23:35:31.99

もう今年で20年だろw
まだ使ってる人いるのかw
いい加減成仏させてやれよw

**デフォルトの名無しさん** · 2018/01/11(木) 10:07:22.27

>>347
おぉぉ出来ました、ありがとうございます、ありがとうございます。

**デフォルトの名無しさん** · 2018/01/11(木) 10:09:51.44

>>346
色々あってよく分からなかったのですが、もしかしてこれは.netでは無いとか？

**デフォルトの名無しさん** · 2018/01/11(木) 12:27:34.62

>>351
2013のvb.net
2015と2017もある

**デフォルトの名無しさん** · 2018/01/11(木) 16:08:37.54

>>351
だからお前のような馬鹿は1回死んで出直せ

**デフォルトの名無しさん** · 2018/01/11(木) 18:35:50.09

何イライラしてんの？生理？

**デフォルトの名無しさん** · 2018/01/11(木) 21:47:30.73

馬鹿が嫌いなだけ

**デフォルトの名無しさん** · 2018/01/12(金) 12:25:09.01

そうか、でも自分の事は嫌いになるなよ

**デフォルトの名無しさん** · 2018/01/13(土) 01:01:21.10

馬鹿に馬鹿と指摘すると、悔しがってこうやって別IDで食って掛かってくるから楽しい

**デフォルトの名無しさん** · 2018/01/13(土) 07:18:55.84

自称「馬鹿に馬鹿と指摘する」馬鹿さん、馬鹿にされて楽しそう。

**デフォルトの名無しさん** · 2018/01/15(月) 10:17:42.59

>>350-351ｄすが、自分のせいで荒れてしまってすいません。

**デフォルトの名無しさん** · 2018/01/15(月) 12:37:59.35

気にすんな

**デフォルトの名無しさん** · 2018/01/15(月) 12:48:58.31

俺は気にした方がいいと思うよw
さすがにこのやり取りは質問者が叩かれて当たり前。

これが2002年ならわかる。2018年にもなってこれはない。
さすがに釣りだとと思ったらどうやら大真面目らしいのも何とも

**デフォルトの名無しさん** · 2018/01/15(月) 13:46:09.53

本当は質問があって嬉しかったくせに

**デフォルトの名無しさん** · 2018/01/15(月) 15:33:41.73

好きな子にいじわるしたくなっちゃう小学生男子の気持ち？

**デフォルトの名無しさん** · 2018/01/15(月) 16:30:38.76

こんなこともわからない馬鹿が開発なんかするなと

**デフォルトの名無しさん** · 2018/01/15(月) 20:19:15.56

知らん事は馬鹿ではない
知らん事を馬鹿だと思っている事が馬鹿なのだ

**デフォルトの名無しさん** · 2018/01/15(月) 20:29:16.79

村本？

**デフォルトの名無しさん** · 2018/01/15(月) 20:36:20.49

>>365
いじってみてもどうなっているか理解できないから馬鹿だろうが。そもそも製品の構成すら理解しとらん馬鹿だし。

**デフォルトの名無しさん** · 2018/01/15(月) 20:48:05.73

>>367
そんな事よりもボクはキミ自身が馬鹿なのだよという話をしているのだけれども

**デフォルトの名無しさん** · 2018/01/15(月) 21:26:47.29

知らないことと自分の力で理解できないことを一緒にして他人を煽ることしかできない馬鹿
↓
ID:3WbICYQr

**デフォルトの名無しさん** · 2018/01/16(火) 16:19:30.22

開発中に気が触れてしまう人もいるので、そっとしておきましょう
ここでは、開発が本業でなく、例えば八百屋さんがプログラムをいじってるなんて場合もあるのだから
自分の狭い専門分野で人を見下すのはバカ丸出しなんだよね

**デフォルトの名無しさん** · 2018/01/16(火) 19:32:19.61

>>370
八百屋ナメんなよコラ。お前市場行ってセリで買えるか？セリにsnipetなんかねえんだよ。
全部キロ単位の値段設定だぜ？即座に頭で歩留まり計算しておかないと儲け出ねえんだぜ？
八百屋、魚屋のような生モノ扱う仕事は常にtry-catch-finaryでロスが出ねえように考えて仕入れ販売
しないとあっさり赤字こくんだよ。
コード屋はそりゃ大変だろうが、楽な仕事なんかねえんだよ

**デフォルトの名無しさん** · 2018/01/17(水) 01:08:40.33

>>370
青果市場のセリで、キャベツを指差しして｢これは白菜ですね！｣とか大声で叫んでみろよ。
お前のようなゆとりの馬鹿が社会をダメにする。

**デフォルトの名無しさん** · 2018/01/17(水) 12:24:06.42

気がふれた自覚があるのこの人？

**デフォルトの名無しさん** · 2018/02/03(土) 08:34:10.13

Integerが2バイトしかないなんてヒドイ

**デフォルトの名無しさん** · 2018/02/03(土) 09:01:48.21

VB6では任意に例外を投げることはできないのでしょうか

**デフォルトの名無しさん** · 2018/02/16(金) 05:57:15.07

☆ 日本の、改憲を行いましょう。現在、衆議員と参議院の
両院で、改憲議員が３分の２を超えております。
『憲法改正国民投票法』、でググってみてください。国会の発議は
すでに可能です。平和は勝ち取るものです。お願い致します。☆☆

**デフォルトの名無しさん** · 2018/02/26(月) 06:40:53.98

Private Sub Form_Load()
　　Text1 = "106.456"
　　Command1.Caption = "▲"
End Sub
となっています

１ドルなん円という数字が入っていて
小数２位以下はいらないので▲ボタンを押すごとに
106.456→106.500→106.600→106.700・・・
となるように
Private Sub Command1_Click()
Dim v&
　　v& = Int(Val(Text1) * 10) + 1
　　Text1 = Format(v& / 10, "0.000")
End Sub
２行のプログラムをつくりましたが、あら不思議、これは動きません
Ｉｎｔが悪さをしている、Ｉｎｔはいらないと分かったのですが
なぜＩｎｔが悪さをするのでしょうか

**デフォルトの名無しさん** · 2018/02/26(月) 08:10:45.22

整数型に変換するから

**デフォルトの名無しさん** · 2018/02/26(月) 11:36:26.78

整数型に変換してるんですけど
ＩＮＴの外にある「＋１」が無効になる感じです

**デフォルトの名無しさん** · 2018/02/26(月) 12:40:59.80

v& = Clng(Val(Text1) * 10) + 1

**デフォルトの名無しさん** · 2018/02/26(月) 13:21:07.72

Dim v&
この瞬間見る気が失せた

v& = Int(Val(Text1) * 10) + 1
　　　　↓
v& = CInt(Val(Text1) * 10) + 1

**デフォルトの名無しさん** · 2018/02/26(月) 19:01:29.09

お二方のは、最初の１回だけ動いて、
以降は動かなくなりましたよ
しかしCsngやValだと
106.456→106.500→106.600→106.700・・・
としたいところ
106.456→106.600→106.700・・・
になってしまうけど、まぁ動きました
お手間をとらせました、有難うございました