トップページ⇒tech
993コメント374KB

VB初心者質問スレ Part4

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさんNGNG
VB初心者質問スレPart3
http://pc.2ch.net/test/read.cgi/tech/1000523122/
0331ヒッキー＠プログラミングNGNG
>>330
Dir関数を使われてはどうでしょう？
0332なつかしいね〜NGNG
>>322
私もVB6.0PROを買いたかったんだけど
アカデミックと通常版の値段を見て買う気
をなくした。
別に金が無かったわけじゃないけど、ムカツイテ
Delphi6.0PROを買ったよ。
0333デフォルトの名無しさんNGNG
学生なのでVS6.0Proを買っちゃいましたー(^o^)
あと7000円ほど出せばEntも買えましたけど。
0334デフォルトの名無しさんNGNG
ろくでもない学生なんぞのためにソフトを安くするな。
0335デフォルトの名無しさんNGNG
>>334

安くしているんじゃなくて、それがコスト+儲けなんだよ。
商用利用に使えるやつ(通常版)は、そのソフトを使って儲けるわけだから高いんだよ。
0336ひどいよマイクロソフトNGNG
あの価格差は余りにも異常、、、、
0337335NGNG
学生以外も使える商用利用不可のバージョンも出せばいいのに＞マイクロソフト
0338デフォルトの名無しさんNGNG
爺なんか、すぐ死ぬだろ！
ガキを洗脳するのが重要なんだよ。
将来の大事な金づるだ。
0339ひどいよマクロメディアNGNG
しかし、Flash5の差の小ささも許せないね、、、、
0340デフォルトの名無しさんNGNG
知り合いの中学生か高校生、大学生に頼めばいいじゃんよ。
0341箱入り娘作成中NGNG
328,329
ほとんど同じ内容でカキコしてしまった。
スマソ
0342ひどいよマイクロソフトNGNG
それが、いないのよ知り合いに学生が、、、
0343デフォルトの名無しさんNGNG
アカデミックは、教育のために金のない学生に安く･･･
なんてMSがやるわけないだろｺﾞﾙｧ
金がある奴からは搾り取る
ガキはどうせ払えないんだから、他社より安くして洗脳する
そのうちアカデミックフリーとかやりだすかもな
0344VB使いNGNG
>>324
今日は休みなんでサンプル作ってみた。
フォームにコマンドボタン貼り付けて
フォームにこのコードを貼り付けること。

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, _
ByVal DX As Long, ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_ABSOLUTE = &H8000
Private Const MOUSEEVENTF_MOVE = &H1

Private Sub Command1_Click()
Dim x&, y&
x = 1200: y = 300 '移動したい座標

mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, _
x * (65535 / (Screen.Width / Screen.TwipsPerPixelX)), _
y * (65535 / (Screen.Height / Screen.TwipsPerPixelY)), 0, 0

End Sub

もしかしたらもう解決済みか？(w
昨日の話だしなあ。
0345>NGNG
.NETっていつでるんですか．
0346VB使いNGNG
>>345
知らん。
0347　NGNG
VBでゲームを作ろうと思ってるんですが
2つのキャラクターとかがぶつかったときの
あたり判定とかってどうやって設定したらいいんですか？
0348デフォルトの名無しさんNGNG
>>345
http://www.microsoft.com/japan/developer/vstudio/
毎日チェックせれ。
0349３１４NGNG
＞箱入り娘作成中さん
自前ドラッグのサンプル。フォームにイメージを１個貼って実行。
右方向に１コマ分しか動かせないという条件です。

Dim DragX As Single, DragY As Single
Dim OrgX As Single, OrgY As Single
Dim MoveFlag As Boolean

Private Sub Form_Load()
　　Image1.Appearance = 0 '' フラット
　　Image1.BorderStyle = 1 '' 実線
　　OrgX = Image1.Left: OrgY = Image1.Top
　　MoveFlag = False
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　MoveFlag = True '' ドラッグ開始
　　DragX = X: DragY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　Dim NowX As Single
　　If MoveFlag = True Then '' ドラッグ中？
　　　　NowX = Image1.Left + X - DragX
　　　　If NowX >= OrgX And NowX < OrgX + Image1.Width Then '' 範囲内？
　　　　　　Image1.Move NowX, OrgY
　　　　End If
　　End If
End Sub

Private Sub Image1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
　　MoveFlag = False '' ドラッグ終了
End Sub
0350VB使いNGNG
>>347
基本は矩形（四角形）処理。
APIにもそれ用の関数がある。

つまり、矩形１と矩形２とを比べて、
重なっていたらヒット。
重なってなかったらはずれ。ってな感じで。

キャラごとに矩形をいくつか設定すると
複雑なキャラでも結構それなりに使える。

格闘ゲーム系も同じやり方でやってる。はず。(w
0351デフォルトの名無しさんNGNG
うちのVB6のTreeViewオブジェクトのデザイン時プロパティの
HotTrackingプロパティの説明に
「ﾏｳｽすﾌﾟﾛﾊﾟﾃｨ・・・」と書かれているんですけど、これが普通ですか？
Microsoftに言ったら何かもらえますか。
0352VB使いNGNG
>>351
ホントだな。初めて知ったよ。
地図は間違いがあったら図書券もらえるらしいけどな。
0353デフォルトの名無しさんNGNG
vbでのネイティブコードコンパイルなんですが
コンパイルする度に.obj生成してlinkしてcleanしてるような気がする
C2.exeとLink.exeの引数解ればnmake.exeで
コンパイルする事は可能ですかね？
教えてちょ
0354>345NGNG
ああ，どうも．確か今年中に出るって言ってたような気がするんだが・・．Windows XPみたいに誰でも使うものではないから話題になってないだけかと思ったが，どうも本当に出る気配はなさそうだな．
0355デフォルトの名無しさんNGNG
VB勉強してます。
データへのアクセスというところででてきた、フレキシブルグリッドというコンポーネント
が使用できなくて困ってます。
プロフェッショナルをインストールしてあるのに、
フレキシブルグリッドを使用するためのライセンスがありませんといわれます。
なぜ？？
0356３１４NGNG
＞箱入りさん
２時間ぐらいで、例のJavaアプレットをVBに移植しました。遊べます。
コマはまだ色の四角形ですが、GIF画像ファイルを入手すれば
即置き換えられます。

マウス座標の取得がFormと別々になるので、Imageコントロールは使わず、
Formだけにして、非表示のPictureBoxからPaintPictureします。

Java固有のスレッドやイベントの制御コード部分は無視してかまいません。

ほか
　１．あのままではマウス移動の判定が鈍いので、改良。
　２．手数を表示。←これは必須
0357箱入り娘作成中NGNG
>>356
ん？板チェックしに来たら、もう出来てる？！
私はまだ完成してません。
もしかしてImageコントロールをFormにペタペタ貼ってた
のが、ただでさえ初心者の私をさらに追い込んでたとか・・・。
そんな気がしてきた！
0358とて〜も初心者NGNG
VBで作ったものってDLLがいるとよくいいますが
私のパソコンでは（VAIOノートのPCG-FX33G/BP）DLLがないとか
言われたことはありません。
DLLを入れた記憶はないのですが、メーカー製のものってDLLとかが標準で
入ってるってことですか？
0359デフォルトの名無しさんNGNG
っていうか箱入り娘のレベル１も解けないんだけど
0360箱入り娘作成中NGNG
>>359
作ってる私も解けません。
0361箱入り娘作成中NGNG
フォームに絵が出ない・・・。
ファイルのパスは合ってるのに。なんで？

Private Sub Form_Load()
Dim Pic_Waku As Picture
Set Pic_Waku = LoadPicture("C:\〜省略〜\koma0.gif")
frmMain.PaintPicture Pic_Waku, 0, 0
End Sub
0362デフォルトの名無しさんNGNG
>>361
frmMainにじかに書いているわけですね。
恐らくfrmMainのAutoRedrawがFalseになってるせいです。
この辺はWindowsの仕組みを理解していないとわからない所ですね。
0363箱入り娘作成中NGNG
>>362
くそー！！！
めちゃくちゃくやしい！
（と心の中で思い、太股をこぶしで殴打）
0364VB使いNGNG
>>358
VB6.0で作ったEXEをWindowsで動かすときに最低限
用意しなければいけないものはMSVBVM60.DLLだけです。
（一応VB6JP.DLLも。無くても文字化けしながら一応動く。）

標準でついているもの以外を使った場合はそれ用の
DLLやらOCXやらがいるけど、使ってないならいりません。

そしてMSVBVM60.DLLが標準でついているOSもあり、
WinMe,2000,XPです。（なぜかVB6JP.DLLはついてない。）

上記OS以外でDLLがないという文句を言われないメーカー製PCは
メーカーがトラブルを避けるために入れているのでしょう。
0365デフォルトの名無しさんNGNG
CSVファイルでシングルクォートで囲まれたデータを
文字列として取り込みたいのですが、
ＶＢヘルプをみるとダブルクォートしか文字列として対応してないみたいです。
何か良い方法がありますか？

レコードを一文字ずつばらしてカンマを検出し、
文字列の両端のシングルクォートを削るしか、ＶＢでは方法がないのでしょうか？
0366デフォルトの名無しさんNGNG
>>365
　Split関数使ってみれ。
0367365NGNG
>>366
そんな便利な関数があったんですね。
ありがとう
0368366NGNG
>>367
低脳ﾜｻﾞと言われそうな ex...
ﾃﾞｰﾀ 'TEST_1','TEST_2' ってなってたら
　Dim strX()　　　As String

　strBuf = "'," & "'TEST_1','TEST_2'" & ",'"
　strX = Split(strBuf, "','")
でどうよ？
0369366NGNG
補足
　添え字最低値、最大値はそれぞれLBound、UBound関数で判る。
　但し、空要素の配列で何かしようとするとエラーが発生するので
自前で空配列を調べるような関数を作っておくべし。
0370デフォルトの名無しさんNGNG
Windows2000の「コンピュータの管理」で
[コンピュータの管理(ローカル)]-[システムツール]-[共有フォルダ]を右クリックして現れるメニューの
[すべてのタスク→]-[コンソールメッセージの送信...]をVBで制御する方法はありませんか?

これを使えれば、他のマシンと色々交信できて楽しそうなんですが。。。
0371ヒッキー＠プログラミングNGNG
>>370
コマンドプロンプトから「net send」コマンドを
実行してはどうでしょうか。
使い方は、net /?　で調べてみてください。
0372370NGNG
なんと、こんなコマンドがあったんですか。
これなら簡単にいじれますね。ありがとうございます。
0373デフォルトの名無しさんNGNG
ネットワークに繋がっている、コンピーュータ名の一覧を取得するには
どうしたらいいでしょうか。できればドメインごとに取得したいです。
0374デフォルトの名無しさんNGNG
>>373　ネットワークとはどの範囲のネットワーク？
全世界とかいうなら無理だと思うが、とりあえずやってみ

IPアドレスをしらみつぶしに調べる（当然特別なIPアドレスは省く）
0.0.0.0 〜 255.255.255.255
とりあえずpingでも飛ばしてみ。
http://www.geocities.co.jp/SiliconValley-SanJose/3279/scrap.html
http://w3.one.net/~kevinw/VB/s_modules.htm

IPアドレス→ホスト名は、このあたりを参考に。
http://www.mitene.or.jp/~sugisita/family/papa/vb/api_net.html

おまけのwhoisはこのあたりを参考に。
http://www.vbip.com/winsock/winsock_whois.asp
0375とて〜も初心者NGNG
VBでP2Pみたいなソフトて作成できますか？
0376デフォルトの名無しさんNGNG
>>375
　とりあえず WinSock でもいじってみれ。
0377デフォルトの名無しさんNGNG
>>375
完全匿名“Freenet”のクローンでも作ってよ。
ソースも公開されているし。

「freenet0.4+frostｽﾚ　Key1」
http://tmp.2ch.net/test/read.cgi/download/1007824064/
0378箱入り娘作成中NGNG
>>356
すいませ〜ん！356さん
>１．あのままではマウス移動の判定が鈍いので、改良。
どんな風に改良したんですか？

まだ、完成してません・・・・。
0379デフォルトの名無しさんNGNG
＞378
１．移動ベクトルの傾きを計算して、XとYのどちらを優先するかをまず判断。
　　実際にはAbsで絶対値の大小比較をするだけ。
　　今度は敏感すぎて、２マス連続で移動しちゃう(笑)。
２．マウスボタンを離した点で判定してたのを押し始めの点で判定。

困ったこと。ふつうは１マスずつ移動させるのですが、それだと瞬間移動みたいだから、
あの作者はわざわざ半マス移動方式にしたんでしょうね。
でも、手数のカウントが面倒です。いまは単純に２で割ってるだけです。

ほか、改良点としては効果音をつけました。
0380デフォルトの名無しさんNGNG
テキストをアンチエイリアスをして表示する方法を探していたら
GetGlyphOutline()でできるようなこと書いてあったのですが

1.APIビュワーからコピペしたものを使おうとしたら
「ユーザー定義型は定義されていません」となってしまいます。
("lpgm As GLYPHMETRICS"と"lpmat2 As MAT2"がひっかかってる？)
2.引数になにを入れたらいいかわかりません（汗

どなたかご教授お願いします。
0381箱入り娘作成中NGNG
>>379
移動ベクトルの傾き・・・
押し始めの点で判定・・・・

もうちょっと勉強してから出直してきますっ
0382デフォルトの名無しさんNGNG
＞381
むずかしく書いちゃったけど、ここのとこです。
　　If y - oldy > 32 Then Call DownKoma(x, y)
これを
　　If Abs(x - oldx) > Abs(y - oldy) Then でまず判定して、
　　　　If y > oldy Then Call DownKoma(oldx, oldy)
移動は１ドットでもオッケー(笑)。

ボタンを離した点と書いたのはカン違いで、ドラッグ中の点でした。
だから、そのままでもいいのかも。

GIF画像は、サイトにあったのを使いましたが、koma12.gifは
「You Win!」って大きく書いてあるだけなので、パス。
0383デフォルトの名無しさんNGNG
初歩的な質問で申し訳ないのですが、
.wavファイルのループ再生を行うにはどうすればいいのでしょうか。
現在標準モジュールに
Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10

フォームに
Private Sub Command2_Click()
Call sndPlaySound("A:\中略\game.wav", SND_LOOP)
End Sub
と書いているのですが、エラー音しか出ないのです。
どこが間違っているのか教えてやってください。
0384デフォルトの名無しさんNGNG
>>383
ヘルプから抜粋：
指定されたファイルが見つからなかった場合、PlaySound関数はデフォルトの
サウンド（一般の警告音）を鳴らそうとします。
pszSoundパラメータで指定したサウンドは、使用可能な物理メモリに収まる
サイズでなければなりません

この辺で引っかかってませんか？
0385373 NGNG
すいません。説明不足でうまく伝えられなかったようです。
ネットワークに繋がっているとは、単にネットワークコンピュータで
表示されるパソコンのことです。
やりたいことは、たとえばWORKGROUPにぶら下がるPC名の一覧が欲しいのです。
それで、さらにWORKGROUP以外にもグループがあったとしたら、そちらの
PC名もほしいのです。
0386ＶＢ５NGNG
EXCELみたいなイメージの表形式でデータ表示したいのですが、
標準のコントロールでは何を使うのが一番いいんでしょうか？
0387ヒッキー＠プログラミングNGNG
>>386
DataGridかDataBoundGridなんかはどうでしょうか。
0388ＶＢ５NGNG
>>387
レスどうも。

＞DataGridかDataBoundGrid
これは参照設定とかしないと出てこないモノなんですか？
0389デフォルトの名無しさんNGNG
参照設定じゃなくコンポーネント。
Microsoft DataGrid Control 6.0。
0390デフォルトの名無しさんNGNG
今日、本屋逝ったら、VB.NET本けっこう出てんだね。
いつ出んだろ？
0391ＶＢ５NGNG
>>389

ども。
今VB5使ってるんですが、
DataGrid Control というのが見つかりません。
なんていう名前のOCXかわかりますか？
0392デフォルトの名無しさんNGNG
>>391
DataGridはVB6です。
VB5なら Data Bound Grid かな
0393デフォルトの名無しさんNGNG
>>385
WNetEnumResource()API、WNetOpenEnum()APIあたりで
昔やった記憶があるよ。
0394ＶＢ５NGNG
>>392
DBGRIDですか。
どもでした。
0395質問です。NGNG
本当に初心者の初心者です。

今度、中途の就職活動のＳＥの求人先で、「意欲はあるのは分かるが
何か言語試して欲しい」と言われました。それでＰＣ環境的にもてっと
り早いのがＶＢではないかと、言われたのです。基本は取りあえずわか
りそうなのですが、何か何でもいいから作って欲しいと言われた課題内
容をどうしたものかと考えています。

ＶＢの初心者として最初に組めたら良い、メルクマール的な、プログラム
って何でしょうか？教えて下さい。

研修で良く初心者に課題として課される者でも良いのですが・・・。
よろしくお願いします。
0396デフォルトの名無しさんNGNG
VB6.0で、Internet　Trancefer　Controlを使ってFTPでファイル送信をしたいのですが、
連続で二回以上送信すると当然のようにうまくいきません。

画面を表示しない仕様のため、標準モジュールで処理を行っています。
（fromはVisibleをFalseにしています）
うまく一回ずつ間を空けるように出来ないでしょうか。


Win2000
0397396NGNG
ああ、環境を書こうとしてミスった。。。

Win2000のVB6.0を使ってます。
0398デフォルトの名無しさんNGNG
プログラムもかけないのにSEか。

おめでてーな。
0399デフォルトの名無しさんNGNG
395はネタなんだよね？
本気でそんな質問しないよね？
0400デフォルトの名無しさんNGNG
>>395
小・中学生、高校生、バカな大学生が対象なら、
とりあえず、「日付と時刻のプロパティ」のようなものを
標準のコントロールだけで作らせる。
0401デフォルトの名無しさんNGNG
MIDの子フォームが常にMIDの親フォームの中央に表示される
ようにするにはどうすればよいのでしょうか？

WindowStateを変更するとエラーが発生して、
標準にしか設定できません。
0402とて〜も初心者NGNG
>395
そりゃー「HelloWorld」に決まりでしょ
0403デフォルトの名無しさんNGNG
VBっつー事は業務系だよな。
なんかデータベースにつないでInsert/Update/Deleteなどを一通りやってみたら?
SEってことだから設計能力も問われると思われ。

はっ、ﾏｼﾞﾚｽしてしまった
0404質問です。NGNG
っていうか一応、研修もあるらしいンですが。
全く未経験という場合には課題を課しているそうです。
0405とて〜も初心者NGNG
>404
課題ができないと落とされるってワケか？
0406質問です。NGNG
その辺、アバウトなんですが、取りあえず、「適性」というのを見ようという
事らしいです。しかし、課題が何でも言いと言われても・・・。テキストには
時計プログラムとか載っていますが・・・。
0407デフォルトの名無しさんNGNG
>395
ネタかと思ったんだが・・・。
その会社はオープン系なんか？
じゃ、403さんの言うとおりのDBとの連携なんかが
いいんじゃネーノ？
IEコンポーネント貼ったブラウザもどきとかもいいかもな。

ちなみに俺が前受けた会社はBMP画像の拡大をするもの
とかが課題だったな。ゲーム系だが。
クソまじめにラグランジュ補完とかやったな。落ちたけど。
0408407NGNG
途中でカキコしちまった。

しかし、395さんよ、SEとして成功したいならさ、
提案能力も問われるわけだろ？
「そういう要求に対してどういう提案が出来るか」が
その会社の人間が見たいとこだろうと思うぞ。
ここで、聞いて参考にするのもいいけど、
やっぱさ、自分で考えることに意味があるんじゃないの？
0409デフォルトの名無しさんNGNG
WordのVBAで質問です。
docファイル文章内すべて文字「XXX」検索して、置換するというプログラムを作ろうとしているのですが、
Findメソッドを使用し、Do loopで末尾までぐるぐる回そうとしたのですが、
文章の末尾どう取得してよいかわかりません。

Do loopで文章の先頭から末尾まで回すときは、どんな条件にするればいいでしょうか？
0410デフォルトの名無しさんNGNG
>>409　「マクロの記録」でやったらこんなコードになりましたが。

Selection.WholeStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "キーワード１"
.Replacement.Text = "キーワード２"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
0411デフォルトの名無しさんNGNG
>>410
ありがとうございます。
[XXXA1234]を[ZZZA1234]ではなく[ZZZ12A34]
というような置換をしたいのですが、この場合は
１．一行アクティブして、
２．INSTR関数で「XXX」を検索し
３．アクティブ行を置換
という順序で考えています。
説明不足ですいませんが、お願いします。
0412デフォルトの名無しさんNGNG
＞411
どうしてわざわざ１行ずつやるの？
INSTRで文書全体検索すればいいじゃん。
0が返ってくるまで。
0413デフォルトの名無しさんNGNG
＞412
な、なんといっていいか・・・
あ、ありがとうございます。
0414デフォルトの名無しさんNGNG
vbNewLine　と　vbLf，vbCr，ｖｂCrLf　の使い分けを教えてください。
Excelのセル内改行はvbLfのようだけど　他はｖｂCrLfでなくても改行されます。
じゃあ　vbNewLine　じゃなくてもWindowsでは勝手に判断してくれるの？
0415デフォルトの名無しさんNGNG
＞414
ttp://pc.2ch.net/test/read.cgi/tech/1000523122/193-197
0416デフォルトの名無しさんNGNG
>>415
レスありがとうございます。
リンク先の
>vbNewLine : 一応プラットホームに依存しない（事になってる）コードを書ける。
>まあ気休めだけどね。
は見ました。

聞きたかったのは
vbNewLine　じゃなくてもWindowsでは勝手に判断してくれるの？
と書いたように、vbLf，vbCrを使用してもWindowsでは
改行してくれるので意識しなくてもようのかとか、vbLfでないとだめな場合とかをお聞きしたかった
のです。
0417416NGNG
>意識しなくてもようのかとか
意識しなくてもよいのか　とか
0418デフォルトの名無しさんNGNG
＞416
勝手に判断はしてくれない。
有名なところでは、メモ帳はvbLfやvbCrで改行しない。

逆に、vbCrLfでダメな場合は例外的ケースで、そんなに多くないはず。
それだけ覚えておけばいい。
もちろん、いつかは仕様変更されると思う。
だから、vbNewLineを使っておけば、いちおう安心ってことね。
0419質問です。NGNG
>>408
まあ、営業力とか問われるのは分かっています。
そう言う業界だったんですが前職。
あからさまに聞けないことも２ｃｈなら、まあ聞いてもイイかなと思いまして。
結局決めるのは自分だってのは分かってます。
0420nullNGNG
VBでメール送信バッチを作ります。
フリーのメール送信ｄｌｌ等も使わず、mapiを使わずに、
メール送信ってできますか？
0421デフォルトの名無しさんNGNG
>>420
できるっしょ
0422デフォルトの名無しさんNGNG
>>421
どうやってやるのか、是非教えて頂きたい。
0423デフォルトの名無しさんNGNG
実行中に、次の命令との時間間隔を開けたいときはどうすればいいの？

msgbox"bigin"

'たとえばここで一秒待ちたい

msgbox"end"
0424デフォルトの名無しさんNGNG
>>423
Timer関数使ってDo〜Loopとか。
0425デフォルトの名無しさんNGNG
>>423
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
して
Sleep 1000
とかでどうです
0426デフォルトの名無しさんNGNG
>>424
>>425

さんきゅです。試してみます。
0427423NGNG
>>424
すいません、標準モジュールから意識的にタイマーイベントを呼び出す方法を
教えて欲しいのですが。。。。

どうやったらよいのでしょうか。
0428デフォルトの名無しさんNGNG
>>422
Winsockコントロールを使うか、いやならAPIを使えばいい。
WSAStartup
socket
connect
send
recv
closesocket
WSACleanup
あたりを調べてみて
0429ヒッキー＠プログラミングNGNG
>>427
Timer1.Enabled=True
か
Form1.TIMER1_TIMER
でどうでしょうか。
0430424NGNG
>>423
>>428-429
APIやTimerｺﾝﾄﾛｰﾙ使いたくないなら

Sub main()

Dim ldblTimer As Double

MsgBox "Hoge"
ldblTimer = Timer

Do
If ldblTimer + 1# < Timer Then '１秒経過したら
Exit Do
End If
Loop

MsgBox "HogeHoge "

End Sub

正確ぢゃ無いけど。
■ このスレッドは過去ログ倉庫に格納されています