▼ VB初心者質問スレ Part 10 ▼
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001デフォルトの名無しさん
NGNG前スレはこちら
Part 1 http://piza.2ch.net/tech/kako/968/968328471.html
Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
Part 9 http://pc.2ch.net/test/read.cgi/tech/1020830472/
Win32 API関連スレ
Win32API 質問箱 Build3
http://pc.2ch.net/test/read.cgi/tech/1017072275/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
0002デフォルトの名無しさん
NGNG0003デフォルトの名無しさん
NGNGAPIスレには来ないでください
おながいします
0004デフォルトの名無しさん
NGNGVBから印刷するにはどうしたらいいんでしょうか？
0005デフォルトの名無しさん
NGNGRegsvr32ではできないので、たしかコマンドライン引数で
アンレジストするような記憶があるのですが
0006デフォルトの名無しさん
NGNG0007デフォルトの名無しさん
NGNG俺は /u でしかやったことなかったな
0008デフォルトの名無しさん
NGNGするとシートにウェブ上からHTMLのテーブルデータを読み込みます。
続けてボタンをクリックすると、前回表示されていたテーブルデータ
が削除されずに、右方向に移動されてしまいます。つまり
新しいテーブルデータが前回あったデータの前に挿入されてしまいます。
続けてボタンを押すと前回あったデータが消えて、新しい
データが挿入されるようにしたいのですが
どうしたらよろしいでしょうか？
アドバイスよろしくお願いします。
0009笑む名無し
NGNGFunction Fx(x0 as single , y0 as single , …)
Function Fx(xyz as _XYZ)
連立常微分方程式数値解をやってローレンツ近似常微分方程式をやりました
0010デフォルトの名無しさん
NGNGいや、そんなこと自慢げに話されても困る（ｗ
0011デフォルトの名無しさん
NGNGvbにはそれが限界ﾌﾟﾌﾟ(ﾜ
0012デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNGとふってみる。
0016笑む名無し
NGNG0019笑む名無し
NGNG0020デフォルトの名無しさん
NGNGcase (１から１０まで) ってやつをやりたいのですが、（ ）の中へは
どう記述すればいいんですか？
0021デフォルトの名無しさん
NGNG1 to 10
0022デフォルトの名無しさん
NGNGどうもです～
0023デフォルトの名無しさん
NGNGそれだと1と10しか出来ません
0024デフォルトの名無しさん
NGNGバカ？
0025デフォルトの名無しさん
NGNGテキストボックスに２バイト文字を入力した場合、文字化けしてしまいました。
（確定後に化ける）
Win98の方では正常に動作しています。
フォントはMSPゴシックを使っています。
原因と対処法を知ってる人がいたら教えてください。
0026535
NGNGマクロじゃだめなんです、どうか教えてください。
0027デフォルトの名無しさん
NGNGVBAつかえ。
0028デフォルトの名無しさん
NGNGＰＤＦからＧＩＦに変換する方法知ってる方がいたら、教えてください。
0029デフォルトの名無しさん
NGNGファイル名の拡張子をGIFにしてごらん
それっぽく見えるから
003028
NGNGさっそくやってみます。
0031デフォルトの名無しさん
NGNG日本語ランタイムが入ってないだろ。
英語版ランタイムは最初から入ってるんだがなぁ…。
003228
NGNGほかにないですか？
0033デフォルトの名無しさん
NGNGAdobe製品買おう。
0034デフォルトの名無しさん
NGNGadobeに聞け
0035デフォルトの名無しさん
NGNGそれじゃ、Adobe Acrobatでも買いなさい
003628
NGNG0037デフォルトの名無しさん
NGNGネタかなんかなのでしょうか？
0038デフォルトの名無しさん
NGNG俺にはあんたがネタに見える
0039デフォルトの名無しさん
NGNG0040デフォルトの名無しさん
NGNG0041デフォルトの名無しさん
NGNG描いたグラフィックが消えないようにするにはどうすればよいのでしょう？
0042デフォルトの名無しさん
NGNGPaintイベントで描画し直し。
0043デフォルトの名無しさん
NGNGの使い方がわかりません。
どなたか御教授お願いします。
0044即レス
NGNGFilter,InitDir,FileName
何のメソッド OR プロパティか書いてくれ。
プラットフォームと言語名も書いてくれ。
最後2つはこう。
Picture1.Picture=LoadPicutre("c:\hoge.bmp")
004543
NGNGFilter,InitDir,FileName
すべてプロパティです。
>プラットフォームと言語名も書いてくれ。
言語はVBなんですが、「プラットフォーム」はわかりません。。
0046即レス
NGNG何のプロパティかが問題なんだよう。(; ´Д｀)
「対象のオブジェクトは？」と書くべきだったか。
言語はVB.NETかVB6かで、プラットフォームは
WinXp,2000,NT,9x,Meなどのどれ？
004743
NGNG言語はVB6.0で、2000、だと思います。
Imageコントロールでグラフィックスデータを表示し、
ファイル選択をできるようにしたいのですが。
（「対象のオブジェクト」でもわかりませんでした。。ｽﾐﾏｾﾝ）
0048即レス
NGNGFilter
選択できるファイルの種類。
CommonDialog1.Filter="ビットマップ|*.bmp"とすると、
ビットマップだけ選択できるようになる。
InitDir
表示した時の最初のディレクトリを指定する。
FileName
選択後、選択したファイルが入ってる。
CommonDialog1.ShowOpen
Msgbox CommanDialog1.FileName
とすると、選択したファイルが表示される。
とりあえずMSDN読んでみれ。
コモンダイアログコントロールを選択してF1を押すんだ。
004941
NGNGありがとうございます。
すみません、もうひとつ。
Graphicsオブジェクトのメソッドで描画した物をBitmapにしたいのですが、
どうすればよいのでしょうか？
0051即レス
NGNG0052デフォルトの名無しさん
NGNGPictureプロパティはオブジェクト参照だから
Set Form1.Picture = LoadPicture(…
ではＳｅｔがいるんでは？
0053デフォルトの名無しさん
NGNG最初覚えるのってやはり表示系だよね
懐かしいので、ではひとつ基本テクをあげちゃうよ
ゲームとかのキャラのように必ずしも、写真のような品質ではなく、むしろシンプルでよいとか
背景の画像が1024*768サイズ欲しいけど、メモリサイズを取りたくない場合には…
元画像を用意する 320*240だとする
Dim Pic As StdPicture : Set Pic = LoadPicture(パス)
この画像を用意したPictureBoxに拡大描画しておく(AutoRedraw=trueでメモリ保存しておく) Call Picture1.PaintPicture(Pic,0,0,640,480)
これで640*480の画像ができた、変数Picは元画像の読み込み用だったので不要、Set Pic=Nothing
危険を侵してまでAPIでメモリデバイスコンテキストを使う必要はない。PictureBoxをメモリにするべし
JPGやGIFで済むんでは？いや どうしてもBitmapでないとダメな場面はある わかった？？
005541
NGNGmetafileオブジェクトを使えばいいのですね、多分。
0056名無し
NGNGHPの一部を会員制にしたいのです。
よくいろいろ情報を入力して登録会員になって閲覧できるHPがありますが
作成方法などが載っているサイトなど知りませんか？
0057デフォルトの名無しさん
NGNGhttp://pc.2ch.net/hp/
こっちで聞いてください
0058デフォルトの名無しさん
NGNGインストールするとき、ＳＰ３はアンインストールしておかないといけませんか？
ＳＰ３とＳＰ４の両方ををインストールしとくのってできますか？まずいですか？
005958
NGNG006056
NGNGそっちできいたらプログラムの知識が必要だから
こっちできけと言われたんです。
結局誰もわからないんですね・・・T.T
あきらめますです。
0061即レス
NGNGむしろこっちじゃないか？
http://pc.2ch.net/php/
行ったこと無いけど。
どっちにしろCGIの知識ぐらいはいる。
0062デフォルトの名無しさん
NGNGhttp://pc.2ch.net/php/
0063デフォルトの名無しさん
NGNG0065デフォルトの名無しさん
NGNGピクチャボックスの任意の位置に描画するには？
0067デフォルトの名無しさん
NGNG例えば、デスクトップ上で右クリックしたときに出るような、コンテキストメニューは
どうやって実現しますか。
枠無しのフォームを開く、みたいな安易なの？
0068デフォルトの名無しさん
NGNGメニューはﾒﾆｭｰですが何か？
0069デフォルトの名無しさん
NGNG悪いこと言わんからVB.NETに移行しよう！たばこ、清涼飲料水
などを２，３ヶ月我慢するだけだよ。
VB.NET,ASP.NETを体験すると、VB6なんて触れないよ。
0071デフォルトの名無しさん
NGNG完全なオブジェクト指向指向。
充実しすぎているクラスライブラリ。
言語間の境界が無くなりライブラリの再利用製などがあがる。
007267
NGNGなんかすごい感じだけど、コンテキストメニューの実現に枠無しフォームとか言っちゃう
初心者ですがいけますかね？
0073デフォルトの名無しさん
NGNG旧VBで製品的にもプログラマ的にダメになる前に勉強した方が良いと思われ。
007467
NGNGなるへそ。ちと金貯めるとしますよ、師匠。
0075デフォルトの名無しさん
NGNGわるいことはいわん。猫でもわかるプログラミングからやれ
0076デフォルトの名無しさん
NGNG悪いこと言うね
0077デフォルトの名無しさん
NGNGすべてのボタンの横幅は、一番横幅の大きなボタンに合わされます。
しかも、テキストがすべて右寄せになってしまいます。（アイコンとテキストが離れた状態）
バラバラの長さのキャプションが設定されていると、非常に見た目がおかしいです。
これを改善することはできませんか？
ToolBar.Buttons(Index).Widthで設定できると思ったら、値取得しかできませんでしたし・・。
0078デフォルトの名無しさん
NGNGテキスト表示やめたらいい。
Tooltipで代用せれ。
0079うんこまんこ
NGNG操作するにはどうしたらいい？
それぞれのボタンに対応した値を返す命令とかある？
0080デフォルトの名無しさん
NGNGDirectInput
0082デフォルトの名無しさん
NGNGどうやっても新規作成できません.エクスプローラの画面でファイルから新規作成
としてもデータリンクファイルの作成がないのです。右クリックしてもないし・・・。
どうしたらよいでしょうか？
0083デフォルトの名無しさん
NGNGテキストファイルを新規作成して拡張子を udl に変えてみ
つーかそんなの使わず直接記述しろよ
0084デフォルトの名無しさん
NGNGあるコンボボックスに、任意のレコードセット（全レコード分）を表示させる
ことはできるんですが、その任意のレコードセットの一部のみ（IDで同じ番号
のだけ）を表示させることができなくてこまっています・・・。
レコードセットに「Filter」とか「Find」等を使っているのですが、反映してく
れません。データグリッドなら反映してくれるのですが・・・。
どなたか教えて下さい・・・。
0085Master
NGNG0086NetMessageBufferSend
NGNGWindows上からもやれたのですが、「net.exe view」はどうやったら
いいんでしょうか？netapi32.dllに入っているのでしょうか？
0087NetMessageBufferSend
NGNGなんかコントロールとかコマンドとかでやれるなら
そっちのほうがいいです。
ちなみに今は「net.exe view > tmp.txt」
っていうbatファイル作っておいて、call shell("netview.bat")
ってやってからtmp.txtを読み込んで頭の「\\」を取り除いてます。
そんな方法はオカシイと思っています。
0088デフォルトの名無しさん
NGNGその内容をペーストによって変更できないようにしたいのですが。
このテキストボックスにはスクロールバーが付いているので、ラベル
のキャプションでまかなうってのはダメなんですわ・・・
右クリック禁止でも良いんですけどね。
なにとぞ、よろしくお願いします。
0089デフォルトの名無しさん
NGNG貼り付けない普通の書き込みはいいの？
0090デフォルトの名無しさん
NGNGMicrosoft VBScript compilation error '800a03f9'
と出てきてしまいます。
私のパソコンが悪いのかと思い
違う機でやってみたのですが同様にエラーになってしまいます。
MSDNで調べても載っていないし
GOOGLEで検索かけると英語の解説らしきページがでてきたのですが
http://wdvl.internet.com/Authoring/ASP/FormHandling/smart.html
↑ここ
チンプンカンプンです。
すみませんがどなたか
どうすればよいのか教えていただけないでしょうか？
0091８８
NGNGレスありがとうございます。
普通の書き込みもしないです。
ボタンを押して、ファイルの内容を読み出すみたいな感じです。
0092デフォルトの名無しさん
NGNGクリップボードを強制的に消去。
0093８８
NGNGおお、なるほど・・・・・それって、ＷＩＮ３２ＡＰＩでしょうか？
0094デフォルトの名無しさん
NGNGプロパティにReadOnlyだかLockedだかってなかったか？
0095８８
NGNG0096８８
NGNG最初、Lockedで、制限してたんですよ・・・たら、ペーストできてしまって
あら、大変って事なのです。
009792
NGNGLoackedプロパティはKeyPressイベントでKeyAscii=0にするのと同じなので、
普通の書き込み(Ctrl+V含む)と右クリックによるペーストはできないが、
Shift+Insertとかその他のペースト方法ならペーストできるので、
厳密にやるならこれだけでは不完全。
VB.NETからはReadOnlyプロパティ。
こちらはCtrl+VでもShift+Insertも右クリックのメニューからも
貼り付けはできないようになっている。
＞おお、なるほど・・・・・それって、ＷＩＮ３２ＡＰＩでしょうか？
Clipboardオブジェクトをヘルプで見るべし。
＞っていうか、どのタイミングでクリアすれば良いんだろ・・・
MouseDownやらKeyDown等でクリアするとか。
0099８８
NGNGなるほど、分かりました、ありがとうございます。
明日、試してみます・・・皆さん、まだ仕事場なんすか？？？
010092
NGNG本当は、サブクラス化してWM_PASTEを握りつぶす方がいい。
サブクラス化って何？って場合は、忘れてくれ。
0101デフォルトの名無しさん
NGNGピクチャボックスにテキストを表示して、
スクロールバーを付ける手もある。いちおう。
0102デフォルトの名無しさん
NGNG0103デフォルトの名無しさん
NGNGどういう観点から？
まったくの初心者向けというのはない。
・VB6からの移行を意識したもの
・基盤の話、アセンブリの話、リフレクション、スレッドについて
ちょっとずつ語っているもの
がある程度。
MSDNで十分。
0104デフォルトの名無しさん
NGNG合計10文字のデータにして送信するために
Winsock1.SendData strTmp + Chr(0)+ DummyData(10 - Len(strTmp))
（中略）
Private Function DummyData(Length As Integer) As String
Dim X As Integer
X = 0
Do While Length > 0
Select Case X Mod 4
Case 0
DummyData = DummyData + Chr(&HFA)
Case 1
DummyData = DummyData + Chr(&HED)
Case 2
DummyData = DummyData + Chr(&HFE)
Case 3
DummyData = DummyData + Chr(&HCE)
End Select
X = X + 1
Length = Length - 1
Loop
End Function
というプログラムを組んだところ、string型への格納時に&hFAと&hEDが自動的に変換されて
両方とも&h0として送信してしまいます。
変換されずに送信する方法を教えていただけないでしょうか？
0105デフォルトの名無しさん
NGNGバイト配列で飛ばせばよい。
String型で化けた原因は、いったんUnicodeに変換されたため。
0106デフォルトの名無しさん
NGNGForm1_DragDropの中･･･
Dim strFilename() As String
strFilename = e.Data.GetData(DataFormats.FileDrop)
動くには動くのですが、Option Strict Onのオプションを入れるとエラーになります。
Stringの１次元配列に変換するにはどうしたらよいのでしょう？
0107デフォルトの名無しさん
NGNG巧く行きました。
ありがとうございました。
0108デフォルトの名無しさん
NGNG返値の値が実際の長さより短いのですが…
どうすれば本当の値が帰ってきますか？
0109デフォルトの名無しさん
NGNG多分勘違い LenB(strcnv("ほげほげ",vbFromUnicode))
で目的の結果が返ると思われ。
0110デフォルトの名無しさん
NGNGませんでしょうか？
0111デフォルトの名無しさん
NGNG・109補足
Len関数は文字数を返す。
LenB関数はデータ長を返す。
0112デフォルトの名無しさん
NGNGPrivate Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
こんなのが生成されるけど、これのSenderやeって何？
MSDNのここ見れ！でもいいので教えてください。
0113デフォルトの名無しさん
NGNG0114デフォルトの名無しさん
NGNG１ページに詳細５件のみ出力、以下は改ページ、という処理は可能でしょうか？
また、改ページの際にはグループフッター出力後に改ページしたいのですが・・・
セクションに式を書くとグループフッターが出力される前に改ページされてしまいます。
どなたか方法をご存知ないでしょうか？
0115_
NGNGCall SendMessage(ListView_hWnd, LVM_SCROLL, 0&, 0&)
これを実行すると、常に最下部に行ってしまうのは何故でしょう？
使い方がおかしいのでしょうか？
ご存じの方、ご教授お願い致します。
0116デフォルトの名無しさん
NGNG例えば、"題名"というフィールドがあったとしたら、
rs!題名 = ・・・ と、Update、deleteとかの場合によく使っているのですが、
その"題名"という所を、変数daimei と置き換えたい場合、rs!（なんて記述すればよいですか？）
＆とかいろいろつかったのですが、うまくいきません。
教えていただきませんか？
0117デフォルトの名無しさん
NGNGRS![daimei]
RS("Daimei")
でだめか？
0118117
NGNGutudasinou...
0119デフォルトの名無しさん
NGNGrs.Fields(daimei)
0120117
NGNGRS(daimei)
desu...IME okasii...
0121デフォルトの名無しさん
NGNGなにか良い参考書又はお薦めなものとかありましたら教えて下さい.
0123115
NGNG0124デフォルトの名無しさん
NGNGW_str="ハイヒテ゛シテ゛ョン テレヒ゛"
str=strconv(W_str,vbwide)
とやった場合
"ハイビジョン テレビ"
となってしまいます
"ハイヒテ゛シテ゛ョン テレヒ゛"
というふうにスペースのみを全角にしたいんですが
どうすればいいのでしょうか?
0125デフォルトの名無しさん
NGNGじゃあかんのか？
0126108
NGNG>111
109の方法でいけました。
ありがとうございました。
0127デフォルトの名無しさん
NGNG簡単なﾋﾝﾄでも良いです。
0128デフォルトの名無しさん
NGNGまずWebブラウザでURL"www.google.co.jp"を打ち込み該当ページを表示させる。
表示される入力欄に"バブルソート"と入力して[Google 検索]ボタンをクリックする。
以上。
0129デフォルトの名無しさん
NGNGレスありがとうございます。
書き込んだ後にプログラム打ったらできました(^^;
本当にすみません。
0130.NETレス
NGNGstrFilename = CType( e.Data.GetData(DataFormats.FileDrop), String())
でどでしょ。
>>107
>Private Sub Button1_Click(ByVal sender As System.Object,
> ByVal e As System.EventArgs) Handles Button1.Click
>こんなのが生成されるけど、これのSenderやeって何？
Senderはイベント発生源のオブジェクト
つまり、この場合Button1が渡される。
イベント用のプロシージャは今までのVBと違って固定じゃない。
代わりにプロシージャの後ろにHandles句をつけて、そいつにやらせる。
このButton1_ClickってプロシージャはButton1.Clickを処理するってこった。
Button2のClickもこのプロシージャで処理するなら、Handles句を
Handles Button1.Click, Button2.Click
とすればいい。
で、複数のオブジェクトのイベントを処理できるので、どのオブジェクトで
発生したイベントかを特定するのにSenderを使うわけ。
eはイベントの補足情報だ。MouseDownとかなら、左ボタンが押されただの、
X座標は・・・Y座標は・・・みたいな情報がパックされてる。
ちなみにMouseDownイベントのときのeはMouseEventArgs型だ。
0131デフォルトの名無しさん
NGNGよくここまで来たなあ、ホント
0132デフォルトの名無しさん
NGNGハンドル違い。
0133デフォルトの名無しさん
NGNGつぅかハンドルはWindowsの機能なので本来隠匿されるべき。
0134デフォルトの名無しさん
NGNG隠しておいてはいけないものを隠すこと。
0135デフォルトの名無しさん
NGNGといっていたものですが
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/rras/mibref_0b07.asp
ここのリンクを答えとして出され、見てみたんですけど英語でわからん。
しかも使い方がサンプルコードとか無いし・・・
どう使えばいいんでしょうかね、これ（泣
0136デフォルトの名無しさん
NGNG0137デフォルトの名無しさん
NGNG有難う御座います。オラクル等のマイクロソフト社以外のデータベースソフトとの
リンクの仕方とか詳しく書いていますか？
0138デフォルトの名無しさん
NGNGDim test1() as Byte
test1 = ChrB(22) + ChrB(100)
などという風に連続したデータを入れることはできるのですが、
同じような使い勝手でByte型配列同士を結合する方法は有るでしょうか？
0139デフォルトの名無しさん
NGNG0141デフォルトの名無しさん
NGNG107です。すごい分かりやすい説明、ありがとうございました
おかげでよく理解できました！！
0142デフォルトの名無しさん
NGNG0143デフォルトの名無しさん
NGNGプロジェクト＞コンポーネント でいろいろなコントールが付加できますけど、
コンポーネントのメニュー自体の形のコントロール（コントロール、
デザイナ、挿入可能なオブジェクト と切り替えれるダブ付きフォーム）
も付加できるんですか？できるんでしたら、付加の仕方も教えていただ
きたいのですが・・・
0144デフォルトの名無しさん
NGNGVB房ってこれだから。
一回Cやってから出直してくらはい。
0145デフォルトの名無しさん
NGNGここは「VB初心者質問スレ」です。
0146デフォルトの名無しさん
NGNGんじゃ、説明してやれよ。
サンプルコード付きでな。
>見てみたんですけど英語でわからん。
こういうのを頑張って読むように促すのもスレの存在意義ではないか、と。
0148デフォルトの名無しさん
NGNGTrayMeterのソースまで提示されているのにそれを読もうともしないやつに
何言っても無駄無駄
そんなやつに気軽に回答を教えたくないよう（泣
0150デフォルトの名無しさん
NGNGGetとかLetがなかったりCSｔｒの引数が違ってたりとかで苦戦してます｡
1から作り直すしかないんでしょうか？
0151デフォルトの名無しさん
NGNG選択肢は３つ。
苦戦して修正するか１から作り直すかそもそも移行しないか。
判断するのは自分しかいないでしょう。
0152150
NGNGすばやいレスありがとうございます。
実際は納期寸前なので、次のプロジェクトまでは移行しない
と言うことになりそうです
0153150
NGNGhttp://www.microsoft.com/japan/msdn/vbasic/techinfo/upgrade/transition/default.asp
これ見る限り、ｶﾅｰﾘ違うんですねぇ。
1台にだけ入れてみてよかった
0154デフォルトの名無しさん
NGNG相当難しいと思っている。規模にもよるけど。
本当に普及するのかどうかもあやしいしねえ・・
0155135ですが
NGNG一応TrayMeterのソースは読みましたよ・・・RawMonitor.cppって奴です。
C++で全くわからんかったんですけどね（泣
英語のページだって翻訳かけてがんばって、、、
でもやはり専門用語は上手く訳せないらしく意味不明。
もといDQNな俺の英語力じゃァ自力で読解なんてのは・・・正直無理でした。
一応やるだけやってからここで質問したんですけど、
やはりこれでも教えて君として処理されちゃうんですか(汗
すみません。出直しますか・・・。
0156デフォルトの名無しさん
NGNGWaitForSingleObjectを使ってる時に、フォームのコントロールのイベントも受け取りたいので
TimeoutIntervalを１００くらいにして、DoEventsを挟んでぐるぐる回してます。
ただこれだと負荷かかりそうなんだけど、他にいい方法ないでしょうかね？
0157デフォルトの名無しさん
NGNGtext1.text=" ほげ １行目 "
" ほげ ２行目 "
のような感じで複数行表示を初手からｺｰﾄﾞで設定はできないのでしょうか？
とりあえずmultiline プロパティーはＴｒｕｅ に設定して
文字コードで改行させようとしたところ ・ と表示されてあっけに取られてますです
プロパティーウインドウからは書いた通りに設定できるのですが、ｺｰﾄﾞではどのようにしたらいいのでしょうか？
0158デフォルトの名無しさん
NGNG復帰の ｃｈｒ（１０） がいるのか
ていうか ｖｂｃｒｌｆ なんていうのがあるのね・・・
Ｃなら ￥n で 終わりなのに
0159デフォルトの名無しさん
NGNG0160144
NGNG>>135のリンク先のHP見てサンプル作ってみた。とりあえず動いたみたいだ。
#include <windows.h>
#include <stdio.h>
#define MAX_INTERFACE_NAME_LEN 256
#define MAXLEN_PHYSADDR 8
#define MAXLEN_IFDESCR 256
#define ANY_SIZE 8
typedef struct _MIB_IFROW {
WCHAR wszName[MAX_INTERFACE_NAME_LEN];
DWORD dwIndex; // index of the interface
DWORD dwType; // type of interface
DWORD dwMtu; // max transmission unit
DWORD dwSpeed; // speed of the interface
DWORD dwPhysAddrLen; // length of physical address
BYTE bPhysAddr[MAXLEN_PHYSADDR]; // physical address of adapter
DWORD dwAdminStatus; // administrative status
DWORD dwOperStatus; // operational status
DWORD dwLastChange; // last time operational status changed
DWORD dwInOctets; // octets received
DWORD dwInUcastPkts; // unicast packets received
DWORD dwInNUcastPkts; // non-unicast packets received
DWORD dwInDiscards; // received packets discarded
DWORD dwInErrors; // erroneous packets received
DWORD dwInUnknownProtos; // unknown protocol packets received
DWORD dwOutOctets; // octets sent
DWORD dwOutUcastPkts; // unicast packets sent
DWORD dwOutNUcastPkts; // non-unicast packets sent
DWORD dwOutDiscards; // outgoing packets discarded
DWORD dwOutErrors; // erroneous packets sent
DWORD dwOutQLen; // output queue length
DWORD dwDescrLen; // length of bDescr member
BYTE bDescr[MAXLEN_IFDESCR]; // interface description
} MIB_IFROW,*PMIB_IFROW;
typedef struct _MIB_IFTABLE {
DWORD dwNumEntries; // number of entries in table
MIB_IFROW table[ANY_SIZE]; // array of interface entries
} MIB_IFTABLE, *PMIB_IFTABLE;
0161144(つづき）
NGNG{
HINSTANCE hDLL;
FARPROC GetIfTable;
FARPROC GetNumberOfInterfaces;
MIB_IFTABLE IfTable;
DWORD i;
ULONG buf;
DWORD cnt;
hDLL=LoadLibrary("iphlpapi.dll");
GetIfTable = GetProcAddress(hDLL, "GetIfTable");
GetNumberOfInterfaces = GetProcAddress(hDLL, "GetNumberOfInterfaces");
GetNumberOfInterfaces(&cnt);
buf = sizeof(IfTable);
memset(&IfTable, 0, sizeof(IfTable));
if (GetIfTable(&IfTable, &buf, TRUE) == NO_ERROR){
for(i=0;i<cnt;i++){
printf("%s\n", IfTable.table[i].bDescr);
printf("%d\n", IfTable.table[i].dwIndex);
printf("%d\n", IfTable.table[i].dwOutOctets);
printf("%d\n", IfTable.table[i].dwInOctets);
printf("\n\n");
}
}
FreeLibrary(hDLL);
getchar();
return 0;
}
0162144
NGNGint main()
{
HINSTANCE hDLL;
FARPROC GetIfTable;
MIB_IFTABLE IfTable;
DWORD i;
ULONG buf;
hDLL=LoadLibrary("iphlpapi.dll");
GetIfTable = GetProcAddress(hDLL, "GetIfTable");
buf = sizeof(IfTable);
memset(&IfTable, 0, sizeof(IfTable));
if (GetIfTable(&IfTable, &buf, TRUE) == NO_ERROR){
for(i=0;i<IfTable.dwNumEntries;i++){
printf("%s\n", IfTable.table[i].bDescr);
printf("%d\n", IfTable.table[i].dwIndex);
printf("%d\n", IfTable.table[i].dwOutOctets);
printf("%d\n", IfTable.table[i].dwInOctets);
printf("\n\n");
}
}
FreeLibrary(hDLL);
getchar();
return 0;
}
0163デフォルトの名無しさん
NGNGすまん
日記にする気は全くなっかったです
まじで少しはまってました
0164デフォルトの名無しさん
NGNGどうでもいいが、何故そこでCのサンプルを作り始める？（ｗ
>>155
http://netpassport-wc.netpassport.or.jp/~whkama/vbasam/IfInfo.htm
↑これなんてどうだ？正確にはVBAのサンプルだが、流用できるだろう。
0165質問です
NGNGTextBox をがんがんドラッグ & ドロップしていくと、
デフォルトで ID が TextBox1、TextBox2、...みたいにつきますよね。
そこで、
TextBox1.Text = 1
TextBox2.Text = 2
...
TextBox10.Text = 10
のような処理を for 文で処理することは可能ですか ?
0166デフォルトの名無しさん
NGNGtagに値入れなされ。
0168デフォルトの名無しさん
NGNG・・・・・・・・よくがんばった。
0169デフォルトの名無しさん
NGNG配列って知ってる？
0170デフォルトの名無しさん
NGNGコントロール配列にして（TextBox1(index)って形）
Dim i As Long
For i=1 to 10
TextBox(i).Text=i
Next i
0171デフォルトの名無しさん
NGNG単なる配列の間違いね。.NETなので。
0172デフォルトの名無しさん
NGNGMsgWaitForMultipleObjects
0173デフォルトの名無しさん
NGNGhttp://www.codeproject.com/csharp/csharpgraphicfilters11.asp
> byte * p = (byte *)(void *)Scan0;
この辺の扱いをどうやってVB.netで書けばよいのかわからなくて。
Setpixelを使うと処理が遅くなってしまいます。
0174デフォルトの名無しさん
NGNGどんなもんか見せてみ～
0175デフォルトの名無しさん
NGNGポップアップメニューっていうの？あれがちゃんとした位置に来ないんだよ・・・
普通はマウスカーソルの位置がメニューの角になるような位置に
メニューが開くじゃん。右クリックとかでさ。
Webで拾ってきたサンプルを丸ごと叩き込んだんだけど
位置がおかしい・・・どっか間違ってるんだろうと思うんですけど。
環境 VB6 WinME
そのポップアップの関数のソースが
http://xax_neutral.tripod.com/popup.txt
です。本当にこれが解決できなくて・・・。
あつかましいと思いますが、どうかお願いいたします・・・！
0176デフォルトの名無しさん
NGNGちょっと待って。ソース読んでみるから。
0178デフォルトの名無しさん
NGNGVB.NETでやろうと思ったら、Byte配列にCopyMemoryかなんかで
コピーしてくるしかないんじゃないかなと思うけど、自信なし。
.NET版のCopyMemoryの宣言をどうするか。ポインタ使えんしな・・・
ちょいちょいやったら、見事に落ちた・・・
0179デフォルトの名無しさん
NGNGそのサンプルは、メニューがタスクバーにくっついた形で出るように
調整してるんじゃないの？
マウスカーソルの位置に出したければ、マウスカーソルの座標を
そのままTrackPopupMenuに渡せばいいはず。
0180デフォルトの名無しさん
NGNG自分でつくったソフト上だけでなく、Windows全体で。
えっと、スクリーンセーバー起動の時みたいな感じです。
言語はVB6です。
0181デフォルトの名無しさん
NGNG「Windowsに処理をかえす」・・・？
どのようなときに使うのですか？
0182デフォルトの名無しさん
NGNGでも処理が遅くなる諸刃の剣。
素人はそのままループ一回ごとに入れるが、玄人は必要以上にDoEventsを呼ばないように組むらしい。
俺は素人だからしらん。
0183デフォルトの名無しさん
NGNG0184デフォルトの名無しさん
NGNG一番よく使うのは、時間がかかるループの中で。
自作ソフトがCPUを100％近く使うと、Windowsによるフォームの
再描画が出来なくなり、フォームが白くなる。
同じく巨大ループ処理に対する中断キーを付けるときとかも。
0185デフォルトの名無しさん
NGNGそういうAPIはないんじゃなかろうか。
自力でやるとしたら、GetCursorPos使えばマウス動いたかわかるぞ。
>>181
例えば、ループでまわしてる処理があったりすると、ループ中にDoEventsがないと
他の処理（キーボードが押されたとか、コマンドボタンが押された･･･つーか押せないんだけどな）
とかは受け付けてくれない。
ところが、ループ中に「DoEvents」があれば、これらを受け付けてくれる。
逆に言うと、DoEventsがないと、無限ループに陥った場合にお手上げになる可能性がある。
無意味だけど一番わかりやすい例
Do
Loop
これだと無限ループで(ﾟдﾟ)ﾏｽﾞｰ Ctrt+Del+Altの出番。
Do
DoEvents
Loop
これなら大丈夫。
わかりにくくてスマソ
0186デフォルトの名無しさん
NGNGキーイベントとマウスイベントをフックする。
>>182
間引きするだけ。
下はCPUによって差が出るけど、あくまでもサンプル。
If i Mod 1000 = 0 Then DoEvents
0187185
NGNGあ、キーボードのほうも調べたいのか･･･
すまん、こっちはわからん（汗
（´-｀）.。oO( やるとしたらDirectInputあたりだろうか ）
>>185（自己レス）
わかりやすい例と書いてて「わかりにくくて」ってなんだよ俺。
回線切って寝る前に吊って来る。
0188デフォルトの名無しさん
NGNGひとつのプロシージャ内でイベントは発生しない、DoEventsは一時外部を監視するのだ
以下のコードを実行されたい、フォームにコマンドボタンひとつCB1で貼りつけて欲しい
リアルタイムゲーの基礎モデルである
Private Declare Function GetAsyncKeyState Lib "user32" Alias "GetAsyncKeyState" (ByVal vKey As Long) As Integer
Private FLAG_END As Long
Private CB1_Click()
CB1.Visible=False
Call Test
End Sub
Private Sub Test()
Dim i As Integr,x As Long,dx As Long
START:
dx=(GetAsyncKeyState(vbKeyLeft)<>0)-(GetAsyncKeyState(vbKeyRight)<>0)
if dx Then
Select Case x+dx
Case 0 To ScaleWidth
currentX=x:CurrentY=64:Me.Print " "
x=x+dx
End Select
End If
currentX=x:CurrentY=64:Me.Print "A"
DoEvents
If FLAG_END Then Exit Sub
Goto START
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
FLAG_END = 1
End Sub
0189188
NGNG一度外部のイベント発生をチェックする、イベントが起きるようなら、それを実行する
つまり一度そのプロシージャ内から出るということだが
必ず、戻って来る…この点に注意されたい
Exit Sub,Exit Function とは 違うのがわかるだろう
DoEventsで一度出て、どんなにイベントの連鎖、一般プロシージャの呼び出しでらい回しにされても
戻ってくる・・・
その性質は間違えないように
0190188
NGNGボタンCB1が押されるとSub Testが呼び出される
Sub Test内はGoto STARTを見ればわかるようにラベルSTART間での無限ループである
無限ループなのは、ひたすら、キー入力を拾うリアルタイムゲーには必須と思われる
どうもVB厨はイベントに頼りすぎて、リアルタイム入力系に弱い＜蛇足
もし、DoEventsがない場合、イベントは起きない、イベントプロシージャは実行されない
DoEventsで一度出る、もし、フォームが閉じられるなら、QueryUnloadイベントが発生するから
そこで変数FLAG_ENDを１にする、
必ず戻って来るから、FLAG_ENDが1なら終了だ そこで このプロシージャを出る
補足：188のコードは左右キーでAが動く、それだけ
0191156
NGNGありがとうございます。
実はMsgWaitForMultipleObjectsも調査済みだったのですが、
使い方がよくわからなかったので（サンプルは全然見つかりませんでした）
単にコントロールの.hWndを一緒に渡してみたんですけど、
すぐ帰ってきてしまってしまうんですよね。
戻り値は１だったからエラーではないみたいなんだけど・・・。
良かったら使い方も教えて下さい。
0192デフォルトの名無しさん
NGNGイベントオブジェクトを渡すのですよ。
Win32API散歩道に少し載ってる。
0193デフォルトの名無しさん
NGNG>>166さんの「tagに値を入れる」ことで
なぜあれが解決できるのでしょうか？
２重ループにしてtagの値を探し出せってことでしょうか。
それだとずいぶん非効率な気がしますが・・
VB.NETになってからコントロール配列が使えなくなって、
本当に不便だと思っています
いい解決方法ご存知の方、お願いします
0194デフォルトの名無しさん
NGNGすべてはSystem.Objectから派生している。
すべてのコントロールはControlから派生している。
子クラスは親クラス型の変数に代入できる。
VB.NETはObject型の配列を宣言できる。
0195デフォルトの名無しさん
NGNGやば、UserControlもあるかも。
まぁ、コントロール配列とオブジェクトの配列は紙一重。
0196即レス
NGNGリンク切れﾀﾞﾀﾖ
>>180
98以上、2000以上限定でもいいなら
GetMouseMovePointsExが使える。（未確認)
それ以外は･･VBだけ使うならマウス位置の監視かな。
>>181
とりあえず最初はDoevents入れないでループすると
イベントが発生しない、と覚えとき。
0197デフォルトの名無しさん
NGNGVB.NETはVBではないと見抜けない人は、
（VB厨房のレッテルを剥がすのは）難しい。
0198デフォルトの名無しさん
NGNG面白いので先生が来るまで語ります。
Windowsはメッセージ駆動のOSです。
アプリケーションはWindowsから
「マウスが押された」
「キーが叩かれた」
などのメッセージを受け取ってそれにしたがって各種処理をします。
VBではこのメッセージをわかりやすい形に変換してイベントとしています。
この辺はVBのイベントドリブンでなんとなくわかっているかと。
ここで、確認しておきたいのは、
一つのプログラムの中で二つのイベントは同時に実行できない点です。
（スレッドは無視）
例えばOnClickで無限ループを作った場合ほかのイベント処理は一切行えなくなります。
そこでDoEvent。
これは一旦現在の処理を地中断して別のイベントや処理を行うためのプロシージャ？です。
別の処理を実行後、またもとの処理を再開します。
0199191
NGNG書籍なんですね。
今度探して立ち読みしてきます。
とりあえずはWaitForSingleObjectを回すよりはタイマーで処理した方が
いいような気がしてきたので、そうしてみる事にします・・・。
ありがとうございました。
0200193
NGNGつまりいったんObject型の配列を作成してコントロールを代入、
それをループで使えばいいということでしょうか？
イベントの受け取りなんかは、やっぱり
Handles Button1.Click, Button2.Click,Button3_Click,.......
のように延々書いていくしかないんでしょうか
一か月分のデータ入力でテキストボックスが３０個もあるような
画面の場合、どう対処すればいいのか頭が痛いです。
0201デフォルトの名無しさん
NGNGprivate components
0202Ｈ
NGNGそれは、VB6 Runtimeライブラリをインストールしようとするときにエラーが出ていると言うことデースネィ？
お手上げです。
プログラム板に行って、MSDN Library Visual Studio 6.0を持っている人を見つけ、
その人に、Visual Basic Runtime LibraryのInstall時に出るError 6とはどういう意味ですか？ また、回避方法について教えてください。
とでも質問してみてください。
＞＞教えて下さい
0203193
NGNGcomponents や IContainer をキーワードに調べてみたんですが、
さっぱり分からないです・・・ 201さんがくれたヒントは、
Windowsフォームデザイナが生成する
Private components As System.ComponentModel.IContainer
という変数を使えばどうにかなるということなんでしょうか？
自分でもまだ調べてみますが、よろしければもう少しヒントを
お願いします。
0204デフォルトの名無しさん
NGNGComponentCollectionにGetEnumeratorがあるのでC#ならforeachで
フォーム上のすべてのコンポーネントにアクセスできる。
後はtagの値かnameで判断。
VBは知らないでう。
0206Ｈ
NGNGゲームやＶＢ等のセットアップ画面で
（後ろの画面が青色になるところ）セットアップをはじめますか？
ってでるんですけど、そこでＯＫを押すと
Run-time error6
Overflow
とでてセットアップができないんです。。どうすれば？本当に困ってます
0207193
NGNGDim obj As System.Object
For Each obj In Me.components.Components
Debug.Write(obj.GetType.Name())
Next
こんなコードを書いてみたんですが、実行エラーに
なってしまいます (~_~;)
For Each obj In Me.components.Components.GetEnumerator()
Debug.Write(obj.GetType.Name())
Next
こっちではそれ以前にビルドエラーです。
一体何が悪いんでしょうか・・
0208138
NGNG0209即レス
NGNG見て無かったよ。すまんね。
dim byte1() as byte,byte2() as byte,byte3() as byte
byte1=cstr(byte2) & cstr(byte3)
こんな感じかな。正常に動くとは思うが。
>>206
それはインストール時にコードが間違ってるからエラーが出る。
ランタイムソフトなら他のランタイムを入れる。
通常のソフトなら作ったところに聞いてみる。
0211デフォルトの名無しさん
NGNGいいますが、アクセスやオラクルなどのデータベースソフト単品と
VB+アクセス・オラクルとではどう違うのですか？どういう利点があるのですか？
0212175
NGNGソース見直してみたら確かにそうでした・・・。
ワケわからんサンプル置いた奴は誰じゃ！（ｗ
GetCursolPosか何かでマウス位置とってそこにメニュー出せばいけますね。
ご教授ありがとーございますた。
0213デフォルトの名無しさん
NGNG「コンパイル」のタブにある、コンパイルの違いは何ですか？
DQNな質問でｽﾐﾏｾｿ・・・。
0214デフォルトの名無しさん
NGNGDim hogehoge
hogehoge = "あいうえお"
Open hoge.txt For Output #0
Write #0,hogehoge
Close #0
上のような処理でhoge.txtとに「あいうえお」という文字が記述されるテキストを
作成したときに、かならずhoge.txtの中が「"あいうえお"」のようなカンジで、
ダブルクォーテーションで囲んだようになってしまいます。
これがつかないようにする方法ってないのでしょうか…？
0215デフォルトの名無しさん
NGNGすんません。自己解決しました。失礼いたしやした
0216デフォルトの名無しさん
NGNG0217.NETレス
NGNGイベントはAddHandlerで追加すればOK。
例)
Public Class MyForm1
Inherits Form
Friend textBox1() As TextBox = New TextBox(30){}
Public Sub New()
MyBase.New()
Me.ClientSize = New Size(640, 480)
Dim i As Integer
For i = 0 To 30
textBox1(i) = New TextBox()
textBox1(i).Size = New Size(30,30)
textBox1(i).Location = New Point((i mod 5)*30, (i \ 5) * 30)
textBox1(i).Text = CStr(i+1)
Me.Controls.Add(textBox1(i))
AddHandler textBox1(i).KeyPress, AddressOf textBox1_KeyPress
Next
End Sub
Public Shared Function Main(ByVal CmdArgs() As String) As Integer
Application.Run(New MyForm1())
Return 0
End Function
Private Sub textBox1_KeyPress(ByVal sender As Object, ByVal e As KeyPressEventArgs)
e.Handled = True
End Sub
End Class
0218即レス
NGNGVBの方がいろいろ細かい制御が出来るし
フロントエンドなら軽いし、
ネイティブコンパイルもある。
>>214
コンパイルの仕方を決める。
p-codeはコンパイルが早くて実行が遅い。
ネイティブコンパイルはその逆。
つか、MSDN見れ。コンパイルタブを
選択してからF1を押すのだ。
>>216
スレ違い、どころか板違い。
Bleem!が一番動くが動作率は60%ぐらいだな。
動作は400MHzのMX400あたりで十分動く。
0219.NETレス
NGNGSystem.Collectionsのクラス使った方が便利。
0220デフォルトの名無しさん
NGNG隣のコマンドボタン押したら、デフォルトのメーラの新規メールが起動して、
テキストボクースのアドレスを送信アドレスに貼り付けたいのですが、
どうしたら良いですか。
0221デフォルトの名無しさん
NGNG大丈夫か？なんかレス番メチャクチャだぞ。
お疲れ｡
0222デフォルトの名無しさん
NGNGShellExecuteで"mailto:メールアドレス タイトル"とかやってみたら？
間違ってる可能性大だけど。
0225デフォルトの名無しさん
NGNG0226.NETレス
NGNGunsafeポインタは無理なんで、配列←→ポインタ間は
Marshal.Copyを使ってコピーしてみました。
以下、InvertのVB.NET版。(Try～Catchは実験用に入れてる)
・サイズ指定とか引数指定とか間違うとTry～Catchでも引っかからずに落ちるので注意。
Imports System.Runtime.InteropServices ' Marshalクラスに必要
Public Shared Function Invert(ByVal b As Bitmap) As Boolean
'// GDI+ still lies to us - the return format is BGR, NOT RGB.
Try
Dim bmData As BitmapData = b.LockBits(new Rectangle(0, 0, b.Width, b.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim stride As Integer = bmData.Stride
Dim Scan0 As System.IntPtr = bmData.Scan0
Dim p As Byte() = New Byte(stride * b.Height-1){}
Marshal.Copy(Scan0, p, 0, stride * b.Height)
Dim nOffset As Integer = stride - b.Width*3
Dim nWidth As Integer = b.Width * 3
Dim y , x As Integer
Dim index As Integer = 0
For y=0 To b.Height-1
For x=0 To nWidth-1
p(index) = (255-p(index))
index += 1
Next
index += nOffset
Next
Marshal.Copy(p, 0,Scan0, stride * b.Height)
b.UnlockBits(bmData)
Catch ex As Exception
MessageBox.Show(ex.StackTrace + " " + ex.Message + " " + ex.GetType.ToString())
Return False
End Try
Return True
End Function
0227マサ
NGNGその中にあるファイル名を全て抜き出すようなことをやりたいのですが
Dirでやってもファイルの属性によって出る結果が違ってどうにもなりません・・・
サブフォルダの中は考えなくていいものとして、これはどうやったらできますか？
具体的にやりたいことはフォルダを指定したらその中にあるファイル名を全て
ListにAdditemしたいのですが・・・
よろしくおねがいします。
0228マサカ
NGNG0229マサ
NGNG初心者ですので・・・。
こんな私でもそれなりに一生懸命調べて、考えたんです！
それでもわからなかったから質問してるんです。
こんな私にでもわかるように教えてください。
0230173
NGNGNETではもう少し環境が整うまでグラフィックは難しいかなぁ･･･と
めげてたのですが、動きました、凄い！ありがとうございます。
これでまた目標をもって勉強できます！
0231デフォルトの名無しさん
NGNGそれが教えてもらう初心者の取る態度か？
0232デフォルトの名無しさん
NGNG初心者は
何を言っても
許される
0233マサ
NGNGいいじゃないですか・・・
それぐらい教えてくれても。もったいぶった言い方して！
ここは質問をするところなんでしょう？
だから質問しているのに、なんで怒られなくちゃいけないんですか。
わからないから教えて欲しい、と言っているだけなのに。
0234デフォルトの名無しさん
NGNGここはｱﾌｫな質問をするVB初心者を叩くスレです
0235＿
NGNG変数を宣言するのですが、この変数、いくつまでの配列を使うかは
わからないんです。あとからどんどん足される可能性があって。
たとえば100コ分を宣言しておくんだったら
Dim TestPos(100) As RECT
のような記述になると思うんですけど、
不特定多数になる場合にはどうすればよいのでしょうか。
その都度、新しい分を追加することなどで対処できるのか
それともはじめに10000とか、有り得ないぐらいでかい数を取っておくのか・・・。
よろしければ、教えてくださいまし。ヽ(´ー｀)ノ
0236デフォルトの名無しさん
NGNG228のしょうもない煽りに反応しなさんな。
Dir関数の第２引数で取得したいファイル群の属性を指定できる。
属性の指定はOrで複数指定できる。要は、全属性指定してやれば、
全部取得できるわけだ。
0237デフォルトの名無しさん
NGNGDim TestPos() As RECT
で宣言しておいて、必要になったらRedimで確保。ヘルプ見れ。
>ヽ(´ー｀)ノ
あっそ。
0238デフォルトの名無しさん
NGNGサラ金地獄 借金どろぬま夫婦
0239デフォルトの名無しさん
NGNGはげしくスレ違い
0240デフォルトの名無しさん
NGNG先頭200バイトだけ、みたいに読み込ませることはできますか？
0241デフォルトの名無しさん
NGNG0242デフォルトの名無しさん
NGNG0243138
NGNG正常に動きました。
非常に助かりました。ありがとうございました。
0244あ
NGNG0245デフォルトの名無しさん
NGNGできますよ。
流石にそこまでクソ言語じゃありません。
0246あ
NGNG0247デフォルトの名無しさん
NGNG「DBCombo」と「DataCombo」の違いはなんでしょうか？
コンボに連結したレコードセットの中身を毎回更新しながら、
同時にコンボに表示されるものも変えていきたいのですが、
どちらを使った方が良いのでしょうか？
0248あ
NGNGできればやり方をおしえていただければありがたいのです。
0249デフォルトの名無しさん
NGNG誰か教えてく。
0251デフォルトの名無しさん
NGNGここは
0252あ
NGNG賢い方と見込んでぜひお答えお願いします。
0253即レス
NGNG?
>>231
初心者を煽るなよ。
>>244
function a()
end function
>>249
function mona()
Gosub hoge
msgbox "´Д｀"
exit function
hoge:
msgbox "´∀｀"
return
end function
これで分かる？
0254デフォルトの名無しさん
NGNGここは
0255あ
NGNG助かりました。ありがとうございます。
0256あひゃ
NGNGユーザーコントロールってあるじゃないですか。
自分で作るActiveXコントロール。
あれ作ったんですよ。それで普通にLetやGetのプロパティ
とか作ったコントロールは、フォームに貼り付けたら
プロパティウィンドウにちゃんとそのプロパティが
出てくるんです。これは良んですが、ここにリスト
で設定するようにするにはどうすれば良いのか分からないです。
標準であるListBoxコントロールのプロパティウィンドウ
に出てくるListやItemDataみたいなやつです。
プロパティのコードで引数２つ（１つ目がIndexで２つめが
プロパティ設定値）持つような形で作ったら
プロパティウィンドウにそのプロパティ出てきませんTT
教えてエロい人！
0257デフォルトの名無しさん
NGNG0258あ
NGNGどうすればよいですか？
0259デフォルトの名無しさん
NGNGいいますが、アクセスやオラクルなどのデータベースソフト単品と
VB+アクセス・オラクルとではどう違うのですか？どういう利点があるのですか？
0260デフォルトの名無しさん
NGNG＞ファンクション関数
関数関数
0261あ
NGNG0262あひゃ
NGNG教えてYO!
0263デフォルトの名無しさん
NGNGエロいけど知らないから教えられない。
0264即レス
NGNG俺もエロい方だが無理っぽい。
配列で渡すと表示されないからな。
プロパティページつくって代用しとく？
>>258
凄まじく情報不足。
>>259
>>218の>>212は>>211の間違い。
DB系は少し苦手なんだけどね。
0265デフォルトの名無しさん
NGNG先に起動していたアプリのとあるプロシージャを実行させ自分は終了
これどーすんの？
0266デフォルトの名無しさん
NGNGメッセージでも送れ。
0267デフォルトの名無しさん
NGNGこの知識はそのままVBとオラクルやSQLサーバー等のデータベースソフトとの
接続及び処理することに応用できますか？それともアクセスとオラクルとでは
接続の仕方などは違うのですか？
0268デフォルトの名無しさん
NGNG0269デフォルトの名無しさん
NGNGクリソツ
0270デフォルトの名無しさん
NGNGWith screen
.SelColor=vbRed
.Text=.Text+"Red"
.SelColor=vbYellow
.Text=.Text+"Yellow"
.SelColor=vbBlue
.Text=.Text+"Blue"
End With
のようにやっても、結局すべての文字色が最後のvbBlue
になってしまいます。どうすれば分けられるのでしょうか？
エロにかかわらず、教えてください。お願いします。
0271デフォルトの名無しさん
NGNGテキストとかの形式のファイルなら、そのままOpen ～～～ for input as #1
とかでできるんですけど、rarとかの中身がぐちゃぐちゃになってるような
ファイルだと、ちゃんとファイルの内容が取得できくなってしまいます。
rarなら、 rar! と、ここまでしか読んでくれません。
こういうデータを秀丸のように、文字化けしながらでも読み込ませるには
どうやったらいいのでしょうか。
270ではないですが、エロにかかわらず、ヨロシクお願いします
0272デフォルトの名無しさん
NGNGそりゃそうなるだろ（ｗ
0273270
NGNGうすうす気づいきながらやってみたのですが、やっぱそうなりました。
でも、そうならない方法がどうしてもわからないです。
0274即レス
NGNG>>270
With RT1
.Text = ""
.SelText = "Red"
.SelStart = 0
.SelLength = 3
.SelColor = vbRed
.SelStart = 3
.SelText = "Yellow"
.SelStart = 3
.SelLength = 6
.SelColor = vbYellow
.SelStart = 9
.SelText = "Blue"
.SelStart = 9
.SelLength = 4
.SelColor = vbBlue
.SelLength = 0
End With
普段RichTextBox使ってないのでこんな感じ。ちぇ。
もうちょっとスマートにできそうだけど。
>>271
Binaryで読んでStrconvで文字列に変換すれ。
0276デフォルトの名無しさん
NGNGおぉ～。バイナリで開くとそうならないんですか。
よくわかりました。早速やってみます。ありがとうございました。
0278デフォルトの名無しさん
NGNG0279デフォルトの名無しさん
NGNGマトモに女と話したこと無い兼話せないタイプなの？
0281デフォルトの名無しさん
NGNG勝手にForm1ってクラスできてるでしょ？
そのNameを Form1 から frmMain に変えるとビルドエラーが起きるんだけど
原因教えてください。
Sub Main が ～.Form1 に見つかりません、ってエラー表示なんですが
0282前に200バイトだけ読み込みたいと言ってた者
NGNGところで、例えば1000バイトあるファイルのうち、
500バイト目～700バイト目までを読み込もうとすると
700まで配列を確保しておいて、700まで読み込んでから
500～700を切り出すしか方法はないのでしょうか。
これぐらいの小さい数字ならいいのですが
数百Mもあるファイルの中の520Mバイト～521Mバイト、
とかを読もうとするといちいち521Mも読み込まなくてはならないことになり
こんな不便なことがあるわけないと思いました。
もしこういうことが楽にできる方法があるのなら、
どうか教えていただきたいのですが、質問ばかりですみません・・・・
0285即レス
NGNGま、がんばれ。
0286デフォルトの名無しさん
NGNGおっぱいが大きければいい。
0287デフォルトの名無しさん
NGNG途中で「このインストーラはこのOSには対応してません」
みたいなエラーが出た人、います？
0288デフォルトの名無しさん
NGNG（･∀･）ｲｲ!!
Else
Exit Sub
End If
0289デフォルトの名無しさん
NGNGVS.NETはbeta2どまりだが、
スタートアップフォームの指定を変更すればOKじゃないかな。
プロジェクトを選択して、右クリックで指定のダイアログを出せたような。うろ覚えすまそ。
>>287
VS97をWin2000に俺入れてるけど、そのメッセージは見たことないな。
(環境的に問題ないわけではないが、標準コントロールしか使わない俺には関係なし)
0290デフォルトの名無しさん
NGNG（･∀･）ｲｲ!!
Else
MsgBox Err.Number & Err.Description, vbCancelOnly, "貧にゅう"
End If
0291デフォルトの名無しさん
NGNG行われているのですか？
Dim a(100) As Long
Erase a←不要？
0292即レス
NGNGプロセス終了時のプロセスが所持していたハンドル、
メモリの解放などはOSが保証している。9xでも一緒。
9x系のメモリリーク問題はメモリの再利用の問題だったかな。
つーわけでいらんと言えばいらんが、不用になったら解放するのがマナー。
あと、その例じゃ解放されないぞ。Eraseで解放されるのは動的配列。
固定配列は初期化するだけ。
0293デフォルトの名無しさん
NGNGそうでした。ｽﾏｿ＜初期化するだけ
なるほど、マナーの問題ですな。ちゃんと消します。ありがとございました！
0294_
NGNGもう全くどこから手をつけていいやら・・・。
MD5とかSHA-1とか種類がありますが、
これ、どうやってつくればいいんでしょうか。
0295即レス
NGNG0297即レス
NGNGｱﾌｫ丸出しですね
0298即レス ◆ok/f5F1o
NGNG0299デフォルトの名無しさん
NGNG荒らすな
0301デフォルトの名無しさん
NGNGそんなあたなにﾄﾞﾄﾈﾄ
0302デフォルトの名無しさん
NGNGところが、サブフォルダの中にまだファイルがある場合、それも取得しなくては
いけないことに気付いてしまいました・・・。
ファイルの一覧を取得
↓
フォルダの一覧を取得
↓
一つ目のフォルダに移動
これを繰り返せばできるような気もするんですが、
普通にDirを使ってがんばるしかないのでしょうか。
0304シッパイダーマン
NGNGアイコンの変更ができない！だれか教えてください。
アイコン変更ツール使ってもVBのexeは変更できないんだよね～
みんなどうやっているの？
0305デフォルトの名無しさん
NGNGコンパイルする前に設定すればいいんじゃねーでしょうか？
0308シッパイダーマン
NGNGそんなとこありました？
0311シッパイダーマン
NGNG0314即レス ◆ok/f5F1o
NGNG例えばこんな感じ
Option Explicit
Private Sub Form_Load()
Call hoge(0)
End Sub
Private Sub hoge(hage As Integer)
If hage = 10 Then Exit Sub
MsgBox "hoge=" & hage
Call hoge(hage + 1)
End Sub
0315シッパイダーマン
NGNG0316即レス ◆ok/f5F1o
NGNGそのフォームのアイコンはプロパティで変えれるでそ？
0318デフォルトの名無しさん
NGNG0320即レス ◆ok/f5F1o
NGNGdirで一覧を取得しながら、取得したのがﾌｫﾙﾀﾞならまた自分を呼べばそのﾌｫﾙﾀﾞの一覧を取得するでしょ。
そうやってれば、ﾌｫﾙﾀﾞがいくら深くても平気でそ？
0321デフォﾉﾚトの名無しさん
NGNGDir()で一覧取得してる途中に再帰しちゃうとね。
0323デフォﾉﾚトの名無しさん
NGNGありゃ、ばらしちゃったの？面白かったのに。
0325302
NGNGAPIか何かで代用が効くものがあるのかもしれない・・・
調べてみよ。
0326シッパイダーマン
NGNGアイコン変更できました！ありがとうございます
ほんとにレス早速いですね！
>>314 なんか信じられないです。
0327デフォﾉﾚトの名無しさん
NGNGんにゃ、再帰であってるよ。
Dir()で一覧取得し終わってから
再帰すればいいだけ。
俺はいつもそうしてるよ。
>>324
いや、頑張れ。
間違っててもイイじゃん。
誰かフォローしてくれるよ。
0329302
NGNGttp://www-user.interq.or.jp/~komurak/progtec/005.htm
このサンプルを片手にやってみようと思います。
0331デフォルトの名無しさん
NGNGDir関数で一覧取得した後に再帰するのでもいいが、
FSO使えばもっと簡単だろうに。
Win95でIE4以降を導入していない環境だと使えないけどさ。
別にそういう環境を考慮しての話でもないでしょ？
0333デフォﾉﾚトの名無しさん
NGNGその条件ちょっと違う。
FSOはWSHがインストールされてないといけない。
WSHはWin98標準では入ってない。
自分で使うだけならFSOの方がいいんだろうけど、
俺はFSO嫌いなんで。
0334デフォルトの名無しさん
NGNGWin98ってIE4標準で、IE4にはWSHが標準で付属していたような・・・
未確認。
0335あ
NGNGk = kyori(3, 4)
Print k
End Sub
Function kyori(x As Double, y As Double) As Double
kyori = Sqr(x ^ 2, y ^ 2)
End Function
タイマーオブジェクトとファンクションを組み合わせるとどうしても
エラーになっちゃうんですが、何故ですか？
0336即レス ◆ok/f5F1o
NGNG0338デフォﾉﾚトの名無しさん
NGNGSqr関数はルートを取る関数で引数は１つだぞ。
0339デフォルトの名無しさん
NGNG,じゃなくて+だよな？
0340デフォﾉﾚトの名無しさん
NGNGああ、分かった。2点の距離を求めたいのか。
×kyori = Sqr(x ^ 2, y ^ 2)
○kyori = Sqr(x ^ 2 + y ^ 2)
だ。
0341デフォルトの名無しさん
NGNG0342即レス ◆ok/f5F1o
NGNGちょっとつまづいたらこうして２ｃｈで聞ける。
昔は、２，３日悩むのは普通だったような気がする。
0343デフォﾉﾚトの名無しさん
NGNGWSH1.0がWin98に入ってる、というドキュメントを見つけた。
しかし俺がFSO嫌いになった理由ってWin9xでの開発を始めた頃に
FSOが使えなかったからなんだが。
うーむ。俺が馬鹿だったからなのか？むう...明日調べてみる。
>>342
お前厨房やったんちゃうんかと小一時間。
0344デフォルトの名無しさん
NGNG本物に化けた偽者を演じている本物ですか？
0345デフォﾉﾚトの名無しさん
NGNG本物じゃないよ。
0346デフォルトの名無しさん
NGNG昔は、ネットはおろか、本、雑誌もあんまりなかったよ。
だからひたすらソースと睨めっこ。マニュアルと睨めっこ。
何日でも悩むものは悩むもんさ。
ま、言っても、最近のプログラミングは知ってるか知らないかの差っていう
部分のウェイトがかなりを占めるからわからなくて悩んでても仕方なかったりする罠。
0347即レス ◆ok/f5F1o
NGNG＞ま、言っても、最近のプログラミングは知ってるか知らないかの差っていう
＞部分のウェイトがかなりを占めるからわからなくて悩んでても仕方なかったりする罠。
これは、今も昔もそんなに変わらない気はする。
基本が身についてしまったから、そう思うだけだと思うけど。
0348デフォﾉﾚトの名無しさん
NGNGアルゴリズムも知ってるか知らないかのもんだからな。
まあ確かにいい時代だと思うよ。
ネットってスゴいね、なんて言ってみたり。
0349デフォルトの名無しさん
NGNGリア工房時代困ってたもんなぁ。
まだネットも無かったし近くの本屋にプログラム関係本なんて一冊も置いてないような状態だったからね。
聞ける人間も１人もいねえし。
今は調べたい事にvbとかサンプルとかキーワード追加してググれば分かっちゃう。
スゴイ。
0350デフォルトの名無しさん
NGNG他のByte型配列に移したいのですが、良い方法は有るでしょうか？
Mid$()やLeft$()のようなことをByte型配列でも行いたいのです。
0351デフォルトの名無しさん
NGNG0352デフォルトの名無しさん
NGNG英語版VB6をインスコする。
0354デフォルトの名無しさん
NGNG自力で処理する関数かいとけば？
Forループで回して地道にコピーするやつ。
0355即レス ◆ok/f5F1o
NGNGちょっとやってみたよ。どうかな？
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub Command1_Click()
Dim aaa(100) As Byte
Dim bbb(100) As Byte
aaa(20) = Asc("a")
aaa(21) = Asc("b")
Call CopyMemory(bbb(50), aaa(20), 2)
MsgBox Chr(bbb(50)) & Chr(bbb(51))
End Sub
0356即レス ◆POP.SOKU
NGNG0357即レス ◆POP.SOKU
NGNG正直出てくるかどうか迷ったんだけどね。
頑張れ、>即レス ◆ok/f5F1o
>>350
一応こんな感じで。
Function hoge()
Dim a(255) As Byte, b() As Byte
Dim i&
ReDim b(255)
For i = 0 To 255
a(i) = i
b(i) = i
Next i
b = MidB$(CStr(b), 1, 100) & CStr(a) & MidB$(CStr(b), 101)
Stop
End Function
止まった所でローカルウィンドウでbの中身見るのだ。
でも正直お勧めはしない。CopyMemoryの方が速いし
メモリリークも少ないからね。
0358デフォルトの名無しさん
NGNG>357
共にちゃんと動きました。
ご忠告に従い、CopyMemoryを利用させて頂きます。
ありがとうございました。
0359即レス ◆ok/f5F1o
NGNG0361即レス ◆ok/f5F1o
NGNG0362即レス ◆ok/f5F1o
NGNG0363即レス ◆ok/f5F1o
NGNG0364デフォルトの名無しさん
NGNG荒らさないでね
0367即レス ◆ok/f5F1o
NGNG0368即レス ◆Nx38Gvxk
NGNG0370即レス ◇ok/f5F1o
NGNG0371370即レス ◇ok/f5F1o
NGNG0372即レス ◆DYlDk.BE
NGNG0373即レス ◇ok/f5F1o
NGNG0376即レス ◇ok/f5F1o
NGNGうあーん。
0377即レス ◆POP.SOKU
NGNGとりあえずこっちへ行け。
http://www.geocities.co.jp/SiliconValley-Bay/6637/trip.html
なんで分からんのか分からんぞ。
0378即レス ◇ok/f5F1o
NGNGうえーん。
0379デフォルトの名無しさん
NGNG0380即レス ◆POP.SOKU
NGNG今は亡きまとれすの発言。
----------------------------------------------------
363 ：まとれす ◆mato/KTI ：02/05/12 18:27
>>361
いっぱいありすぎて書ききれないくらい変わったぞ。MSDNの「Visual Basic 言語の新機能」を
見てみると、
「継承」、「例外処理」、「オーバーロード」、「プロパティとメソッドのオーバーライド」
「コンストラクタとデストラクタ」、「データ型」、「インターフェイス」、「デリゲート」
「共有メンバ」、「参照」、「名前空間」、「アセンブリ」、「属性」
などが紹介されているな。もちろん、これ以外にもコンポーネント（CLR）も変わってるし、
ADOなどのミドルウェアも変わってる。
はっきりいって、別の言語だと思ったほうがよいかもしれん
----------------------------------------------------
ということ。
まとれす帰ってこないのかな。
0381デフォルトの名無しさん
NGNGSet pr_Form1 = p_Form2
Set p_Form2 = Nothing
なぜパブリック変数をプライベート変数に代入する必要があるのですか？
メモリリーク問題に関係があるのでしょうか？初心者なもんで、教えてください
0382デフォルトの名無しさん
NGNG何でいなくなったの？まとれす。
まぁ俺はおっぱい大きい女が好きだがﾅｧ。
0383即レス ◆POP.SOKU
NGNG既に作成されてるパブリックオブジェクトを
プライベートで再参照しても参照カウンタが増えるだけで
メモリの無駄使いにはならない。
他の所でそうしたほうがうまく行くからじゃない？
その情報だけではこれぐらいしか言えん。
0384デフォルトの名無しさん
NGNG0385デフォルトの名無しさん
NGNGそれどっからひっぱってきたソース？
それだけじゃなんだかさっぱりわからねっす。
まぁ俺はおっぱい大きい女が好きだがﾅｧ。
0386即レス ◆POP.SOKU
NGNG>何でいなくなったの？まとれす。
帰ってきて欲しいんだけどな。
>まぁ俺はおっぱい大きい女が好きだがﾅｧ。
俺は可愛い子が好きだっつってんだろ。
0387デフォルトの名無しさん
NGNG女はおっぱいが大きいにかぎるぜ。やわらかくてあったけーぞぉー。
まぁ俺はおっぱい大きい女が好きだがﾅｧ。
0388３８１
NGNGいたものです。プライベートにしたほうが、他のモジュールから参照できなくて
いいのですかね？もとのフォームに戻るのにもかんけいあるのでしょうか？
0389３８１
NGNG0390即レス ◆POP.SOKU
NGNGむう、難解なコード＆難解な文章だな。
多分パブリックオブジェクトをプライベートにしたがってるようだが
そもそもそんなことをする理由が不明だ。
全体を見れば分かるかも知れんぞ。
作者の趣味の可能性もある。
0391デフォルトの名無しさん
NGNG気にするな
0392デフォルトの名無しさん
NGNG例えば
form2に新たに（又は再び）移ってきたときにはpr_form2の値は常に
初期化されていなければならないような場合。
そして違うformでpr_form2の値をしようするような場合。
であれば私はそうするかもしれないですね。
form2のloadイベントで初期化すればいいという話もありますが・・・・・。
まぁ俺はおっぱい大きい女が好きだがﾅｧ。
0393デフォルトの名無しさん
NGNG実はちゃんとした理由があるのかもしれないじゃん。
思いつきでバグとかいうなよ。
0394デフォルトの名無しさん
NGNG0395デフォルトの名無しさん
NGNG0396デフォルトの名無しさん
NGNG元のフォームをたどりたいとか、イベント拾いたいとか。
pr_Form1にWithEventsが付いてるか知らんけど。
まぁ俺もおっぱい大きい女の方が好きだがﾅｧ。
0397デフォルトの名無しさん
NGNG0398デフォルトの名無しさん
NGNG0399デフォルトの名無しさん
NGNGもうでてるんだっけ？なんか勝手にformオブジェクトになってる観対だけど。
まぁ俺はおっぱい大きい女が好きだがﾅｧ。
0400デフォルトの名無しさん
NGNG0401デフォルトの名無しさん
NGNGんですが、有志が作っているツール（有名なものでは『自動芋』等）の
いくつかで、ゲーム中の経験値やHP・SPを表示させる機能があるんです。
VB5で開発するつもりなんですが、そういったデータはどこに格納されて
いてどうやって取得すればよろしいんでしょうか？
サーバーから受け取ったデータはメモリに書き込まれてかもと他所で
言われたんですが、メモリにあるデータを抜き出す関数等がわかりません。
どなたかご教授願えれば幸いです。
0402即レス ◆ok/f5F1o
NGNG0403デフォルトの名無しさん
NGNGここで聞くのは間違ってるな。
有志に聞くがよい。
0404デフォルトの名無しさん
NGNGこの「スクリーンショットを取る」という事を、実際のモニタに表示せずに行う事は
可能でしょうか？
0405即レス ◆POP.SOKU
NGNGメモリにあるって言ってもどこにどういう属性で入ってるか、とか
どうやって公開してるのか、とかが分からんとどうしようもない。
403の言うとおり制作元に聞け。
>>404
GetDCでもkeybd_eventでPrintScreen送るんでも
どっちでも可。
0406デフォルトの名無しさん
NGNG0407401
NGNGこちらへ来たんですが… こっちもダメっすか(；´Д｀)
ツール作者にどういう方法で表示してるんですか？と尋ねるのは、なんか
失礼かと思ったので… ソフト作者に「どういう方法で○○してるんですか？」
などと、普通は尋ねにくくないですか？(；´Д｀)
0408404
NGNGさんきゅです。
M$のページでGetDCのサンプル見つけたんで、これ使って挑戦してみます。
0409即レス ◆POP.SOKU
NGNG気持ちは分かるが仕方ないな。
DLLやらWinSockやらフックする方法もあるし
逆汗も手段の一つだがVBだけじゃ出来ない。
もしかしたらROのヘルプあたりに書いてるかもな。
>>406
もうええっちゅーねん。
0410デフォルトの名無しさん
NGNG0411デフォルトの名無しさん
NGNGここで質問するより、検索するほうが早い。
まず、データファイルやレジストリをパラメータが変化する
前後で比較するのが第一歩。
他アプリのメモリを参照するのは面倒だから。
VBでやってるツール＆サイトもいちおうあったが。
0412デフォルトの名無しさん
NGNG初心者スレだし、検索ワードぐらい教えてあげた方がいいと思うんだけど…
初心者は、知りたい情報がどういう方法か、どういう仕組みかすらわからない
のが多いし、検索ワードすら分からないんじゃないかと。とりあえずヒントを
与えて、あとはそいつに自己解決させるようにした方がいいんじゃないかな？
0413デフォルトの名無しさん
NGNGま、
・APIの関数名をテージされたら、"関数名 VB"で検索。
・MSDNで検索
これで良しじゃない？
原因はただﾞレスつける人間が面倒なだけという事実に65,536ﾊﾞﾄﾞｴﾙ
0414デフォルトの名無しさん
NGNG再度の接続時にconnectするところでVBが反応しなくなります。
Windows2000+Visual Basic6.0を使用していますが、原因がわからずに困っています。
何か心当たりが有れば教えて頂けないでしょうか？
0415デフォルトの名無しさん
NGNG0416デフォルトの名無しさん
NGNG401に、君には無理だからあきらめなさいと言ってあげなさい。
そうじゃないなら、なんかヒントだしなさいな。単なるごみレスじゃん。
俺からのヒントは以下の通り。
ReadProcessMemory
WriteProcessMemory
たぶん411の言ってるツール知ってるわ。
0417デフォルトの名無しさん
NGNG0418デフォルトの名無しさん
NGNGファイル名をたとえば、No.1、No.2・・・・No.iというような名前にしてファイルを
作成したいのですが～、
ファイル名の中の「i」が、ファイルの中の変数のiと一致するようにしたい
のですよ。
このようなことはできるのでしょうか？
たとえば、Open "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\No.i.xls" For Input As #1
のようにして、ファイルを作成すると、当然iの部分は""の中にあるので
変数にはなりません。
どーしたらいいんでしょうか？
0419デフォルトの名無しさん
NGNGOpen "C:\WINDOWS\ﾃﾞｽｸﾄｯﾌﾟ\No." & i & ".xls" For Input As #1
でいけると思う。
0420414
NGNGLocalportを設定しなくても、Localport=0をconnectの前に入れても、症状は同じです。
VB本体を再起動すれば、普通に繋がりますが、
やはり一度切断すると再接続でVBがフリーズします。
0421山太郎
NGNG接続要求を受ける側のプログラムも自作？
もしそうなら、そっちが複数接続を受けられる作りになってる?
0422200
NGNGイベントハンドラをどう簡素化するか」の疑問が解消していません。
MSDNの「Visual Basic .NET におけるコントロール配列の変更点」の
トピックを読んだんですが、イベントハンドラについては単に
ズラズラと書き並べる方法しか書いていませんでした。
もっと効率的にソースを記述するにはどうすれば良いのでしょう？
いい方法があれば教えてください。よろしくお願いします。
0423デフォルトの名無しさん
NGNGPublic Fugu(1 To 35, 1 To 20) As Variant
Fugu = array("
これに6桁のデータを最後までびっしり入力すると
コンパイルエラーに。。。
括弧なんかは一応ついているはずなのですが
これって容量の問題なのでしょうか。
どなたか・・・。
0424デフォルトの名無しさん
NGNG文字のバイト数を知るのはどうしたらいいですか？
ためしに、LENB関数で調べてみたら
"あ",”ア","ｱ","a" 全て2バイトで帰ってきます。
全角か半角かの判別をしたいんですけどうまくいきません。
だれか、教えてください・
0425デフォルトの名無しさん
NGNGLenB？だっけな？
0426山太郎
NGNG0427ななし
NGNGそれはFAQ。
StrConv(Source, vbFromUniCode)
してから、長さを判定すれば、半角 = 1, 全角 = 2
と判定されるはず。
0428414
NGNG受け側は自作では有りませんが、複数接続は大丈夫です。
0429424
NGNGUNICODEが問題だったんですね。
やってみます。
また、教えてください。
0430デフォルトの名無しさん
NGNGtsvファイルのレコードを１件読み込み
→読み込んだレコードの各フィールドをそれぞれ変数に代入
→各フィールドの書式が正しいかどうかチェック
→チェック結果をtsvファイルで出力
という処理を作りたいのですが、
Line Input#を使うと、フィールド毎に分割することが出来ないし、
split関数を使うと、動的配列に各フィールドの文字列が
代入されてしまうのでその後のチェック処理が上手くいきません。
分かりにくい質問とは存じますが、どうかよろしくお願いします。
0431デフォルトの名無しさん
NGNGあるとしたら、どうやって調査したらいいでしょうか？
0432デフォルトの名無しさん
NGNGバイナリダンプ。ランタイムも含めて。
とかいってみる。
0433デフォルトの名無しさん
NGNGそうか。気がつかなかった。恥ずかしい。どうもありがとうございました。
0435.NETレス
NGNG217で書いたコードで、AddHandlerを使ったイベントハンドラの一括登録はわかった？
イベントハンドラでそれぞれのコントロールに対して何がしたいか知らないけど、
イベントが発生したオブジェクトはsenderを見ればわかるから、
例えばそれがTextBoxなら、
CType(sender, TextBox).Text = "イベントのあったテキストボックス"
とか普通に使えばいい。
別のやつが書いてたようにTagプロパティに番号を入れておけば、
それを今までのIndexのように使うこともできる。
0436デフォルトの名無しさん
NGNG例えばマスタメンテ画面なんかだとテストとPGでどれくらいなんでしょうか？
ちょっとスレの趣旨と外れているのかなぁ？どなたか教えていただけませんか？
0437デフォルトの名無しさん
NGNG工数？ 金額？
> 例えばマスタメンテ画面なんかだとテストとPGでどれくらいなんでしょうか？
大雑把すぎ。機能と仕様しだい。
それと工数だったら、担当者の技能による。
0438デフォルトの名無しさん
NGNG工数でおながいします。
機能と仕様はマスタのメンテ（追加・更新・削除）
レコードの一覧を表示してそれを選択することでメンテしたいものを
指示できるようなリストボックスなどがついていたりする。
ってところですかね。DBはMSDEにしておこうかな。
0439デフォルトの名無しさん
NGNGactiveXDllは？
0440デフォルトの名無しさん
NGNGおれなら1.5日。
って、フィールド数100列とかやめてね。
0441デフォルトの名無しさん
NGNGなるほど。それぐらいなんですね。
ちょっと頑張りすぎてしまったかも。もうすこしゆっくりやります。
ありがとうございました。
0442デフォルトの名無しさん
NGNGそれって設計とかテストとかデバッグとか入れた工数？
0443デフォルトの名無しさん
NGNGコードはどんなふうにしたらいいのでしょう？
invチェックのセクションを増やすだけでしょうか？
0444デフォルトの名無しさん
NGNGDB側でエラー返ってこないの？
というかDBは何よ？
0445デフォルトの名無しさん
NGNG0446440
NGNG>それって設計とかテストとかデバッグとか入れた工数？
その辺、不明確だったな。一応、以下のつもりでの工数。
不明点の確認、詳細設計、コーディング＆デバッグ、単体テストの工数。
前提：基本設計は除く＆DBのテーブル定義がまともなこと。
0447440
NGNG不明点の確認は、上司またはお客様から即時に回答頂けるものとします。
0448200
NGNG>>200です。おかげさまで、ようやく自分でも動く
サンプルを作ることができました！！
まだ動き的には理解しきれていない部分も多いんですが、
とっかかりができたので何とかなりそうです。
ありがとうございました。
0449即レス ◆POP.SOKU
NGNG1 行に記述できるコードは 1,023 バイトまで。
そこらへんで引っかかってないか？
>>430
Line Input で１レコード読み込んで
SplitをVbTabで割ってフィールドごとの
処理が出来るんだが。
それじゃいかんの？
>>431
最初はタスクマネージャで調べるのが普通かな。
>>439
DCOMは分散COMの略で複数のコンピュータで
処理を分け合う技術。DLLだけじゃどうしようもない。
0450デフォルトの名無しさん
NGNGどれもモジュールレベルで、ほかのプロシージャから参照できる、だけどほかのモジュールからは参照できない。
そう思っているのですけど・・・。
0452デフォルトの名無しさん
NGNGＶＢだと
SET オブジェクト変数 = NOTHING
でいいけどわからんで困っとります。 だれか教えてください。
0453デフォルトの名無しさん
NGNGData EnvironmentデザイナやData Reportデザイナ、ビジュアルデータマネージャー
はVBでのデータベース処理をする上で必須ですか？
僕の持っているのはラーニングエディションなので使えないのです.
0454デフォルトの名無しさん
NGNGオブジェクト変数 = Nothing
だけでいいと思ったけど、違うのか？
0455デフォルトの名無しさん
NGNG知っているにこしたことはないけど、必須ではないと思う。
ミドルウェア(ADOとかoo4oとか)と、SQLを使えるってのが基本だと思う。
045645②
NGNGホントはそれでいいとおもうんだけど
ＶＢ６から.NETに移行したんだけど
UPGRADE_NOTE: オブジェクト gRec をガベージ コレクトするまでこのオブジェクトを破棄することはできません。 詳細については、'ms-help://MS.VSCC/commoner/redir/redirect.htm?keyword="vbup1029"' をクリックしてください。
って真上に書いてあった。
0457デフォルトの名無しさん
NGNGダブルクリックを検出したいんですが、どうすればいいでしょうか？
Clickイベントしかないのです。
MouseDownイベントが短い間隔で2回呼ばれたら・・・という処理をするしかないですか？
0458デフォルトの名無しさん
NGNGでキーボードの動作を殺せたんですが、どうも .net ではうまくいきません。
どうすれば Keycode=0 と同じ結果を得られますか？
0459ＶＢ初心者
NGNGＶＢでメニューエディタを使わずに、動的にメニューを作成したいのです。
ＡＰＩを使う方法はわかったのですがＡＰＩはなるべく使わずに
メニューを動的に作成する方法はありますでしょうか？
下記のようにCommandButtonを動的に作成できるのと同じように
メニューも作成できると思ったのですができないんどえす。
お知りの方おられましたらお教え下さい。
Option Explicit
Private WithEvents DynButton As CommandButton
' ・動的コントロールを実際に追加するコードは、次のようになる。
' プロパティは､追加するコントロールで必要なものを設定する｡
Private Sub Command1_Click()
Set DynButton = Form1.Controls.Add("VB.CommandButton", "DynButton")
DynButton.Caption = "動的コントロールボタン"
DynButton.Left = 400
DynButton.Top = 100
DynButton.Width = 2000
DynButton.Height = 400
DynButton.Visible = True
End Sub
Private Sub DynButton_Click()
MsgBox "DynButton クリック"
End Sub
0460450
NGNGありがとうございます。
そうしたら、モジュールレベルの変数を宣言したい場合は、General部分に
Public、Private、Dimのどれで書いてもいいってことでしょうか？
0461_
NGNGListViewコントロールを使っているのですが
これで全ての項目の全てのカラムをひとつごとに選択できる
（エクセルみたいに・・・）ようにはできないのでしょうか。
標準だと最初のひとつのカラムのものしか選択できないのと
各行ごとに選択するのとしか設定できなかったようなのですが。
おながいします。
0465即レス ◆POP.SOKU
NGNGMouseDown、Upを組み合わせて判定する。
ダブルクリック時間とマウス移動距離は
GetDoubleClickTimeとGetSystemMetricsで取得。
別にClickで判定してもいいけど。
>>459
メニューはインデックス付けてLoad/Unloadで
同じ階層のメニューの追加/削除は出来るが、
新しく作成、などは出来ない。
ＡＰＩで出来てるんならそっち使っとき。
0466ジョブ
NGNG10人分のプログラムについて、一人ずつ成績判定を行うプログラムを
作る。途中までコードを記述してあるので、残りのプログラムリストを
完成させなさい。
ヒント:成績判定の部分は多分岐構造になるので、Select～Caseステート
メントを使うといいでしょう。以下 プログラム リスト
Sub 反復型の成績判定()
' 10人分の得点を設定
Dim X As Variant
X = Array(60, 82, 87, 50, 86, 89, 76, 58, 68)
' 判定文字列の設定
Dim hantei As Variant
hantei = Array("不可", "可", "良", "優", "対象外")
Dim h As Integer
Const N As Integer = 10
Dim i As Integer
Dim tokuten As Integer
For i = 1 To N
tokuten = X(i - 1)
0467デフォルトの名無しさん
NGNG宿題は自分でやれ
0468デフォルトの名無しさん
NGNGとりあえず自分でやってみよう。
そして何がわからんのか再度質問してくれ。
それができないのなら明日友達に写させてもらえ。
友達が居ないのなら氏ね。
0469デフォルトの名無しさん
NGNGモジュール消したいんですけど
「消したい標準モジュールを右クリックで開放」を
VBAで書くとどうなりますか？
0471デフォルトの名無しさん
NGNG0473デフォルトの名無しさん
NGNGModules(0).Deleteとやると自分自身を殺すことになるからエラー
多分Modules("Module1").Deleteも同じ
0474469
NGNGありがとう。
でも、Modulesじゃ駄目なんですよ。
下の一行で消えてほしいが消えてくれない・・・
ActiveWorkbook.VBProject.VBComponents.Item(7).Remove
（消したいモジュールが７番目だったら）
0475デフォルトの名無しさん
NGNGという文字列を、"\"で分割して順番にコレクションにためていくには、どうすればいいですか？
0476デフォルトの名無しさん
NGNG0477469
NGNGActiveWorkbook.VBProject.VBComponents.Remove ActiveWorkbook.VBProject.VBComponents.Item(7)
で出来ました。すまん。
0478デフォルトの名無しさん
NGNGsplitを、どう使えばコレクションに順番にためれますか？
いまいち使い方がわからないのです・・・。
0479デフォルトの名無しさん
NGNGDim s() As String
Dim c As Control
Dim i As Long
s() = Split("佐藤 \ 鈴木 \ 田中 \ 伊藤 \ 山田 \ 加藤", "\", , vbTextCompare)
For Each c In Form1.Controls
c.Caption = s(i)
i = i + 1
Next
End Sub
Form1にコマンドボタン５,６個配置してやってみてくらさい。
>>478
0480デフォルトの名無しさん
NGNGいいたいことは分かるんだけど。
コレクションに順番にためれますか？の説明にはなてないね。
配列にためられるんでごわすといったんさいな。
0481461
NGNG縦列は additemとかで出来た。これは簡単だったんだけど
横列はどうやって追加すりゃいいんだ？
あと「2列目の3個目の項目のテキスト」を変える方法とかもｻﾊﾟｰﾘ
糞みたいなこと訊いてると思うんで申し訳ないがヒントでも下さい・・・。
0482デフォルトの名無しさん
NGNGｒｏｗｓ
ｔｅｘｔｍａｔｒｉｘ
0484.NETレス
NGNG>>452
変数 = Nothing
とできるがあまり意味はない。これでメモリが解放されるわけではないので。
参照されていないオブジェクトはガベージコレクションが適当なタイミングを見計らって、
自動的にメモリを解放する。
まぁ、Nohtingにしておいて、GC.Collectメソッドを使えば、
ガベコレが動くが、ガベコレがメモリ解放をする動作はそれなりに重い処理だから、
基本的に自動でやらすのが妥当。
>>458
>Keycode=0
>でキーボードの動作を殺せたんですが、どうも .net ではうまくいきません。
どうもうまくいかないって何をやったん？
KeyDownイベントのe.KeyCodeプロパティはReadOnlyだから代入はできんはずだが。
>どうすれば Keycode=0 と同じ結果を得られますか
e.Handled = True
でいけるよ。
＃KeyPressイベントの(KeyPressEventArgs)e.Handled=Trueで文字のASCII文字の入力は防げるが、
＃どうやら日本語はうまく防げない。
従来のVB。
>> 450
Publicの場合は、他のモジュールから参照できるぞ。
Form1で宣言してるなら、
Form1.そのPublic変数
でアクセスできる。
>>459
どっちみちイベント拾わないと意味ないから、
API使っとき。さもなくば.NETだ。
>> 478
Splitは文字列の配列を返すから、
それをループでコレクションにAddしなさい。
0485デフォルトの名無しさん
NGNGDOSプロンプトで
copy /c c:\a.txt+c:\b.txt c:\a.txt
とやった場合は結合したa.txtファイルを作れるのでスが
VBで作ったソフト上でshell関数を使い
Shell "command.com /c copy c:\a.txt + c:\b.txt c:\a.txt", 1
とやった場合b.txtのデータだけのa.txtというファイルができてしまうのですが
どうすればShellをつかいファイルを結合してふたたびすでに存在するファイル名で保存できるのでしょうか？
0486糞レス ◆9lhU6w7.
NGNGいいざます
>>477
謝ることないよ！
>>478
応援してます
>>479
お疲れさまです
>>480
「ごわすといったんさいな」どこの言葉ですか？
>>481
がんばれ！
>>482
全角かよ！
>>483
よかったですね
>>484
お疲れさまです
0487デフォルトの名無しさん
NGNG0488デフォルトの名無しさん
NGNG0489デフォルトの名無しさん
NGNGおかしかったのか！
しかし、文字列型に変換されてたはず！
なぜなんだー！さてとｶﾞﾝﾊﾞﾛ
0490Komine:
NGNG10人分のプログラムについて、一人ずつ成績判定を行うプログラムを
作る。途中までコードを記述してあるので、残りのプログラムリストを
完成させなさい。
ヒント:成績判定の部分は多分岐構造になるので、Select～Caseステート
メントを使うといいでしょう。以下 プログラム リスト
Sub 反復型の成績判定()
' 10人分の得点を設定
Dim X As Variant
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
' 判定文字列の設定
Dim hantei As Variant
hantei = Array("不可", "可", "良", "優", "対象外")
Dim h As Integer
Const N As Integer = 10
Dim i As Integer
Dim tokuten As Integer
For i = 1 To N
tokuten = X(i - 1)
0491デフォルトの名無しさん
NGNGVB6.0とVB.NET、今からプログラミングを勉強しようと思ったら
どちらを始めたほうが良いでしょうか？
0492デフォルトの名無しさん
NGNGファイルを開いて、その中に文章をPrintで書き込みたいのですが、その本文中に
「" "」があって、その部分がプログラムだとみなされてしまうのですが、
こういう場合「"マーク」を無視させることはできるのでしょうか？
たとえば
Open "D:\bb.txt" For Output As #i
Print #i,""hello"aiueo kakikukeko "sasisuseso"kekeke"
とかなって、わけわかんないことになってしまうのですが・・・。
0493デフォルトの名無しさん
NGNG467 名前：デフォルトの名無しさん 投稿日：02/06/04 20:09
>>446
宿題は自分でやれ
468 名前：デフォルトの名無しさん 投稿日：02/06/04 20:35
>>466
とりあえず自分でやってみよう。
そして何がわからんのか再度質問してくれ。
それができないのなら明日友達に写させてもらえ。
友達が居ないのなら氏ね。
0494MCSD
NGNGそろそろFileSystemObjectに切り替えろよ21世紀なんだから
>>491
VB.NETに決まってる。今からVB6なんてやっても何のアドバンテージにもならん。
>>492
ダブルコーテーション中のダブルコーテーションは二つ続けて書け
Print #i,"""hello""aiueo kakikukeko ""sasisuseso""kekeke"
0496MCSD
NGNG'********************
Sub 反復型の成績判定()
Dim X As Variant
Dim hantei As Variant
Dim tokuten As Integer
Dim h As Integer
Dim i As Integer
' 10人分の得点を設定
X = Array(60, 82, 87, 50, 56, 86, 89, 76, 58, 68)
' 判定文字列の設定
hantei = Array("不可", "可", "良", "優", "対象外")
For i = LBound(X) To UBound(X)
tokuten = X(i)
0497ＶＢ初心者
NGNGメニューの件ですが、お返事ありがとうございます。
やっぱり無理なんですねー
参考になりました。
API関数では下記のような方法でできるのですが、とてもしんどいです。
'●ポップアップメニュー作成
hMenuPopup_Disp = CreatePopupMenu()
'ポップアップメニュー項目作成
Call AppendMenu(hMenuPopup_Disp, MF_ENABLED Or MF_STRING Or MF_CHECKED, IDM_DISP_ICON, "大きいアイコン(&G)")
0498458
NGNG情報ありがとうございます。
当然、Kyecode=0 で代入できるわけもなく、いろいろと試行錯誤してました。
>＃KeyPressイベントの(KeyPressEventArgs)e.Handled=Trueで文字のASCII文字の入力は防げるが、
>＃どうやら日本語はうまく防げない。
これ、これを正におききしたかったんですが、日本語は難しいのかなー
他の代替手段も考えてみます。
ありがとうございました。
0499即レス ◆POP.SOKU
NGNGパスはショートパスに変換して渡してる？
ちなみにそのDOSの例間違ってるぞ。
>>491
まあNETなんだろうなあ。
MSが推奨してる技術でこけた物はいっぱいあるが
NETは言語的にも楽そうだし。
>>497
ポップアップメニューの表示の話かい！
そんなら、Form1.Popupmenu [メニューの名前]だ。
0501デフォルトの名無しさん
NGNGショートパスに変換とはどういうことでしょう？
>ちなみにそのDOSの例間違ってるぞ
ありゃりゃ。どこがまちがってます？
0502即レス ◆POP.SOKU
NGNGどうせ対象ファイルはc:\a.txtじゃなくどっかのファイルなんだろう？
スペースが入ってたりすると認識できないので
ショートパス（DOS名とも言う）に変換する必要があるんよ。
>ありゃりゃ。どこがまちがってます？
COPYは"/c"なんてコマンドはない。
0503デフォルトの名無しさん
NGNGなるほど、ショーとパスについてはわかりましたが
例で上げた
c:\a.txt + c:\b.txt c:\a.txt
の用にパスにスペースが入ってない場合でもうまくいかないのですが
0505485
NGNGファイルをコピーしました
となって
a.txtとb.txtを結合したのにb.txtの内容のみのa,txtができあがってしまいます
とりあえずPart8か9のほうもみてみます
もしよければ即レスさんのうまくいっている
shell関数を使ったVBのコードをかいていただけたらたすかります
0506116
NGNGOption Explicit
Private Sub Command1_Click()
Shell "command.com /c copy c:\a.txt + c:\b.txt c:\a.txt", 1
End Sub
こうだ。c:\a.txtは"a"、c:\b.txtは"b"が入ってる。
実行後はc:\a.txtに"ab"だ。他に何か理由があるかもな。
0507即レス ◆POP.SOKU
NGNG0508485
NGNGそのコマンドだけでformで作って結合だけさせたらうまくいきました
実はその結合コマンドの前にデータ内容を入れたa.txtを作成してまして
作成したあと
さらにそのあと作成したa.txtとすでに存在しているb.txtを結合させて
a.txtという名前でふたたび保存しようとすると
コピー前に送り先側の内容がなくなりました。
となってb.txtのみの内容のa.txtができてしまうようです
解決方法などありますでしょうか？
0510485
NGNGすいませんすこし調べていたのでちょっと時間が空いてしまいました
すこし省略しましたがこんな感じです
Private Sub Command10_Click()
Dim i, ii,iii, deta
i = "c:\a.txt"
deta = "a"
Open i For Output As #1
Debug.Print i
Print #1, deta
Close #1
'テキスト結合
ii = "command.com /c copy c:\b.txt + c:\a.txt c:\a.txt"
iii = Shell(ii, 1)
End Sub
どうも
c:\a.txt + c:\b.txt c:\a.txt
の場合はうまくいきますが
c:\b.txt + c:\a.txt c:\a.txt
と逆に結合した場合はうまくいかないようでこまってます
0511デフォルトの名無しさん
NGNGすごく揚げ足取りで悪いんだが、
＞Dim i, ii,iii, deta
↑
これはいくらなんでも・・・。
0512デフォルトの名無しさん
NGNG＞"command.com /c copy c:\b.txt + c:\a.txt c:\a.txt"
コピー元とコピー先を同じにしない。これ基本。
0513デフォルトの名無しさん
NGNGできないもんなんですかね
できるならできればそうしたいのです方法があるなら教えてくださいってことなんですが
0514即レス ◆POP.SOKU
NGNGbをa書き込んだ後には古いaが存在してないからだな。
COPYの仕様か。
>>512の通り、"c:\b.txt + c:\a.txt c:\c.txt"でcを作って
cをリネームしとき。
0515デフォルトの名無しさん
NGNG＞コピー元とコピー先を同じにしない。これ基本。
これを「場合によってはいける！」と読むあなたに乾杯。
0516デフォルトの名無しさん
NGNG0517デフォルトの名無しさん
NGNG世の中便利になってね、CP/Mの時代にdelと言うコマンドが開発された。
0519デフォルトの名無しさん
NGNG自動並び替えなどになっていた場合ファイルを消した場合自動的にファイルが並び変わってしまい
リネームしたものは最後尾に行ってしまうと思うんですが
できれば常に同じ位置になるようにしたいんです
DOSプロンプトから実行した場合はそのままの位置でできるので
SHELL関数を使った場合でそうできないものでしょうか
0520デフォルトの名無しさん
NGNGそもそも、
読み込みモードで開いて変数に内容保持。
書き込みモードで開きなおして保存。もしくは追記モードでファイル開く。
0521デフォルトの名無しさん
NGNGそれだと、データ量が多い場合ものすごく時間がかかってしまうので
COPYコマンドで結合しようと思ったわけなんです
0522デフォルトの名無しさん
NGNG中ではおんなじことやってると思うぞ。お兄さんは。
0523デフォルトの名無しさん
NGNG0524デフォルトの名無しさん
NGNG後学のために、ファイルのコピーを高速で行うアルゴリズムってあるの？
それとも純粋にDOS API+アセンブラとWin32API+VBの速度差？
0525デフォルトの名無しさん
NGNGバイナリで直結させてるから早いんだろ？
0526デフォルトの名無しさん
NGNG申し訳ない、もうちょっと噛み砕いて。
appendモードで開いてるって話？
0527デフォルトの名無しさん
NGNGただ直結させるだけ
だから早いんだろ
0528デフォルトの名無しさん
NGNGcommand.comってFAT直接操作してるんすか・・・。
DOSの標準シェルの癖にDOS API無視？
0529デフォルトの名無しさん
NGNGそれを結合しようとしたとき
一個づつ開いて読みこんで変数に記憶ってこと500回やってるとおもいますか？
そんなことやってあれほどすばやく結合できない
後は自分で考えてくれ
0530デフォルトの名無しさん
NGNG0531デフォルトの名無しさん
NGNGVS買うほどカネもないからStandard買っていろいろやってるんだが、
コンパイルできんのか、VSないと。
コマンドラインからできるみたいなんだけど。
0532デフォルトの名無しさん
NGNGF5押してみ？
0533デフォルトの名無しさん
NGNGあ、デバッグはわかります。
今までVS上でしかVB触ってなくて、VSだと、
ファイル ＞ Project.exeの作成 ってできたんだけどなーってことです。
0534デフォルトの名無しさん
NGNG0535とうとう(・∀・)キター!
NGNGシリアルプリンタによる連続固定帳票への印刷。だが今回、とうとう手をつけ
ることになってしまいまった。
ということで、お勧めの帳票ツール、システム構成上での注意事項、コーディング
のコツなどの情報があれば是非教えてほしいのココロ。
帳票ツールは、出来れば独立してて直接DBから読み出せるのが吉。が、安定性
一番、値段が二番ということでよろしくお願いいたしまする（拝）
0536デフォルトの名無しさん
NGNGメモリのバッファ変数
0537デフォルトの名無しさん
NGNGやめとけ。やられるぞ。
0538デフォルトの名無しさん
NGNGAccess。
いろいろと叩かれてるが、あのレポートだけ独立させて
くれんかなーと常々思う。
0539デフォルトの名無しさん
NGNGどういう仕組みなんだろ。
0540デフォルトの名無しさん
NGNGどうやって送りますか？
0541デフォルトの名無しさん
NGNG死ぬ気でICMP実装。
0542即レス ◆POP.SOKU
NGNGたしかディスク上に分割しているデータは
セクタに次のデータへのセクタ番号が
書いてあるんじゃなかったかな。
メモリ使わずに連結、ならそれを書き換えてるんだろう。
（自信なし。あてにしないでね。）
>>540
簡単にしたいのならDOSプロンプト。
DOSとの通信はたしか名前なしパイプで出来たはず。
0543540
NGNGありがとうございます。
DOSプロンプト無しでは無理でしょうか。
ネットワークの通信テストソフトを作りたくて、一定時間おきに永久にPINGを打つ
ソフトにしたいのです。細かいこと書かずにすみませんでした。
0544デフォルトの名無しさん
NGNG＞一定時間おきに永久にPINGを打つ
DoSを使わずには無理ですなｗ
0545即レス ◆POP.SOKU
NGNGICMP関係のAPIがあるからそっち使うか？
まあいつものごとく英語だけど。
サンプル。
http://www.geocities.co.jp/SiliconValley-SanJose/3279/scrap.html
0546ヽ(´ー｀)ノ
NGNGListView.ListItems(ListNum).SubItems(SubNum)
のような形で取れるかと思いきやできないっぽいんですけど・・・。
0548デフォルトの名無しさん
NGNGListView.ListItems(ListNum).SubItems(SubNum)
↓
ListView.ListItems.Item(ListItem).SubItems(CheckNum)
これじゃないの？
0549546
NGNGListView.ListItems(ListNum).SubItems(SubNum)
↓
ListView.ListItems.Item(ListNum).SubItems(SubNum)
こうだね。
0550デフォルトの名無しさん
NGNGファイルのサイズはFileLenで取れますが
いちいちフォルダ内全てのファイルに対してFileLenする、など以外の方法で
フォルダ全体のサイズを取得することはできますか？
0551デフォルトの名無しさん
NGNG0552550
NGNGそんなことできるわけないですよね（汗
いちいちファイルを一つごとにDirする等以外の方法で
フォルダ内のファイルの数は調べれますか？の間違いです・・・
0553535
NGNG>Access。
>いろいろと叩かれてるが、あのレポートだけ独立させて
……出来る？(^^;
いや、Accessにはあまり偏見は無い。叩かれるのは使い方を判ってない
バカな開発者のせいだ。Accessは、Accessで出来ることだけに開発範囲を
留めておけば、VBよりよっぱど開発効率は高い。
が、そもそも、Windowsで連続固定帳票へ印刷できるとは考えてなかったので、
自然とAccessは選択しから外れてしまいまったのよ(^^; 穴明き帳票をWindows
で印刷するには、何かしらイリーガルな操作をしなけれ
ばならない、って固定観念ですわね。
正直、クリレポやActiveReportを使わずに出来るのか？＞連続固定帳票印刷
＃もちろん、「実用になるか」っつー意味ですので(^^; ←ツッコミ防止用
0554ごみレス ◆WuzDVM0M
NGNGhttp://www.microsoft.com/japan/developer/library/default.asp?URL=/japan/developer/library/vbenlr98/vaobjFiles.htm
0555デフォルトの名無しさん
NGNG下矢印を押したときにイベントを発生させたいのですけど、
フォーカスが移動するだけなんです。
どうすればいいでしょう？
もちろん、フォームのKeyPreviewはTrueにしました。
失敗例
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
0557デフォルトの名無しさん
NGNGマジレス。
スクロールバーを動かしたいのよ、っていうか動かさなきゃいけないのですよ。
つまんないこたえでスマソ。
0558デフォルトの名無しさん
NGNGコマンドボタンをサブクラス化してWM_KEYDOWN
あたりを補足すれば逝けそうな気がしないでもない。
面倒くさそう。
0560デフォルトの名無しさん
NGNGそんなめんどくさいことを入社２ヶ月
新人にやらすようなドキュソ会社は
逝ってよしですか
0561デフォルトの名無しさん
NGNGプロならまずそのクソ仕様に噛み付く。
Windowsの標準操作に合わせないと
そりゃ～おそろしいことになるぞ～って脅かしておけｗ
0562ＷＥＢ系初心者
NGNGこの板にまします神々！お教えくださいm(__)m
0563.NETレス
NGNG>>531
> VS買うほどカネもないからStandard買っていろいろやってるんだが、
> コンパイルできんのか、VSないと。
532の言う通り。F5でOK。今までのVBと違ってVC++とかと同じで、
毎度ビルドで実行ファイル作って実行してる。
だから、別途、実行ファイル作成なんてメニューはない。
ソリューションかプロジェクト辺りを選んで右クリックして
出てくるダイアログでReleaseビルドとDebugビルドを切り替えられたと思う。
＃VS.NET beta2は使ってたけど、
＃今はVS.NET(VB.NET、VC#.NET含む)は持ってないんで、
＃細かいところはヘルプで調べてみてくれ。
> コマンドラインからできるみたいなんだけど。
vbc /t:winexe /out:HelloWorld.exe /r:System.dll /r:System.Windows.Forms.dll HelloWorld.vb
例えば、こんな感じでできるぞ。
コンパイラのオプションについては.NET Framework SDK ドキュメントの
.NET Framework SDK
- リファレンス
- コンパイラおよび言語リファレンス
- Visual Basic
- Visual Basicのプログラミング
- Visual Basic コンパイラ オプション
以下に載ってる。
ちなみに、これらのコンパイルのオプションはVS.NETではサポートしていないのもある。
で、従来のVB
>>540
Shell関数でPing飛ばしてリダイレクションでファイルに書き込んで、
そのファイル読むのじゃだめ？
>>552
まじめな手で一番楽なのは552だろうな。
ファイル数32767までじゃないとアウトだが、
FileListBoxのCountプロパティって手も。
自分用のちょっとしたツール程度ならこれでもOKだけど・・・
>>555
Windowsの仕様。
0565デフォルトの名無しさん
NGNGバッチファイルにしとけば？
0566ＷＥＢ系初心者
NGNG初心者なのでよく分からないのですが。。。
ＡＳＰとかならブラウザ上で入力すると
ＷＥＢ上のＤＢからデータを取ってきて
表示できたりするじゃないですか。
それを既にあるエクセルの管理表から行いたいのです。
どういう方法があるのでしょうか？
どんな本にやり方が書いてあるですか？
教えてください。おながいします。
0567デフォルトの名無しさん
NGNGWebのは普通、外部からはDBにアクセスできないと思う。
Webサーバ上のあるプログラムがDBサーバからデータを取ってきて表示してるだけ。
LAN上での話ならWebは関係なく、VBでDBに接続するのとかと同じような感じで、
ExcelVBAからもできるだろう。
0568デフォルトの名無しさん
NGNGバッチでエクセルのデータをＤＢにいれてからにしたほうがいいよ
0569デフォルトの名無しさん
NGNG日本電気様がうちに丸投げした仕事なんですけど
そんなことしたら倒産なんですけど
0570デフォルトの名無しさん
NGNG0572即レス ◆POP.SOKU
NGNGLostFocus時に押されてるキーを取得、とか
その条件ならCommandButtonにフォーカスが来た時に
スクロールバーにフォーカス移すとか。
サブクラクス化が一番手っ取り早いけどな。
0573本家糞レス ◆kuso.GD6
NGNG★ActiveXコントロールをフォームに貼らないで使用する
※ただし、タイプライブラリが提供されていること
ここではWinsockコントロールの例で、クラスモジュールを使っている
Private WithEvents MySock As MSWinsockLib.Winsock
Private Sub Class_Initialize() 'クラスの初期化と同時に作成
Set MySock = New MSWinsockLib.Winsock
End Sub
後はこのクラスモジュールに自分でPublicの独自イベントや、プロパティ、メソッドを公開するべし
このクラスモジュールをClsSockとクラス名にしたとすれば
フォームや標準モジュールで
Public(Private) ObjSock As ClsSock 'ClsSockクラスよりオブジェクトの作成
Sub Main
Set ObjSock = New ClsSock 'これでインスタンス作成
End Sub
配列やコレクションを使うと便利。やってごらん（´・ω・｀）
0574本糞レス ◆kuso.GD6
NGNGごめんごめん
参照設定忘れてた（´Д｀；）
コンポーネントとしてではなく
タイプライブラリ参照で、Mswinsck.ocxを直接参照してね
でも正常に動くか保証はないよ
なんだそりゃ
だから糞レスなんだよ（´・ω・｀）
0575デフォルトの名無しさん
NGNGわらた
0576デフォルトの名無しさん
NGNGディレクトリ(SYSTEMディレクトリ)に置いておくだけの
タイプのがあるけど、区別ってできるの？
0577555
NGNG>LostFocus時に押されてるキーを取得
このやり方激しくキボンヌ
他の方々、サブクラス化というのも含めて調べていますけど、
自分には難しいです。
LostFocus時に押されてるキーを取得
ができれば逝けそう。調べてて半日つぶれてしまった
0578即レス ◆POP.SOKU
NGNGAPIになるけどGetASyncKeyStateとかで。
ただLostFocusとキーボード入力の時間差が
結構あるから注意ね。
>>576
レジストリ登録タイプはDllUnregisterServerとかの
関数がエクスポートされてるはず。
0579576
NGNG即レスTHANX！ ということはregsvr32.exeで登録できない
ものは、パスが通ったディレクトリに置いておけばいいって
ことやね。
0580デフォルトの名無しさん
NGNGちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。
VB自体が駄目というより、VBしかできない奴が駄目なんだろうな。
ちなみにVBオンリーユーザって、過去にVC++にもチャレンジ
してたりするんだけど、殆どが挫折してVBに戻っちゃうんだよな。
0581デフォルトの名無しさん
NGNG調べてやってみていたら サブクラス化で右クリックを取得して、
TrackPopupMenuExでメニューを出す、と理解できたのですが
TrackPopupMenuExの使い方が・・・。
これでのウィンドウハンドルの指定はどういう意味になるのでしょうか。
それと「オーバーラップ領域」と書かれていたのですが
これは何の意味なのですか？教えていただきたいです。
0582デフォルトの名無しさん
NGNG時間をｍｓｅｃまでだしたいんです。どうやったらいいのでしょうか？
どうか、教えて下さい。
0583デフォルトの名無しさん
NGNGTimer関数が実数を返すんじゃなかったかしらん
秒以下を調べたきゃ小数点下を見ればいいと思うのん。
0584デフォルトの名無しさん
NGNGTimeGetTimeﾄｶ。
0585デフォルトの名無しさん
NGNGパフォーマンスカウンター使うの
0586デフォルトの名無しさん
NGNG時間だったら、WindowsAPIのGetLocalTime関数を使え。
>>583
PC98系で小数以下はないという罠。
>>584
正確にってなら、timeGetTimeな。
timeBeginPeriodも。
0587www
NGNG教えてください。
0589デフォルトの名無しさん
NGNGチミの実力を試しているんだよ。出来なければクビ（げらげら
まぁサブクラス化でキー押下とっても２、３０行程度でできるじゃん。
作った後で「こんな仕様で本当にいいんですか？」とかいって
ささやかな反撃かましておけｗ
0590555
NGNGみなさんマジ感謝です。結局LostFocusでできました。
>>589
実力も何も、会社入ってVBさわったんだけどね。
2ヶ月もやってりゃ普通できるのかな？
ちょっと鬱になってきた。
こんどはマウスホイールだと、会社のMSDNが2000春
なんだけど、そのころってホイール付きマウスってあったっけ？
0591デフォルトの名無しさん
NGNG>実力も何も、会社入ってVBさわったんだけどね。
そんなとこじゃなく、柔軟にいろんなことを吸収できるかどうかが試される。
要は伸びないやつはいらんってこった。
> こんどはマウスホイールだと、会社のMSDNが2000春
> なんだけど、そのころってホイール付きマウスってあったっけ？
この文章で何をいいたいのか、だいたい予測はできるが、日本語変だぞ。
555の質問文見てても思ったが、もちっと日本語をまともにかけるようになろう。
0592デフォルトの名無しさん
NGNG.Range("セル名").Formula = "=COUNTA([" & ブック名 & "]" & シート名 & "!$A:$A)"
で、ブック名に"a-b.xls"のような、-や+が入るファイルを指定すると、
アプリケーションまたはオブジェクト定義のエラーを吐いて止まってしまいます。
どうやったら回避できるのでしょうか?
0593デフォルトの名無しさん
NGNG.Range("セル名").Formula = "=COUNTA([" & ブック名 & "]" & シート名 & "!$A:$A)"
で、ブック名に"a-b.xls"のような、-や+が入るファイルを指定すると、
アプリケーションまたはオブジェクト定義のエラーを吐いて止まってしまいます。
どうやったら回避できるのでしょうか?
0594592
NGNG0595デフォルトの名無しさん
NGNGまぁそれでも出来るだろうが。
LoadLibraryとGetProcAddress使うのもいい。
#つか、そういう時はDLLの付属のドキュメントに
#どちらか書いてあると思うが。
>>581
ウィンドウハンドルはメニューのメッセージを取得するウィンドウ。
オーバーラップ領域はこの場合表示可能な領域。
Popupmenuで同じ事出来るのでそっち使っとき。
>>582
timeGetTimeか
QueryPerformanceCounterと
QueryPerformanceFrequency。
timeGetTimeは20msec以下の数字は
どのOSでも不正確なので注意。
>>587
アバウトすぎ。
>>590
よかったな。
2ヶ月じゃあAPI使わせるのはどうかと思うぞ。
「VBだけで出来るだろ」と思ったんでないの？
ホイールは95世代でもあったはず。
>>592
'a-b'みたいに ' でくくって見れ。
0596即レス ◆POP.SOKU
NGNG0597592
NGNG試してみましたが、エラーが取れません。
0598即レス ◆POP.SOKU
NGNG× "=COUNTA([a-b.xls]Sheet1!$A:$A)"
○ "=COUNTA('[a-b.xls]Sheet1'!A1)"
これで分かるか？
0599576
NGNG作成済みアプリの配布パッケージを手動で作ってたもので･･･。
0600デフォルトの名無しさん
NGNGできればＤＬＬ等は使いたくないんですが。
0601デフォルトの名無しさん
NGNG0602600
NGNGソーリィ
VB6でというのが抜けてました。
0603デフォルトの名無しさん
NGNG任意のイベントを発生させたいとおもいます。
どうすればいいですか？
たとえばマウスアップで、エンターキーとか。
0604デフォルトの名無しさん
NGNG0605デフォルトの名無しさん
NGNGPublic Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
これですか？
でもこれをどう使うのかがわからないです。
0606デフォルトの名無しさん
NGNGえむえすでぃーえぬ
0607デフォルトの名無しさん
NGNG俺はVB使えないから知らんが、さっきぐぐってたら
VBでホイール制御してるページあったぞ。所望のものとは違うかもしれんが。
http://www.google.co.jp/search?q=vb+WM_MOUSEWHEEL&hl=ja&btnG=Google+%8C%9F%8D%F5&lr=lang_ja
0608デフォルトの名無しさん
NGNGえっと、私がやりたいのは、たとえば、
XXX というコントロールがあって、
それの、hwnd は判明している。
hwnd を頼りに、
XXX_Click というイベントが起きるようにしたいんです。
判明しているのは、hwnd であって、XXX は不明です。
0609デフォルトの名無しさん
NGNG対応するWindowsメッセージを投げてください。
レイズしろ
0612デフォルトの名無しさん
NGNG以下のプログラムを技術点、速度点、メモリー使用量点の平均で判定するように直せ。
[Form1]
Option Explicit
Private Sub Form_Load()
Dim marks As clsMarks
Dim n As Long
Set marks = New clsMarks
With marks
.SetTestData
For n = 1 To .Count
With .Item(n)
Debug.Print (.sProgrammerName & "の得点は" & .nPoint & "点、成績は" & .sMarkString & "です。")
End With
Next
End With
End Sub
0613デフォルトの名無しさん
NGNGOption Explicit
Private m_col As Collection
Private Sub Class_Initialize()
Set m_col = New Collection
End Sub
Public Property Get Item(vIndex As Variant) As clsMark
Set Item = m_col.Item(vIndex)
End Property
Public Property Get Count() As Long
Count = m_col.Count
End Property
Public Sub SetTestData()
Call AddNew("A氏", 60)
Call AddNew("B氏", 82)
Call AddNew("C氏", 87)
Call AddNew("D氏", 50)
Call AddNew("E氏", 56)
Call AddNew("F氏", 86)
Call AddNew("G氏", 89)
Call AddNew("H氏", 76)
Call AddNew("I氏", 58)
Call AddNew("J氏", 68)
End Sub
Private Sub AddNew(sProgrammerName As String, nPoint As Long)
Dim mark As clsMark
Set mark = New clsMark
mark.sProgrammerName = sProgrammerName
mark.nPoint = nPoint
Call m_col.Add(mark, sProgrammerName)
End Sub
0614デフォルトの名無しさん
NGNGOption Explicit
Public sProgrammerName As String
Public nPoint As Long
Public Property Get sMarkString() As String
'Select Caseでは得点の範囲が分かりづらいため、ElseIf を用いた
If (nPoint < 60) Then
sMarkString = "不可"
ElseIf (nPoint < 70) Then
sMarkString = "可"
ElseIf (nPoint < 80) Then
sMarkString = "良"
ElseIf (nPoint <= 100) Then
sMarkString = "優"
Else
sMarkString = "対象外"
End If
End Property
0615デフォルトの名無しさん
NGNG「どの項目も選択されていなければ」
というのはどうやってあらわせばいいのでしょうか。
SelectedItemなどを探ったのですがわからず・・・・。
おねがいします。
0616デフォルトの名無しさん
NGNG601の回答の通りだ。
サブクラス化せい。
0617デフォルトの名無しさん
NGNG試してないけど、
If listview1.SelectedItem Is Nothing Then
MsgBox "選択されてない"
End If
じゃだめかな？
0619名無しさん＠ヒラ社員
NGNGデータをＳＥＮＤするときに、
winsock1.SendData Chr(&H65) + Chr(&Hfa) + Chr(&H86) + Chr(&Hed)
とやると送るデータが、パケットエディタで見てみると "65 00 00 00" となって、ぜんぜん
違うデータが送られてしまいます。
そして、送られてきたデータもパケットエディタで見てみると
winsock1.RecvData "86 ed 02" が送られてきたはずなのに
データを受け取るともうすでに"00 00 02"に変わってしまってどうしようもありません。
どなたかこれを打開する方法をご存知の方はいらっしゃいませんでしょうか？
0621デフォルトの名無しさん
NGNG文字列で暗黙のUNICODE変換が起きるのは常識。
バイト配列を使えばその問題は回避できる。
0622デフォルトの名無しさん
NGNG言いたいことはわかるが、説明は違ってる。
&HFA、&H86、&HEDのどれももSHIFT JISで(というかASCIIコードで)
未定義だから、送信云々の前に文字化けしてるだけ。
イミディエイトウィンドウで以下のように打ってみるとわかる。
? Asc(Chr(&H86))
0623即レス ◆ok/f5F1o
NGNG0624名無しさん＠ヒラ社員
NGNGそうすると、
dim byte1() as byte
winsock1.recvData byte1
で、データを受け取って
ええと、送信時に &H65 &Hfa &H86 &Hed
をＳＥＮＤするのはいったいどうやったらいいのですか？
0625デフォルトの名無しさん
NGNGどうソートするかをパラメータで渡そうと思ったのですがうまくいきません。
Cでいう関数へのポインタみたいなのがあればいいんですが・・・。
VBではどうすればいいんでしょうか？
0626デフォルトの名無しさん
NGNG>をＳＥＮＤするのはいったいどうやったらいいのですか？
何がわからんのかわからん。受信と同じじゃないか。ヘルプ見れ。
それとWinsockコントロールならrecvDataじゃなくてGetDataじゃないのか？
こういうところも貼っておいてやろう。
ttp://www.cs.k.tsukuba-tech.ac.jp/labo/koba/software/winsock.html
0627デフォルトの名無しさん
NGNG英語版のVB6では、あれでうまく行くんだけど。
0628デフォルトの名無しさん
NGNG>どうソートするかをパラメータで渡そうと思ったのですがうまくいきません。
どうソートするってのが、比較方法のことを言っているのだったら、
イベントを使うべし。
0629625
NGNG>イベントを使うべし。
イベントって「ボタンが押された」とか「ウィンドウが閉じられた」
ってのですか？
「降順が選ばれた」「昇順が選ばれた」というイベントを作るということでしょうか？
0630628
NGNGCでならどう作るつもりだったんだい？
qsort関数のように比較する部分を別の関数にしてそれのアドレスを渡すよね。
RaiseEventステートメントでイベントを起こすことができるが、
これはつまり処理の一部を別の関数に渡すようなもの。
ソート処理の途中の値の比較をする部分でCompareイベントを起こし、
Compareイベントには実際の比較を行う処理を書く。
0631デフォルトの名無しさん
NGNGコントロールを配置しようとして、フォームにマウスポインタが
入るとポインターが消えてしまうのです。
配置はできるのですが、ポインタが見えない為、非常に困っています。
これといった設定はいらっていない筈なのですが、
VBの環境設定で配置時にポインタを消したり表示したりする項目
が有るのでしょうか？。
自分で設定部分を見回しましたのですが見当たらなかったので
対処できなくて困っています。
ご存知の方対処方法をお教えください。
0632デフォルトの名無しさん
NGNG>が有るのでしょうか？
ありません。
再起動してもなおりませんか？
最近、入れたソフトとかバージョンアップしたソフトとか環境的に
何か変えませんでしたか？
最悪、VBの再インストール、あるいは、OSからの再インストールくらいですかね。
0633631
NGNGご指摘の内容から推測して、多分FAVOタブレットドライバを
をインストールしたのが原因なのかもしれません。
先ほど、そのドライバをアンインストールしてみたのですが、
解決しないので、これからVBの再インストールを試みます。
ありがとうございました。
後ほど、あらためて結果報告をします。
0634632
NGNG>ご指摘の内容から推測して、多分FAVOタブレットドライバを
>をインストールしたのが原因なのかもしれません。
うーん、私もFAVO使ってるけど、とりあえずそういう現象は起きてないな。
Win2000SP2+VB5SP3+FAVO F-410
0635デフォルトの名無しさん
NGNGスタートアップにはいれたくありません。
どうすればよいでしょうか？
0636デフォルトの名無しさん
NGNGHEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\run
にアプリのパスを登録しとけ。
0637625
NGNGヘルプで調べてみたんですが、
「イベントに戻り値は存在しません。」
イベントを起こして比較処理をそこに飛ばしたあと
比較した結果をどう得るんでしょうか？
すいません。今日でVB4日目なんです・・・。
0638デフォルトの名無しさん
NGNGさんくす。
0639628
NGNGイベントの引数は参照渡し(ByRef)にしておけばいい。
ByVal/ByRefを引数に指定しなかった場合は、
VB6まではByRef扱いだから、意識してByVal指定にしてなければ、
引数をイベント内部で変更すれば、そのまま呼び出し元でそれを使える。
0641デフォルトの名無しさん
NGNGVB4日目でソートのお勉強か、うちの会社なんて4年もVBやってて
バブルソートもできない奴らばっかりだぜ。
C経験者なのかな?
ICompareインターフェースを用いたソートのソースが
http://www.gj.il24.net/~nakasima/
の「汎用アルゴリズムライブラリ （未完成・開発中） 」
で落とせるよ。
0642625
NGNGサンプルありがとうございます。
VBのことを検索しても、なんか「VisualBasicというアプリ」の使い方
を説明してるようなところが多かったので、そういうページを
教えていただいて助かりました。
Cは少しやってたので、アルゴリズム自体は問題ないんですが、
それをVBでどう書いたらいいのかがわからないんです。
ま、勉強します。
0643デフォルトの名無しさん
NGNG今、或るフォルダに10000枚ぐらいのファイルがあるんですけど、
そのファイル名を全部取得したいです。
ファイルシステムオブジェクトを使うとやたら遅いので、標準コントロール
のFileListBoxを使ってみました。そうすると無茶苦茶高速に取得できました。
ただ、FileListBoxはコントロールをフォームに貼り付けないとダメみたいです。
実行時にバインディングするような方法はないでしょうか？
結局は、標準コントロールを実行時にバインドする問題だと思いますが。
例えば、
Dim A as FileListBox
のようにして使いたいのです。
0644デフォルトの名無しさん
NGNGAPI使ったら？
0645643
NGNGで、今、調べたら、標準コントロールは、実行時にバインディングできないみたい
ということが分かりました。
あ～～、うつ・・・・
なんかいいAPIあったら教えてください。
0646即レス ◆POP.SOKU
NGNGDirの方が速いと思うけど、
Option Explicit
Dim WithEvents O As FileListBox
Private Sub Command1_Click()
Set O = Form1.Controls.Add("VB.FileListBox", "O")
O.Visible = True
End Sub
Private Sub O_Click()
MsgBox "Ouch!"
End Sub
こういうことかい？
0647デフォルトの名無しさん
NGNGなんかコードで生成することの利点ってあるの？
0648643
NGNGDirをちょっと試してみます。
Controls.Addの方は、ちょうど今やってみました。
さっき書いていませんでしたが、クラスを作りたいので、
Controls.AddだとコンテナであるForm1が必要になるわけで、
無駄に引数を増やすし、もっと簡便な方法はないのかと思います。
取りあえず、Dirをやってみます。
ありがとうございました。
0649デフォルトの名無しさん
NGNGhttp://thanks22.cool.ne.jp/sample/ex101.html
0650649
NGNGと、思ったら、Cですね＾＾；
頑張って、読んでみます。
Dirできました。高速でした。
いらないかもしれないけど、コード書いておきます。
短時間にいろいろとレスありがとうございました。
'あるフォルダの中にある、ファイル名を取得する。
Public Function GetFiles(ByVal strFolderPath As String, _
Optional strMatch As String = "*.*", Optional isFullPath As Boolean = False) As String()
On Error Goto eh
Dim strA() As String
Dim i As Long
Dim aFile As String
If Right(strFolderPath, 1) = "\" Then strFolderPath = Left(strFolderPath, Len(strFolderPath) - 1)
aFile = Dir(strFolderPath & "\" & strMatch, vbNormal + vbHidden + vbSystem)
i = 0
Do While aFile <> ""
ReDim Preserve strA(i)
If isFullPath Then
strA(i) = strFolderPath & "\" & aFile
Else
strA(i) = aFile
End If
i = i + 1
aFile = Dir
Loop
GetFiles=strA()
Exit Function
eh:
End Function
0651デフォルトの名無しさん
NGNG変数があるのですが、これを別Formから読み取りたいんですけど
どうすればいいんでしょうか。コントロールの値とかなら
Form1.Label1.Caption という形でとれますが
変数の場合はどうやったらいいのか・・・。
それともまた別のところで宣言しておかなければならないのでしょうか。
VB始めたばっかなんでふざけた質問だと思うんですが
よろしくお願いします。
0652デフォルトの名無しさん
NGNG関数で渡す、とか。
0653デフォルトの名無しさん
NGNGで
form1.a
でOK
0654デフォルトの名無しさん
NGNGできますた。ありが㌧！
0655デフォルトの名無しさん
NGNG0656デフォルトの名無しさん
NGNG＞'Select Caseでは得点の範囲が分かりづらいため、ElseIf を用いた
＞ElseIf (nPoint < 70) Then
ずっと見やすいと思うけどなあ。
Select Case nPoint
Case 0 To 59
Case 60 To 69
Case 70 To 79
Case 80 To 100
0657デフォルトの名無しさん
NGNG動的配列が割り付けられているかどうかを判断するような方法はないでしょうか？
例えば、
Dim a() as Byte
といった場合、isArray(a)を使うと、割り付けられていなくても、Ｔｒｕｅを返してしまいます。
Nullかな？と思ったけど、違いました。
一筋縄じゃいかないということなのでしょうか？
0658デフォルトの名無しさん
NGNGVBはよく知らないが
Dim a() as Byte で a は BYTE配列の属性となるので（多分）
isArray でなく配列の要素数を得るメソッド／プロパティが
あるんじゃないの？
0659デフォルトの名無しさん
NGNGUBound＋エラーで判定。
0660657
NGNGなんかすっきりしないけど、それしかないのでしょうね。
う～～ん・・・。
0662デフォルトの名無しさん
NGNG今、cgiを使ったHPの結果として次のようなアドレスを持つHPが表示されたとします。
http://www.aaa.co.jp/cgi-bin/bbb.cgi?ccc=ddd&eee=fff&ggg=hhh
この操作をInetコントロールで実現しようとした場合、
Inet.Execeute "http://www.aaa.co.jp/cgi-bin/bbb.cgi",POST,"ccc=ddd&eee=fff&ggg=hhh"
をして、
Inet1_StateChangedのicResponseCompletedのあとに
GetChunkをやればいいようですが、どうもうまくいきません。
自分としては、POSTの後の引数の&が引っかかるのですが、解決方法が分かりません。
むずかしい・・・
0663631
NGNGVBをアンインストールして、
その後インストールして試しました。
結局、カーソルの表示がされないままでした。
次のOS再セットアップまで、我慢して使うことにします。
0664デフォルトの名無しさん
NGNG即レスさんのSafeArrayGetDimでやったことあるけど、
UBoundをエラートラップするのが一番シンプル。
0665625
NGNG何種類かのソートを書いて実行時間をはかりたいんですが、
時間をはかる関数は
start = 今の時間
ソートする
end = 今の時間
end - start を返す
という流れになるので、何ソートなのかは関係ないですよね？
こういうのもイベントを使って処理するのですか?
いまは、各ソート関数毎に上のような処理があってきれいでないです。
0666_
NGNGForm1上では Popupmenu メニュー名 でちゃんとポップアップメニューが出るんですが
Form2（vbModal付きで呼び出した）で同じようにPopupを出そうとしても
なぜかメニューが表示されません。
Form1、Form2では別々にメニューを作って
表示させない（VisibleをFlase）ようにしてそのメニューをPopupMenuで
呼び出しているのですが・・・。
こういうものなのでしょうか。それとも本当はこれで出来るはずなのでしょうか。
もしこれではうまくいかないはずなら、対処法を教えていただきたいです。
0667デフォルトの名無しさん
NGNG１．Sortメソッドを持ったインターフェースなんかを作っておいて、
各ソートはそのインタフェースを実装したクラスにする。
２．Collectionにあらかじめそれらのソートを登録しておく。
Dim sorter As ISort
Dim sortCollection As Collection
For Each sorter In sortCollection
データ用意
start = 今の時間
sorter.Sort(引数)
end = 今の時間
end - start を返す
Next
とかどう？
0668_
NGNGこれだと関連付けされていないファイルだと何も起こりませんよね。
そこで
関連づけされているかされていないかを調べたいのです。
もちろんVBのコード上から（ｗ どうやればいいのでしょうか。
VB6です。
0669688
NGNG0670625
NGNG一度にすべてのソートの実行時間をはかるのではなく
「バブルソート」ボタンでバブルソートをして時間をはかり表示
「クイックソート」ボタンでバブルソートをして時間をはかり表示
という風にしたいんです。
でも、教えてくれた方法をちょっと変えて
ISortが
public sub Sort(target() as long)
ISortをimplementsした各ソートクラスをつくり
時間をはかる関数の引数を
public sub getSortTime(target() as long, sorter as ISort)
として
呼び出すときに
Call getSortTime(myarray, new BubbleSort)
や
Call getSortTime(myarray, new InsertionSort)
とするようにしてみました。
ありがとうございました。
0671625
NGNG「クイックソート」ボタンでクイックソート
です。
0672_
NGNG何か簡単な方法があるのでしょうか。
コピーしてから元を削除、とか危険っぽいのでやりたくないのですが。
0673デフォルトの名無しさん
NGNGならFindExecutableで分岐すべし。
0675コー
NGNGすっごい初心者の質問ですみませんが、簡単に書きますと、
Sub Command1_Click()
Message "Command1"
End Sub
Sub Command2_Click()
Message "Command2"
End Sub
Sub Command3_Click()
Message "Command3"
End Sub
……
のようにCommandボタンが50個ほどあって処理はすべて同じなのですが、
こういう場合はどうしたら簡単にまとめられるのでしょうか。
Command1～Command50のコマンドボタンのうち、どのボタンが押されたかという
条件をつくればいいのでしょうか（やり方がわかりませんが…）。
それとも上記のように、サブプロシージャを50個用意しなければいけませんか？
お手数ですが、教えていただければ助かります。
0676デフォルトの名無しさん
NGNGコントロール配列を調べれ。
0677糞レス ◆9lhU6w7.
NGNG0678_
NGNG0679デフォルトの名無しさん
NGNG0680デフォルトの名無しさん
NGNG・・・？
0681コー
NGNGアプリケーション側でそのボタンが押されたというメッセージを表示するという
スクリプトを作っています。
Massageを使うと、アプリケーションログに表示されるのでアプリケーション側で
用意されているものでした。
上記の例ではMsgboxで書けばよかったですね。混乱させてすみません…。
0683即レス ◆ok/f5F1o
NGNGことは
ない
0684デフォルトの名無しさん
NGNGTag は訳すと「札」
札にはお経を書こうが、値段を書こうが、名前を書こうがなんでもいい。
なのでTagには何を書いても(･∀･)ｲｲ!と思われる。
だから「何がベスト？」と言われても答えれん。
0685デフォルトの名無しさん
NGNGURLエンコードしてみたら？
0686デフォルトの名無しさん
NGNG何を入れてもOK。
0687682
NGNG何に使ってもいいけど、濫用は禁物ってとこですかね。
0688デフォルトの名無しさん
NGNG0689デフォルトの名無しさん
NGNGん？
URLエンコード？？？
どうするんですか？
0691デフォルトの名無しさん
NGNGどこかにCommandとかいうコマンドボタンおいといて
Private Sub Form1_Load()
Dim I As Long
For I=1 To 50
Load Command(I)
Command(I).Vislba=True
Next I
End Sub
Private Sub Command_Click(I As Integer)
Msgbox "Command" & I
End Sub
Command(1)から(50)までは同じ座標に出されるので注意。
0692デフォルトの名無しさん
NGNGそのうちわかる。
0693デフォルトの名無しさん
NGNGDataReportを使ってACCESS2000（MDB）からのレコードを抽出したいのですがどうしてもうまく行きません。
ソースはこんな感じです。
特にバグは出ないのですが、最後の一個（一行）しか表示してくれません。
ListBoxで選択された物（No）をレポート表示すると言う物です。
-----------こんな感じのソース--------------
Private Sub sql_module()
For n = 0 To List1(Klist).ListCount - 1
If List1(Klist).Selected(n) Then
List6.AddItem List1(Klist).List(n)
Add1 = List1(Klist).List(n)
K_sql = "SELECT * FROM 製造受付表 WHERE No='" & Add1 & "'"
Set K_Connect = CreateObject("ADODB.Connection")
K_Connect.ConnectionString = K_PROVIDER
K_Connect.Open
Set K_recordset = New ADODB.Recordset
K_recordset.Open K_sql, K_Connect
' レコードセットを取得する
Set K_recordset = K_Connect.Execute(K_sql)
Set DataRep3.DataSource = K_recordset
With DataRep1.Sections("Section1")
.Controls("Text1").DataField = "日時"
.Controls("Text6").DataField = "No"
End With
End If
Next n
DataRep1.show
End Sub
---------------------------------------
0694コー
NGNGどうも、htmlに埋め込んだVBSではできないようです…。
ちょっと先の例だと、VBになってしまうのでもういちど書きますと、
html上でボタンの画像を50個配置します。それぞれの名前をCommand1、Command2、… Command50にします。
このボタンのいずれかが押されたときにそのコマンドの名前を取得したいのです。
Sub Command1_OnClick
Msgbox "Command1"
End Sub
Sub Command2_OnClick
Msgbox "Command2"
End Sub
…
単純にこの方法ならわかるのですが、VBSで「Sub Command2_OnClick」の「2」をコントロール配列の
要素番号のように区別する方法がわかりません。
htmlの画像にはどうもVBのように配列要素の番号はつかないためどのようにすればいいのでしょうか…。
0695ちぃこ
NGNGGetPrivateProfileString Lib "kernel32"
というＡＰＩを使ってみたんですが、
予想される文字列の長さよりもあらかじめ長いバッファを取っておくために、
帰ってくる文字列は後ろに･･･みたいなのがくっついてきます。
これをきちんととるにはどうすればいいんでしょうか？
0696ちぃこ
NGNGとりあえずそれにしておきました。
0697デフォルトの名無しさん
NGNGそれ以外の方法確認してない
0698ちぃこ
NGNGこれがよかった。
0699_
NGNGtype aaa
Name As String
Flag As Long
Size As Long
end type
dim wka as aaa
・・・とかって宣言した変数の値を、配列に時みたいに記述して取得する方法ってありますか？
たとえば、「Size」の値を取得したいとき、「wka(1)」とかって書きたいんですけど。
バージョンは、ＶＢ６ＳＰ５で ＯＳはＷＩＮ２０００ＳＰ２です。おねがいします
0701_
NGNG固定長のテキストを読み込む処理なんですが、レイアウトが８種類ほどあるんです。扱うデータは同じなんですが、、、
実際には、、、
type aaa
Name As String(10)
Flag As String(2)
Size As String(10)
end type
type bbb
Name As String(12)
Flag As String(4)
Size As String(8)
end type
という構造体を用意して、Getでそれぞれに読み込んで使用してるのです。
で、読み込んだ値を参照するときに、今は、
dim wka as aaa
dim wkb as bbb
sub subuu(kubun as integer)
dim NameDisp as string
select case kubun
case 1
NameDisp = wka.Name
case 2
NameDisp = wkb.Name
end select
end sub
と書いているんですが、レイアウトの種類が今後さらに増えた時に対処が
このままだと大変かなかなぁと思ったもので、、、
type aaabbb
wka as aaa
wkb as bbb
end type
という構造体を追加して、
dim wkab as aaabbb
sub subuu(kubun as integer)
dim NameDisp as string
NameDisp = wkab(kubun).Name
end sub
と記述できないかと思ったわけでした。
ありがとうございましたです。
0702699
NGNGちなみに、すなおに構造体の変数を配列に入れようとすると、
「ﾊﾟﾌﾞﾘｯｸｵﾌﾞｼﾞｪｸﾄﾓｼﾞｭｰﾙで定義されたユーザー定義型に限り、変数に割り当てることができ、
実効時ﾊﾞｲﾝﾃﾞｨﾝｸﾞの関数に渡すことができます。」っていうコンパイルエラーになりますよね。
0703デフォルトの名無しさん
NGNGName Flag Size という名称は、変わらないわけね。
面白いアイデアだけど、8種類レイアウトがあるという仕様がアフォ。
0704699
NGNGまぁ、ふつうこんな仕様にはしないですよね・・・
でも、１９９９年のデータから、年のフィールドが４バイトになっているあたりは、
しょうがないかぁ、と思って書いてたりしてますです。
0705デフォルトの名無しさん
NGNGポインタ無しだと、配列でやるしかないですよね。一応VB6です。
0706デフォルトの名無しさん
NGNGポインタが無い代りに参照がある。
0707デフォルトの名無しさん
NGNGいまいち内容を理解していない気がするが、
共通の構造体を作って、
type kyotu
Name As String
Flag As String
Size As String
end type
読み込んだ値を参照するときに、それぞれの構造体から見るんじゃなく、
共通構造体への代入関数をレイアウトごとに作って、最初に共通構造体
に入れておけばいいんじゃないの？
0708デフォルトの名無しさん
NGNG簡単なやり方を教えてください。
0709デフォルトの名無しさん
NGNGVBアプリから検索するにはどうすればいいんですか？
0710デフォルトの名無しさん
NGNGおやすみなさい。
0711デフォルトの名無しさん
NGNGキャプションに「音量コントロール」と書かれたボタンをフォームに貼り、
ボタンが押されたら「ボリュームのつまみを回して音量を調節してくだい」と
メッセージボックスを出す。
0712デフォルトの名無しさん
NGNG耳に両手をあて、
音量を小さくしたいときは密着させるように、
大きくしたいときは離すようにする。
フィルター効果で特定の周波数域をカットする効果もあるので一石二鳥。
0713デフォルトの名無しさん
NGNGあら？もう寝ちゃうの？
おやすみなさ～い♪
0714デフォルトの名無しさん
NGNG同じ機能を持つ関数はVBにありますか？
1970年1月1日0時0分0秒からの経過時間ということはわかっているので
TimeとDateを使って自前で計算するしかないでしょうか？
0715デフォルトの名無しさん
NGNGそだね。
0716デフォルトの名無しさん
NGNGわかりました。
GetSystemTime APIも視野に入れてみるか…
どうもです。
0717デフォルトの名無しさん
NGNGPublic Declare Function ExtractFileFromCab Lib "vb6stkit.dll" (ByVal Cab As String, ByVal File As String, ByVal Dest As String, ByVal iCab As Long, ByVal sSrc As String) As Long
というのを使うことにしました。
ところが、引数に何を入れればいいかよくわからず、
いろいろ試してみましたがうまくいきません。
どうしたらよいのでしょうか？
0718717
NGNGこちらの方はweb上に参考になるのがたくさんあったので。
0719おねがいします
NGNG例えばボタンを押したらコマンドプロンプトのDIRを実行するとか、
すごく簡単なことかもしれませんがお願いします。
0720デフォルトの名無しさん
NGNGShellで
cmd /k dir
を実行すればいいんじゃなかろか。
0721デフォルトの名無しさん
NGNG設計が間違ってると思うとかそういうのはおいといて・・・
というかコンパイルより前に文法的にそのコードは通らないと思うが。
0722デフォルトの名無しさん
NGNGindex.htmlを表示させたいのですが、実行するとﾌｧｲﾙの一覧が表示されるだけ
になってしまいます。どうやったらindex.htmlを表示できるでしょうか？
ｺｰﾄﾞはこう書きました。
Private Sub Form_Load()
WebBrowser1.Navigate App.Path
End Sub
0723デフォルトの名無しさん
NGNG20 dim a(20),b(20)
30 for i=i to 20
以下略
で数値をいくつか入力するとその数字と順位が表示
されるようにしたのですが平均値も表示するには
どうしたら良いのですか？
0724722
NGNGにしたら解決しました。
0725７２３
NGNG0726デフォルトの名無しさん
NGNGVBにはDateDiffっつうチョー便利な関数があるですよ。
俺も昔はこの関数の存在を知らないでDateとTimeで計算してた。ｶｺﾜﾙｲ。
0727デフォルトの名無しさん
NGNG合計して、データ個数で割る。
平均値を計算して表示するといいよ
0729厨房です
NGNGnot found になります
過去すれ見ても乗ってません
誰か教えてください
ちなみにXPです
0730デフォルトの名無しさん
NGNGPC初心者
http://pc.2ch.net/pcqa/
相手してやるから来い。
0731ＶＢ初心者
NGNGCreateMenu
CreatePopupMenu
AppendMenu
上記の３つのAPIを利用してメニューを動的に生成する関数を作ったのですが、
ショートカットの割り当て方がわからないのです。
最上位階層メニューのキャプション名に"メニュー１(&h)"と言う風に指定すると確かに
ALT+h でショートカット起動できるのですが、下の階層のメニューを起動しようとしても
できないのです。
メニューエディタではショートカットを選べ Ctrl+A と言う風に指定できるのですが、
その設定はメニューのどのプロパティを指定すればいいかわかる方おられましたら
お教え下さい。
よろしくお願いします。
0732デフォルトの名無しさん
NGNGその後rmdirなどで削除しようとしても削除できません。
そのvbアプリ起動中は、時手動でも削除できなくなってます。
削除するにはどうすればいいですか？
0733デフォルトの名無しさん
NGNGファイル開いて閉じてない。
中にファイルが残ってる。
なんで削除の時だけ外部コマンドやねん。
0734732
NGNG当然中のファイルは
kill Path & "*.*"
ですべて消してからの出来事です。
RemoveDirectory でもだめでした。
アプリでフォルダをつかんでるためだと想われるんですが、
どうやって解放すればよいかわかりません。
0735732
NGNG解決しました。
0736731
NGNGLoadAccelerators
というAPIを使うとメニューにショートカットが追加できるみたいです。
でも、このAPIはVBから呼べるのでしょうか？
お知りの方おられましたらお願いいたします。
0737デフォルトの名無しさん
NGNGVBから呼べないAPiってあんまり無いと思われ。
取りあえず聞く前にAPIビューアで登録して試して見なされ。
0738デフォルトの名無しさん
NGNG試しに電卓作ることにしました。
８進も１６進もあるのに
どうして２進変換だけ標準関数にないんですか・・・？
なんとか作れましたが無駄な労力を使った気がして納得行きません・・
0739デフォルトの名無しさん
NGNG滅多に使わないもんって言うのが理由泣きがします。
0740木村 キタキタマシーン
NGNG作者がアルゴリズムを思いつかなかったからです
0741デフォルトの名無しさん
NGNGnot foundってなんじゃい。何が見つからないのかわからんじゃないか。
Path Or File Not Foundじゃないのか？
だったらFAQだ。
>>738
HexやOctは旧時代のBASICからあるからね。
マシン語を普通に直打ちしてた時代からな。
0742名無しさん＠ヒラ社員
NGNG２つほど質問させてください！
１、Ｆ１キーを押してもいないのに押した状態にするにはどうしたらいいでしょうか？
２、ExitWindowsEx(API)でWindowsＸＰを終了させようとしているのですが、「電源を切れる状態になりました」になってしまい、電源がおちません。これはなんとかならないのですか？
0743デフォルトの名無しさん
NGNGハンドル取得して、SENDMESSAGEではいかが。
あれ・・・んっ？まさか、物理的にF1キーが自然に沈む状態を希望してるのかっ。
0744木村 キタキタマシーン
NGNG２．OSにﾀｽｸを返せばﾖｼ!
Sleep()使ってミソ
0745デフォルトの名無しさん
NGNG不覚にもﾜﾗﾀ
0746デフォルトの名無しさん
NGNGhttp://www68.dns.ne.jp/~bbs2/upload3/helen/OB00014094.jpg
0747名無しさん＠ヒラ社員
NGNGハンドル取得して、SENDMESSAGE
ごめんなさい、ネットでしらべてはみたんですが、その辺の情報が見当たらなかったのでよろしければもうすこし詳しく書いていただけませんか？
>744
Sleep()って関数ないみたいなんですが・・・
0748デフォルトの名無しさん
NGNG(回答1)
1.セロハンテープ(超極薄)で微妙に固定。
2.コンセントを抜く。
------------------
(回答2)
1. keybd_eventかSendInput関数でどうだろう。
2. 権限ある？EWX_POWEROFFを指定してる？
http://www.bcap.co.jp/hanafusa/VBHLP/tap_winEnd.htm
>>744の意図は知らんが、
SleepはAPI関数だぞ。>>747
0749えーさく
NGNGそのためにインストールしてあるパスを取得させたいんです。
アクロバットの場合VerごとにEXEまでのパスが違くなってしまうので、
何処にインストールされても起動できるようにRegOpenKey関数を使ってみたんですが
これだと最初に"\\パス\ファイル名.pdf"の形で渡してやらなければインストールパスを
返して貰えず必要の無いダミーのPDFファイルを用意することになってしまい
よろしくなさそうです。
どなたか良い方法があればアドバイスお願いします。
0750デフォルトの名無しさん
NGNGVBは知らないが、Win32API で直接レジストリから引っ張ってくればよい。
0751デフォルトの名無しさん
NGNGオチの予測 RegOpenKeyをファイルをオープンする関数だと思っている。
0752えーさく
NGNG使っていたのはこっちの関数です。
FindExecutable（）
RegOpenKey関数は使ってませんでした。
0753
NGNG読み出す方法も教えてください。
0754デフォルトの名無しさん
NGNGプログラマやめろ。日曜でもそうじゃなくても。
0755
NGNGプログラマではなく高校生です。
0756デフォルトの名無しさん
NGNGじゃ高校中退して、何か体を動かす仕事でもしなさい。
0757デフォルトの名無しさん
NGNGopenでファイル開いてputで書き込んでcloseでファイルを閉じる
読むときはgetで読み込む
ガッコいけよ、、、
0758デフォルトの名無しさん
NGNGなんでここはそういうﾔｼが多いんだ。
純粋に勉強始めたばっかかもしれんだろうが。
君にだって最初はあったはず。
0759デフォルトの名無しさん
NGNGでも、そんな基本的なことはそこらへんに情報が腐るほど転がってる。
それを自分で調べることは当たり前。
でも、いきなり聞いてきた。
だから叩かれた。
それを理解しないとネ。
まぁ、言い方きつすぎるとは思うけど。
0760デフォルトの名無しさん
NGNG調べる手がかりだけでもいいので教えてください。お願いします。
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "xxxx aaaa"
という感じで、xxxx aaaaの部分をロングファイルネームで書きたいのです。
0761760
NGNGで動きました。お騒がせしました。
0762デフォルトの名無しさん
NGNG問題を分けるために、
1) c:\temp\aaaaaaaaaaa.exe みたいな簡単フォルダ名＋ロングファイル名で試す
2) c:\a b\a.exe みたいな間にブランクをはさんだフォルダ名で試す
で試してみるといいかもしれん。
0763デフォルトの名無しさん
NGNG虫めがねがくるくるしているやつを利用したいんですが、
Visual Studio のどっかにあるんですか？
0764デフォルトの名無しさん
NGNG検索の時に出てくるのはShel32.dllのカスタムリソース"AVI"の151だな。
0765デフォルトの名無しさん
NGNG0766763
NGNG丁寧な解説ありがとうございます。
でも取り出しかたがわかりませんです。
0767764
NGNGWin32APIでやるならLoadLibraryしてGetProcAddressだがVBは知らん。ｽﾏｿ
ついでに>>764の情報はWin 98での場合だ。NTとかはもしかすると違うかもしれないが
手元にNTマシンがないから未調査。
0768デフォルトの名無しさん
NGNGAPIビューアで宣言探してきてソースにコピー。
0769
NGNGありがとうございました
0770デフォルトの名無しさん
NGNGC:\Program Files\Microsoft Visual Studio\Common\Graphics\Videos
に似たようなのがあったが、これじゃだめ？
0771デフォルトの名無しさん
NGNG特定のindexのコントロールが存在するかどうかを判定するにはどうすればいいでしょうか。
エラートラップするしかないですか？
0772デフォルトの名無しさん
NGNGループって言う便利な構文がある。
0773771
NGNGループは当然回します。
そのループの中で、そのindexが使われてるかどうかを知りたいわけです。
0774
NGNG0775デフォルトの名無しさん
NGNG文字列。
0776デフォルトの名無しさん
NGNGもしある値のindexがあれば
条件分岐と言う便利な構文がある。
0777デフォルトの名無しさん
NGNGありがとうございます。
私のは、
Common以下にそのようなフォルダがありませんでした。
インストールされてなかったのかな。
0778デフォルトの名無しさん
NGNG用はそのコードが知りたかったわけです。
存在しないindexのコントロール配列のプロパティをいじっちゃうとエラー出るので。
0779デフォルトの名無しさん
NGNGじゃなくて
「知りたい」
か、まだ分からない。
For i=0 to command1.count
if iのindexあったら then
command1(i).caption="なんか"
end if
next i
ってしたいわけです。
ifのぶぶんの、”iのindexあったら”って部分の書き方がわからんのです。
0780デフォルトの名無しさん
NGNGでもコントロール配列はデザイン上で自分で決めるから、
実行中に変更されることはないだろ。
0781デフォルトの名無しさん
NGNGFor i=0 to command1.count - 1
この範囲のインスタンスは保証されてないか？
0782デフォルトの名無しさん
NGNGLoad コントロール名(index)
ってやると動的に生成されますが何か？
0783デフォルトの名無しさん
NGNGだから123があって4がなくて5があって6がなくて78があるとか、バラバラで。
0784デフォルトの名無しさん
NGNGそれをやるなら、
For i=0 to command1.UBound
だよ。
0786デフォルトの名無しさん
NGNGええ、そうやってるんです。今は。
だから知的好奇心で聞いてるだけです。
「そのindexが使われてるか知ることができるのかなー？」って
わざわざ自分でユーザーのunloadやloadを管理しなくても、
if文一発で使われてるかわからんかなー？と。
0787デフォルトの名無しさん
NGNGFor Each cmd In Command1
Debug.Print cmd.Index
Next cmd
0788デフォルトの名無しさん
NGNG0789771
NGNG色々参考になりました。
ありがとうございました。
0790デフォルトの名無しさん
NGNGWin2000の環境で、LAN接続状態をVBでひろいたいのですが
何か良いAPIとかないですか。
なにか良い方法があればご教授ｷﾎﾞﾝﾇ。
0791デフォルトの名無しさん
NGNG0792791
NGNG0793デフォルトの名無しさん
NGNGこういう関数用意すれば IF 文で一発だよ。
Private Function isExists(obj As Object) As Boolean
On Error GoTo M_Error
Dim lngRet As Long
lngRet = obj.TabIndex
isExists = True
M_Error:
End Function
0794711
NGNG今私もちょうどそんな関数を作ってみたところでした。
↓こんな感じで。
Function ExistenceIndex(CheckObject As Object, Index As Integer) As Boolean
On Error GoTo err
dim temp
temp=CheckObject(Index).tag
ExistenceIndex = True
Exit Function
err:
ExistenceIndex = False
End Function
0795787
NGNGDim o As Object
For Each o In obj
If o.index = index Then
IsExsist = True
Exit Function
End If
Next o
IsExsist = False
End Function
0796デフォルトの名無しさん
NGNGエラートラップ方式と>>795方式。
俺は試す気ねーけど。
0797793
NGNGはループ回数が多くなって遅そうだけど、
エラートラップも実は気に入らない。。
っていうか、それなら最初から、
Dim o As Object
For Each o In Command1
o.caption="なんか"
Next o
ってやるのが一番いいんじゃない？
0798787
NGNGはぁ、そんなこと書くから試してしまったじゃねーか。
比較したのは>>794と>>795のコード。
ただし>>794はTagがいやだったのでIndexに変更(もちtempの型もね)
Indexが存在する場合、ループの方がエラートラップ方式の最低で3倍かかる。
ループの方はIndex番号が大きければ大きいほど、時間が増える。
Indexが小さい順に取得されることが保証されているなら少しは改善できるけど。
エラートラップの方はIndex番号に関わらず一定。
ハッシュでも使ってるんだろうな。
Indexが存在しない場合、、ループの方がエラートラップ方式の3倍かかる。
Indexが存在する場合に比べてエラートラップ方式が極端に遅くなる。
まぁ、適当な測定なので信用しないでくれ。
ループ方式は遅いがエラートラップ方式は設定により停止することがあるからデバッグがしづらくなる。
俺のお勧めは、IDE実行時はループ方式、EXE実行時はエラートラップ方式に自動切換え。
0799仕様書無しさん
NGNGVBから起動したExcel（名前はまだなし）を
プログラムで所定のフォルダに名前を付けて保存するには
どうすりゃいいの？
初心者につきコード希望です。
0800デフォルトの名無しさん
NGNGhttp://www.bcap.co.jp/hanafusa/
ここにＶＢでエクセル扱う方法載ってるからみれ。
0801仕様書無しさん
NGNGあんがと！
行ってくる。
0802デフォルトの名無しさん
NGNG0803デフォルトの名無しさん
NGNGマ板で質問してた奴だね
0804デフォルトの名無しさん
NGNGVBでソケットコントロールを使ってサーバプログラムをつくりたいんです
TCPで教えてください
手順１ sock.localport = 4545
手順２ sock.listen
これでﾎﾝﾄにいいんですか？
バインドがないようなきがします。
ちょっと手順おしえてください
0805デフォルトの名無しさん
NGNG∩( ﾟДﾟ)∩ ＜ あげ
// ￣￣ | | ＼＿＿＿＿＿＿＿＿
// | |
| | //
| | //
| | ＿＿ //
＼ |
| |
| /
/ /
| /
∫| | |
| || |
| / | |
// | |
// | |
// | |
0806デフォルトの名無しさん
NGNG// | | | | //
// | | | | //
| | // | | //
| | ∧ ∧ // ／￣￣＼ |ΛΛ//
| |( ﾟДﾟ)// ＜ あげ ＞ |('∀`)/
＼ | ＼＿＿／ ( ： )
| | ( ： )
| / ( ： )
/ / ( ： )
| / ( ： )
∫| | |
0807デフォルトの名無しさん
NGNG少なくとも俺は基本は本で学んだ。
今はWebと言うすばらしいツールがあるにもかかわらずこんな所で質問する始末。
自分で調べて考えられない奴にプログラマとしての未来はない。
0808ごみレス ◆WuzDVM0M
NGNGそれでよいと思われる。
0809デフォルトの名無しさん
NGNG|⌒彡
|冫、） ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
|` ／ ＜ BINDは複数のセッション管理で使用するのか？
| / ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
|/
|
|
| ｻｯ
|）彡
|
|
|
0810デフォルトの名無しさん
NGNGどうも
0811デフォルトの名無しさん
NGNG0812
NGNG↑この#1ってなに？
0813デフォルトの名無しさん
NGNGファイル番号。ファイルポインタのようなもの。
0814
NGNGありがとうございました。
0815デフォルトの名無しさん
NGNGIf 1 = "0001" Then
この場合式は True で問題ないようなのだが
文字列は Clng("0001") みたいに数値に変換しとくほうがいいの？
0816デフォルトの名無しさん
NGNG俺ならする
0817デフォルトの名無しさん
NGNG0818おねがいします
NGNGPrivate Sub Command1_Click()
Shell "command.com /c dir /w", 1
End Sub
を実行するとコマンドプロンプトの画面は処理を実行してスグ消えてしまうのですが
この画面を消さないで残すことは出来ますか？
あと申し訳ないんですけど , 1 ってどういう意味を持っているのでしょうか？
0819おねがいします
NGNG解決しました。
0820デフォルトの名無しさん
NGNG文字列のなかから、特定の文字列が含まれるときにtrueを返す関数って
ないでしょうか？
たとえば、
str1="ようこそ２ちゃんねるへ"
str2="ようこそ１５ちゃんねるへ"
str3="２ちゃん"
で、str1とstr3で比較するとtrue、
str2とstr3で比較するとfalseが返る感じです。
おながいします
0821おねがいします
NGNG画面を残す動作はしませんよね？
どうやったら画面は残るのでしょうか？
0822デフォルトの名無しさん
NGNGsub main 内などでocx,dllのチェックをし、任意のメッセージを出して終了するようなのは出来ないでしょうか？
0823デフォルトの名無しさん
NGNGinstr使って自作しる！
0825818
NGNGやはりどこを探しても画面を残す方法は書いてないみたいです。
もしかして私の環境だけがそうなのでしょうか？（win2000 vb6)
出来るか出来ないのかだけでも教えて下さい。お願い致します。
0826デフォルトの名無しさん
NGNGwin2kならcommandでなくcmdでもいいのかしらん？
cmdなら/kつうオプションがありますぜ。
0827
NGNGあるポリゴンとあるポリゴンが衝突した時にだけ
値を返すようなプログラムを作りたいのですが
どのような関数を使えばよいのでしょうか？
0829デフォルトの名無しさん
NGNGでも、NotFound404になってしまします。
どこがだめでしょうか？
Option Explicit
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Winsock1.RemoteHost = "pc.2ch.net"
Winsock1.RemotePort = 80
Winsock1.LocalPort = 0
Winsock1.Connect
End Sub
Private Sub Winsock1_Connect()
Winsock1.SendData "GET /mobile/dat/1020619860.dat HTTP/1.0" & vbCrLf
Winsock1.SendData "User-Agent: Monazilla/1.00 (test/0.01)" & vbCrLf
Winsock1.SendData vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Winsock1.GetData strData
Text1.Text = strData
Screen.MousePointer = vbDefault
End Sub
0830デフォルトの名無しさん
NGNG0831デフォルトの名無しさん
NGNGHTTP/1.0" & vbCrLf
ここの改行は、vbCrLf でいいの？
vbLF のみはどうかな？
0832ごみレス ◆WuzDVM0M
NGNGdat直読みはどうたらこうたら・・・。
0833デフォルトの名無しさん
NGNGVB6でFileCopyでファイルをコピーすると
ReadOnlyなどの属性が取れてしまうのですが
属性を保持したままファイルをコピーする方法って無いのでしょうか？
0834デフォルトの名無しさん
NGNGOCX(ActiveX)の場合は参照設定せずにCreateObject、Controls.Add等でインスタンスを作成する。
ActiveXでないDLLの場合は、使用時にエラーが出るからそれでどうこうする。
さすがに、VBアプリを起動するときに必要なVBランタイムのチェックはできんがな。
0836833
NGNGレスありがとうございます。
やっぱりgetattrで取って、setattrで設定するしかないのですか・・・
数千ファイルもあると処理速度が心配・・・
0837デフォルトの名無しさん
NGNG大した事無い。
0838便乗質問
NGNGFileSystemObject だとどうなるの？ と聞いてみる。
0839833
NGNG早速、試してみました（笑）
FileSystemObject だと、属性は保持されるようです。
ただ、使い方が少し面倒そうなので、もう少し比較してから
どちらにするか決めたいと思います。
ありがとうございました。
0840デフォルトの名無しさん
NGNG機能、エラー処理などなども考えるとFileSystemObjectの方が簡単だと思うが。
0841デフォルトの名無しさん
NGNGです。JPGをrarにして解凍してください。
左のカイリとはキャラの種類です。
passは hellscaper iiiiIIIiiIi
の二つがあって、二回入力します。
それでiiiiIIIiiIiの方はダミーらしいです
シェアウェアじゃなく、作者が音信不通になってしまいました。
解析してくれませんか！
0842ひよこ名無しさん
NGNGこの度はアフォな>>841がご迷惑をおかけしました。
こんなレベルの人間がネットをやるなんて言語道断。
見ているだけで吐き気がするとは思いますが、すぐに連れて帰りますので
どうかお許し下さい。申し訳ありません。
0843841
NGNGウィルスとかは無いようです。
成功すると
http://www.geocities.co.jp/AnimeComic-Ink/3009/aaa.jpg
のウィンドウみたいになるみたいです。
0844841
NGNG0845829
NGNG取得できたYO-!
0846デフォルトの名無しさん
NGNG計算し、出力したいのですがどうすればいいのでしょうか？
入力する数値は、[0010]という風に頭に０がつく場合もあります。
そして、計算して表示するときに、[0020]という風に出したいのです。
Integerにすると前についている０がなくなってしまうので困っています。
0847デフォルトの名無しさん
NGNG>計算し、出力したいのですがどうすればいいのでしょうか？
意味不明。数値を入力してるのに何を計算すんねん。
(123 + 45←こういうのは式だ。)
>入力する数値は、[0010]という風に頭に０がつく場合もあります。
そういうのを数値と呼びません。数値とみなしたいなら0は省くのは当然。
>そして、計算して表示するときに、[0020]という風に出したいのです。
値まで変わってるがな。
> Integerにすると前についている０がなくなってしまうので困っています。
Stringで扱え。
0848デフォルトの名無しさん
NGNG先程お願いしましたが、まだ削除されていません
事実無根です
早急に削除して下さい
http://kaba.2ch.net/test/read.cgi/company/997171282/699
215 名前：削除屋三太郎 ★ ：01/10/20 12:09 ID:???
>>213-214
http://www.2ch.net/guide/adv.html#saku_guideに、
＞法人・公的機関の取り扱い
＞原則放置
＞ 法人・企業については、社会・出来事カテゴリ内では、批判・誹謗中傷、
＞インターネット内で公開されている情報、インターネット外のデータソースが不明確なもの、は全て放置です。
とありますので、放置とさせていただきます。
260 ： ：01/10/23 10:54 ID:iMDesK4O
＞ 法人・企業については、社会・出来事カテゴリ内では、批判・誹謗中傷、
＞インターネット内で公開されている情報、インターネット外のデータソースが不明確なもの、は全て放置です
おいおい、データソースが不明確だからこそ削除するんだろうが（苦笑
0849デフォルトの名無しさん
NGNG単純に言ってしまえば、
0010 + 10 = 0020 としたいんです。
そのやり方がわからないということです。
0850デフォルトの名無しさん
NGNGInt32.Parse();
String.Format();
0852デフォルトの名無しさん
NGNGInt32.ToString()でもいいな。
0853デフォルトの名無しさん
NGNG>>846みたいなのが（以下略）
0854デフォルトの名無しさん
NGNG同意。
文字列と整数の区別が付いてないとなるとVBの高級さ故の弊害であると言うしかない。
0855初心者
NGNGFalse は何と読むのですか？
「ファルス」「フォルス」どちら？
0856デフォルトの名無しさん
NGNGフォー留守。
0857デフォルトの名無しさん
NGNG型あり言語しかつかったことがない厨房
0858デフォルトの名無しさん
NGNGPerl、Javascript etcetc...。使えますが？お馬鹿さん。
0859デフォルトの名無しさん
NGNGそれなら、バリアント型がけして厨房型ではなくて文字列と整数の区別が
ついていないのはVBのせいではなく単に初心者だからってのがわかるだろ。
0860デフォルトの名無しさん
NGNGVBそのような勘違いを招くため入門用言語とするのは間違いです。
VBは初心者を潰します。まる。
0861デフォルトの名無しさん
NGNG0862デフォルトの名無しさん
NGNGあ、同じような悩みを持つ人ﾊｹｰﾝ
目上の人が「ファルスファルス」言ってるから、
いまさら俺も「フォルス」と言えず、その人と話す時は「Trueでない」と言ってます。
0863デフォルトの名無しさん
NGNGQueryUnloadで十分だし、そのほうがいいと思うんだけど。
UnloadのCancelになんか使い道ある？
0864デフォルトの名無しさん
NGNGうむ、賛成。
ついでにPerlやJavaScriptなんかも初心者はやめたほうがいい。
0865デフォルトの名無しさん
NGNGPerl、JavaScript：特定の問題を解決するための言語。それには方という概念が本質的でなかった。
VB：型が必要にも関わらず（APIを使う以上）関わらずVariantなどという謎の型が生きている。
0866デフォルトの名無しさん
NGNGﾌﾟﾌﾟｯ。がんばってるなぁ。APIを使うから型が必要か。
Variantは値型、参照型両方入れられる基本型とでも考えてみたら。
0867866
NGNG○ 基本クラス
ようするにObject型(Javaにもあるね)のようなものだ。
0868デフォルトの名無しさん
NGNG851さんの方法でできました。
ありがとうございます。
ただそれだと、0000の場合しか対応できないので、lenで文字列の長さを調べて
0で埋めたいのですがどういった関数を使えばいいのでしょうか？
0869デフォルトの名無しさん
NGNG気前よく15個くらい0を足しといてから、Rightで必要な分だけ切り出す。
無駄なのがイヤだったらString$。
0870デフォルトの名無しさん
NGNGOK
>>865
Variant型は複数の型の変数を持った構造体みたいなもんだ。
PHPの変数と同じだな。
>Variantなどという謎の型が生きている。
Variantを有効に使えてないへたれと判明。
>>868
String関数で指定の文字を任意の長さだけ繰り返したの文字列を作成
Right関数で任意桁だけ取り出す。
文字列関数を一通り調べてみ。
0871デフォルトの名無しさん
NGNGふむふむ
.NETだとString$が使えないです。
「キーワードに型文字を使うことはできません。」とでてしまいます。
Format$(10, String$(Len(StartNum.Text),"0"))
こんな風になると思ったのですが・・・。
Stringの代わりになる関数が見あたらないし(T_T)
どうしたらいいのでしょう？？
0872ごみレス ◆WuzDVM0M
NGNG0873ごみレス ◆WuzDVM0M
NGNG0874ごみレス ◆WuzDVM0M
NGNGms-help://MS.VSCC/MS.MSDNVS.1041/vblr7/html/valrfStrDupFunction.htm
0875デフォルトの名無しさん
NGNG共用体って知ってるか？ブビ厨。
0876VB初心者
NGNGImage コントロールの Stretch プロパティを True にして、
ロードした画像を拡大・縮小した際、その画像をファイルに保存したり
他のコントロールの Picture プロパティに割り当てたりすることは可能ですか？
要は拡大・縮小後の画像を利用したいのです。
よろしくお願いします。
0877デフォルトの名無しさん
NGNGそういう時は、PictureBoxコントロールでPaintPictureメソッドを使う。
0878デフォルトの名無しさん
NGNG使ってみたらできました。
ありがとうございます。
みなさんどうやって調べてるのかな？
検索する文字が悪いから見つからないのかなぁ。
うむむ
0879876
NGNG回答ありがとうございます。
さっそく試してみましたが、うまくいきません。
イメージコントロール imgDummy に画像がロードしてあり、
Stretch = True で、マウスドラッグにより自由に拡大・縮小できるようにしてあります。
これを ピクチャーボックス picMain にそのまま移したいのですが、
picMain.PaintPicture imgDummy.Picture, _
0, _
0, _
imgDummy.Width, _
imgDummy.Height, _
0, _
0, _
imgDummy.Width, _
imgDummy.Height
これを実行すると元サイズの画像が転送されてしまいます。
フォームと picMain の ScaleMode はピクセルにしてあります。
picMain の AutoSize は False です。
たびたび申し訳ないです。
よろしくお願いします。
0881876
NGNGすいません。出来ました。
>879 の書き込みは無視して結構です。
失礼しました。
0882870
NGNGすまそ。.NETでの話しだったな、そういえば。
じゃあString関数じゃなくてStringクラスの
コンストラクタ(Char, Integer)のやつでどうぞ。
あるいは、String関数にこだわるなら、StrDup関数になってるよ。・・・って874で回答ついてた(汗
Right関数は引き続き使える。StringクラスのSubstringメソッドでもOK。
>>878
.NET Framework SDK
- リファレンス
- コンパイラおよび言語リファレンス
- Visual Basic
以下のドキュメントくらいざっと目を通した方よいと思われ。
>>875
>共用体って知ってるか？ブビ厨。
知ってるよ。実装から言えば、確かに構造体じゃなく共用体だ。すまそ。
といっても、イメージの問題だからさ、
「複数の型を持つ構造体のようなもの・・・」でいいじゃん。
せっかく「PHPの変数と同じだな。」と書いたことだし、
スレ違いだが、PHPでの変数の実装を紹介しとく。
http://cvs.php.net/co.php/php3/php.h?r=1.70&Horde=9690b933cf7eb309485752989e00b398
で構造体の_pval_structや共用体のpvalue_valueをご覧あれ。
0883デフォルトの名無しさん
NGNGVBを始めたいのですが、高いので・・・。
やっぱり、体験版のついた参考書を買うしかないのでしょうか。
0884デフォルトの名無しさん
NGNG0886sage
NGNG他のアプリに「Alt+CTR+SHIFT+2」といったキー操作を送るには、どうしたらいいのでしょうか？
Private Sub Image1_Click()
AppActivate "Ultima Online" ←ネトゲーです
SendKeys "%(^+2)"
End Sub
とやってみたのですが、成功するときもあれば失敗するときもあります。
「%(^+2)」が間違ってるのでしょうか？
「%^+2」でも送れることがあります。
それとも、問題はもっと違うところにあるのでしょうか？
よろしくお願いします。
0887デフォルトの名無しさん
NGNG0888デフォルトの名無しさん
NGNG微妙なタイミングが原因。
AppActivateされても、実際にアクティブになるまでには、
時間がかかることがある。Windowsの状態によってはね。
たとえば１秒くらい待ってから、SenkKeysしてみたら？
0889デフォルトの名無しさん
NGNG時間ですか…
ＭＳＤＮを見るとIntervalとなっていますが、これを使うのでしょうか？
また、そのときにタイマーコントロールを追加する必要があるのでしょうか？？
0890デフォルトの名無しさん
NGNG.NETやればー。SDKは無料だし。
VS.NET体験版(60日限定)もあるよ。
日経ソフトウェア7月号とかの付録(DVD-ROM)に入ってる。
>>889
API関数のSleepで待て。
0891デフォルトの名無しさん
NGNG「常に前面に表示する」以外では使ったことないや。
とりあえず、いろいろいじくってみます。
ありがとうございました。
0892883
NGNG885さん
あったんですね。いろんなリンクを辿ったんですけど無くなってたので
諦めかけてました。
890さん
.NETは考えてなかったんですが、日経ソフトウェア買って調べてみようと
思います。
0893デフォルトの名無しさん
NGNGありがとうございました。
ＡＰＩの使い方等はあまりわからないのですが、
「Visual Basic Tips 1000+」のサンプルコードを見て、なんとか動くようになりました。
ところで、標準モジュールを
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
フォームの方で
Private Sub Image1_Click()
Dim magicwait As Long
magicwait = 100
AppActivate "Ultima Online"
Sleep magicwait
SendKeys "^(+%2)"
End Sub
としたのですが、これってあってるのでしょうか？？
0894デフォルトの名無しさん
NGNG100だと0.1秒になるね。
それでよければ、べつにいいんだけど。
0895デフォルトの名無しさん
NGNG0896デフォルトの名無しさん
NGNG.NET SDKをざっと目を通してみます。
かんばってＶＢを使えるようにしたいですな。
（高かったし・・・・。）
ありがとうございます。
0897デフォルトの名無しさん
NGNGなんでわざわざVB.NET・・・。
ＶＢ．ＮＥＴスタンダードを購入したんですが
ＤＩＳＫ１のインストールでつまずいてます；；
セットアップのダイアログボックス
「インストールコンポーネント～この処理に１～２分かかり～」
のところで止まってしまいます。タスクを開いてみると、
応答なしと出ています。原因がまったく分かりません。
うまくインストール出来るよう是非ともお教え下さい。
真剣に悩んでます。
0899ギャルギャル集合
NGNGhttp://go.iclub.to/yewssio/ まるごと女子中高生 iモ－ド
http://go.iclub.to/ttyui/ マンピ～のGスポ PC
http://go.iclub.to/qppl/ マンピ～のGスポ iモ－ド
http://go.iclub.to/ffrqw/ ピチピチ女学院 PC
http://go.iclub.to/ggoute/ ピチピチ女学院 iモ－ド
0900デフォルトの名無しさん
NGNG根気強く待つ。
後、>>897
早速の返答ありがとうございます。
２時間程待ってはいたんですが、全然変わらないのです。
それ以上待ってみた方がいいのでしょうか？
ちなみにインストールに必要な条件は
全てクリアしています。
0902デフォルトの名無しさん
NGNGまずはOSをクリーンインスト
0903デフォルトの名無しさん
NGNGすべてクリアしてるという説明だと本当かどうか怪しいな。
スペックやOSやら書きなさい。
今の時点でできるアドバイスは、OSから再インストールだな。
0905デフォルトの名無しさん
NGNG0908デフォルトの名無しさん
NGNG２時間待ってるのなら気長は撤回。
0909ごみレス ◆WuzDVM0M
NGNGCDROMドライブがおかしいとかかもね。。。
何のソフトのCDだったか忘れたが、
DVDROM/CDR/RWのやつで、
インストールしてる途中、ある場所で必ず止まる。
傷が付いてるからかなぁ。ﾊｧと思って、
純正(?)CDROMドライブに切り替えたらすんなり読み込めた。
そんなこともあるからね。原因を特定するのは至難の技ではないかと。
そういや、最後の一分ってのが異様に長かった。
と言っても１０分､20ぷんぐらいだけどね。
確か応答なしになってたと思うが、IOのところ見てたら大丈夫っぽかった。
１発目から止まってしまうといった症状に
なってます。
そんなこんなで微笑なり傷が付いてしまってます。
パッケージにも原因がありますね・・・。
初めのコンポーネントＣＤでは普通にインストール
出来たんですけど。
１つ１つ原因を探ってみます。
長々どうもありがとうございました。
0911893
NGNGゲームでは、魔法詠唱が遅れると死を招くので、これからいろいろ時間を試してみたいと思います
>>895
そうですか…
sendkeyは安定動作しないんですね。
やはりＡＰＩも勉強しないとダメか…
まぁ、作ったソフトを公開するというわけではないので、何十回に１回とかの割合で失敗してもよしとします。TT
0912デフォルトの名無しさん
NGNG遅くなりましたがありがとうございます。
多量のOCXのコントロールを使っている場合だと、
コードが繁多になってしまい有効じゃないですね。
0913デフォルトの名無しさん
NGNGを発生させる方法をおしえてください。
複数のフォームから呼ばれるので、フォーム名きめ打ちはできないです。
ちなみに、標準モジュールの関数呼出の際、フォームのhWnd だけはわかるものとします。
0914デフォルトの名無しさん
NGNGで、VB独自のドリブンシステムとWindowsのWindowの識別ハンドル。
ハンドルじゃなくてオブジェクト渡す方が確実だと思われ。
0915デフォルトの名無しさん
NGNGたとえば、
GetGirlsPicture
という関数を呼ぶとき、
strG = Girls
で、
Get & strG & Picture
って感じで行いたいんですが。
0916デフォルトの名無しさん
NGNG0917デフォルトの名無しさん
NGNGhWndを使うと面倒の元。
あるフォームから標準モジュール内のプロシージャを呼ぶ時に、
呼び出し元のフォームを"me"として引数にすればよし。
標準モジュールプロシージャ側では、引数として渡された
フォームオブジェクトのイベントプロシージャをコール。
意味ちがった？
0918デフォルトの名無しさん
NGNGフォームやクラスのメンバ関数なら、CallByNameで出来る。
0919デフォルトの名無しさん
NGNGCallByName Me, "Click", VbMethod
こんな感じで試してみました。
でもこれだとエラーになるみたいです。
どのようにやるんですか？
0920デフォルトの名無しさん
NGNGありがとうございます。
その後、919になりました。
0921デフォルトの名無しさん
NGNGExcelのVBAでマクロ作ってるんですが、コンパイル時にComboBoxのItemDataとNewIndexがないと言われてしまいます。
で、自動的に入力してくれるやつの選択枝にも入っていません。
こんな経験ある方いませんか?
ItemDataとNewIndexがないと困ってしまう。。。
0922デフォルトの名無しさん
NGNGExcelのVBAでアフロ作ってるんですが、コンパイル時にComboBoxのItemDataとNewIndexがないと言われてしまいま
す。
0923デフォルトの名無しさん
NGNGそもそも、なんで標準モジュールから
フォームのイベントを発生させたいのか疑問。
普通の感性では気持ち悪くてやりたくないはず。
0924921
NGNGもしかして、普通のVBとExcelのマクロとかで使うVBAって仕様が違うんですか?
普通のVBは使ったことないんだけど
0925921
NGNGやっぱりVBAはVBと同じではなくて、プロパティとかも少ないんですね。
これまでVBのマニュアルしか読んでませんでしたので。
で、VBAでItemDataの変わりになるものってあります?
ないとけっこう不便だと思いますが
0926921
NGNG0927デフォルトの名無しさん
NGNGサブクラスの関数からイベント発生させたいんですよ。
通常の関数だと、呼出時に返値をもらいそれを場合わけして、
単に Form_Click で呼び出せばいいわけですが、
それが出来ないので、
hWnd から、そのフォーム名を割り出して、
"任意のフォーム名".Form_Click
なんて出来たり、
とにかく、どのフォームからでも参照されて、
参照されたフォームの Form_Click でもなんでも、
そのフォームの Private な関数を実行したり、イベントを発生させたいわけです。
0928デフォルトの名無しさん
NGNG＞Private な関数を実行したり
オブジェクト指向の勉強が必要かと。
0929デフォルトの名無しさん
NGNGると、エラーがでます。誰かデバッグしてください。
Option Explicit
Private Sub Command1_Click()
Dim b() As Byte
Dim strURL As String
Dim strFilename As String
strURL = "http://www.aa.alpha-net.ne.jp/gfababa/"
strFilename = "C:\AAA\a.txt"
' 処理中マウスカーソル
Screen.MousePointer = vbHourglass
' 操作が途中の場合キャンセルする
Inet1.Cancel
' プロトコルを HTTP に設定
Inet1.Protocol = icHTTP
' 対象のURLを指定する
Inet1.URL = strURL
' バイナリ配列としてURLを取得する
b() = Inet1.OpenURL(, icByteArray)
' 取得したデータをファイルに書き出す
Open strFilename For Binary Access Write As #1
Put #1, , b()
Close #1
' マウスカーソルを通常に戻す
Screen.MousePointer = vbDefault
' 処理完了メッセージを表示する
MsgBox strURL & " を " & strFilename & " に保存しました。"
End Sub
0930デフォルトの名無しさん
NGNGindex.html
0931デフォルトの名無しさん
NGNGいや、なんか変数が宣言されてないとかなんとか・・・
0932デフォルトの名無しさん
NGNG文法エラーごときで来ないでくれるか・・・。
0933デフォルトの名無しさん
NGNGじゃ、どうやってInetを宣言するか教えてくれ。
0934デフォルトの名無しさん
NGNG0935デフォルトの名無しさん
NGNG"任意のフォーム名".Form_Click と書いているけど、
任意のフォーム名を持つフォームが複数ある場合があるのを知ってる？
あと、イベントプロシージャを直接呼ぶのはやめとけ。
イベントプロシージャ内をPublic関数にして、それを呼べ。
できればPublic関数にするだけじゃなく、インタフェースを持たせるとベスト。
それとMeの使い方を調べよう。
0936デフォルトの名無しさん
NGNGすべてのフォームのClickイベントのイベントプロシージャをPublicにして、
その標準モジュールに渡す引数をMeにする。
0937デフォルトの名無しさん
NGNG実現方法を教えてけれ。サンプルソースを
書いてくれるとうれしいよ～
0938デフォルトの名無しさん
NGNG勉強になるから、自分でやれ！
0939デフォルトの名無しさん
NGNG0940デフォルトの名無しさん
NGNG7.0aSDK落としてくれば、Direct3D8からでも使えますか？
教えてやらんこともないから，なぜ逆ポーランド記述が必要なんだ？
何に使うんだ？ということを書け。クレクレ君は嫌われるぞ。
ただし，宿題だとか論文に使うとかがばれんようにな。
0942デフォルトの名無しさん
NGNG演算子を数字の後につけるやつ？
電卓プログラム作るにはこっちのほうが実は楽なんじゃないかと
思うけど・・・
0943ミニグラマー
NGNGですので、ここに書かせてもらいます。
エクセルVBAで保守を行って保存しようとすると、
「&H8000FFFF(-214748113):ｼｽﾃﾑｴﾗｰ。致命的なｴﾗｰ」と130回くらい
エラーメッセージがでます。
色んな方向からパソコンを叩いてはみたのですが、いっこうに直りません。
ちなみにヘルプファイルはないので、エラーコードだされてもって
感じです。
一応、上書き保存はできているしプログラムは動きます。
お分かりになる方、是非教えて下さい。
0944デフォルトの名無しさん
NGNG恥ずかしいけど中二のくせにオネショしちゃったみたい…
でも、ｵｼｯｺじゃないみたいなんだよね…
パンツがゴワゴワ、ヌルヌルしている感じなんだ…
何でだろう。漏れ、ひょっとして病気かな？
一度ｵｼｯｺしたら気持ち悪いのでパンツを履き替えて、また寝ます。
明日も早朝練習があるのでしっかり睡眠を取らないと朝起きれないです。
0945デフォルトの名無しさん
NGNG130回も数えたのはすごいと思うが、
パソコンを叩くのはやめなさい（ｗ
あと、なんでヘルプファイルないの？
0946デフォルトの名無しさん
NGNGピーコだから。なんてね(w
0947デフォルトの名無しさん
NGNG分かったぞ！ そいつは致命的なエラーだ！
つまり助かりません。
------------- 終了 ---------------
0948デフォルトの名無しさん
NGNG130回ぐらいたたいてみてはどうでしょうか？
0949デフォルトの名無しさん
NGNGハンマーで思いっきり叩くと出なくなるよ。なんにも。
0950デフォルトの名無しさん
NGNGパソコン130回叩く前に他で再現するかどうか確認汁。
それらイタチ害と思われ。
叩くだけじゃ駄目だ！窓から投げ捨てろ！
ちゃんと先祖供養はしていますか？
0953デフォルトの名無しさん
NGNGpants1.reflesh
0954デフォルトの名無しさん
NGNGpant1.refreshだった、、、
0955デフォルトの名無しさん
NGNGPrivate Sub Winsock1_Connect()
If getMode = 0 Then
Winsock1.SendData "GET /tech/subject.txt HTTP/1.0" & vbCrLf
End If
If getMode = 1 Then
Winsock1.SendData "GET /tech/dat/" & strDatName & " HTTP/1.0" & vbCrLf
End If
Winsock1.SendData "Host: pc.2ch.net" & vbCrLf
Winsock1.SendData "User-Agent: Monazilla/1.00 (test/1.0)" & vbCrLf
Winsock1.SendData "Accept: */*" & vbCrLf
Winsock1.SendData "Accept-Language: ja" & vbCrLf
Winsock1.SendData vbCrLf
End Sub
0956デフォルトの名無しさん
NGNG0957デフォルトの名無しさん
NGNGってな訳で、960番ｹﾞｯﾀｰの方は新ｽﾚおながいします。
0958デフォルトの名無しさん
NGNG俺のはAs Newで宣言されてるから、次のが自動装着されるのだ！ﾜﾊﾊﾊﾊ
0959デフォルトの名無しさん
NGNGhIMC ってなんですか？
0960デフォルトの名無しさん
NGNGIMEが利用不可（右下で、ツールバーが消えるか、禁止マークがかかる。）
となりますが、これはどうやるんですか？
単にIMEモードをOn, Off する方法はわかったんですが、
これが出来ません。
0961デフォルトの名無しさん
NGNG次スレよろ
0962デフォルトの名無しさん
NGNG0963デフォルトの名無しさん
NGNG無理。VC使え。
0964962
NGNG0966デフォルトの名無しさん
NGNG0967デフォルトの名無しさん
NGNG0968デフォルトの名無しさん
NGNGいい天気ですね。
台風や嵐はすきなんです。
VB始めると友人にいったら（パソコン詳しい人C#にしろといいます
ネットが瞳孔といい、
インターネットソフトにいいですが、
あまり興味はありません。
VBはいろいろとあるらしいので、
なにかあるならおしえてください
0970デフォルトの名無しさん
NGNGどこを縦に読めと？
0971デフォルトの名無しさん
NGNGAccessのデータを日付の条件で抽出するときのsql文について分からないことがありますので、
どなたかおわかりでしたらご教授願います。
（ＶＢは６.０、Accsessは2000、ActiveXdataObject2.1で作っています）
dim cnct as new adodb.connection
dim rs as new adodb.recordset
・
・
・
dim sql as string
sql = ""
sql = sql & "selest sir_tokui" '(仕入れMの得意先名)
sql = sql & "from sir " '(仕入れM)
sql = sql & "where sir_date >= " '(仕入れMの仕入れ日)
sql = sql & DTPsiireStart.value '(画面で指定される日付開始)
sql = sql & "and sir_date <= " '(仕入れMの仕入れ日)
sql = sql & DTPsiireEnd.value '(画面で指定される日付終了)
Open rs, sql, cnct
・
・
・
画面で指定された値が02/07/01の場合、
（DTPpickerのプロパティでformatはYY/MM/DDです。）
これ（sql）をインミディエイトウィンドウで見ると
select sir_tokui from sir where sir_date >= 2002/07/01 and
sir_date <= 2002/07/01
となっています。
エラー等は出ないのですが、該当データが０軒（BOFとEOFがtrue）で
返って来ます。
データは存在します。
どのようにしたらきちんと抽出できるのでしょうか？
またデータ０軒になる理由は何なのでしょうか？
過去ログもみてみましたが分かりませんでした。
どなたか、よろしくお願いします。
0972デフォルトの名無しさん
NGNG長すぎました・・。
でも、どなたか回答お願いします。
0974デフォルトの名無しさん
NGNGって逝っても、もう終わりかけてるね
0976791
NGNGでもDTPpickerのvalueはdate型なので、date型に変換しなくても良いのかと、思ったのですが・・。
0977初心
NGNG検索はシングルコーﾃｰｼｮﾝ２こ並べてクリアできますよね。でも％＿を検索
したいときってどうすればいいですか。
レス数が950を超えています。1000を超えると書き込みができなくなります。