トップページ⇒tech
1001コメント304KB

VBプログラマ質問スレ(6.0以前) Part39

レス数が1000を超えています。これ以上書き込みはできません。
0001デフォルトNGNG
ここは Visual Basic ～6.0 の質問スレです。
質問者は使用しているOS、VBのバージョン、サービスパック
何がしたくでどうしたけどどう困っているのかを明確に書きましょう。

○関連スレッド
VB.NETは別物なので、基本的に質問はこちらへ
VB.NET質問ｽﾚ (Part7)
http://pc5.2ch.net/test/read.cgi/tech/1096683017/l50

API関連の質問はこちらへ
Win32API質問箱 Build24
http://pc5.2ch.net/test/read.cgi/tech/1098967135/l50

MSDN Online Japan ホーム
http://www.microsoft.com/japan/msdn/default.asp
Visual Studio 6.0 Service Pack 6 正式リリース
http://msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx
Google
http://www.google.co.jp/
※「まず自分で調べる」を身につけよう。

心得
一．質問する前に過去ログにも目を通してみる。
二．質問する前に MSDN などで調べてみる。
三．VBScript もこのスレでＯＫ。
四．インストーラーなどの質問もＯＫ。
五．荒らしは相手しない。
六. VB情報募集中。
七．VB.NETの話題できるだけひかえる。

前スレ Part39 http://pc5.2ch.net/test/read.cgi/tech/1099737063/
0002デフォルトの名無しさんNGNG
間違えて39で立てちゃった。削除依頼しときます。
0003デフォルトの名無しさんNGNG
基、削除依頼しといてください。
0004デフォルトの名無しさんNGNG
新スレはここでよろしいでしょうか？
前スレの846で、VBからバッチファイルを起動したが、バッチファイルから呼び出す
exeがエラーを吐き出してうまく動かないと相談したものです。
ﾚｽもらったのに返答できなくて申し訳ありません。

あの後、ご教授通りにやってみたのですがやっぱりこれでも動きませんでした。
エラーの内容から、バッチから呼び出しているexeが、入力ファイルを
うまく認識していないことが判明しました。
実は、この入力ファイルはバッチファイル起動直前にVB内でリネーム処理
（正確には名前を変えてコピーして元ファイルを削除）をかけているのですが
このリネームの処理が何らかの原因を抱えているのではないかと
思います。

Dim o As Object
Dim in As String
Set o = CreateObject("Scripting.FileSystemObject")
o.CopyFile in, "INPUTFILE.dat"
o.DeleteFile in, True
Set o = Nothing

プログラムは大まかにこんな感じですが、これではリネーム処理が確定していないとか
あるのでしょうか？
0005デフォルトの名無しさんNGNG
前のスレでも注意されてたが、エラーの内容ってのを書かないと何とも答えられないぞ。
たぶんカレントパスにファイルが無いからエラーになってんだろうけど。

Debug.Print in
Debug.Print App.Path & "\" & in
Debug.Print App.Path & "\INPUTFILE.dat"

と出力して、パス確認してみれ。

0006デフォルトの名無しさんNGNG
実行中はDebug.Printだと確認できないか。
MsgBoxで確認して。
0007デフォルトの名無しさんNGNG
アホだ。App.Pathじゃ駄目だ。
CurDirだったかな。
欝だ寝よう。
0008デフォルトの名無しさんNGNG
>>1
乙
00094NGNG
>>5
エラーの内容は
入力ファイルがありません。　と怒られます。
単純にこれだけです。

debugとmsgboxで表示させてみましたが、2番目でC:\aaa\bbb\C:\aaa\bbb\1
となっていました。リネーム直後にバッチを起動するため
これが原因となるのでしょうか？

あと、1ついい忘れたことがありまして、
デバッグモードだとバッチが正常に動きます。
しかし、完全コンパイル(exe化など)してだと、バッチがうまく動きません。
0010デフォルトの名無しさんNGNG
>>9
INPUTFILE.datが目的通りの所に作成されたか確認した？

試しに
o.CopyFile in, App.Path & "\INPUTFILE.dat"
でフルパスで指定して実行してみてごらんなさいませ。

カレントディレクトリとモジュール置かれてるパスは別物って認識はOK？
0011デフォルトの名無しさんNGNG
しつもん

今日知合いがVB6.0でプログラミングをしていて、「処理がおそい」と言っていたので
ソースコードをみてみると、
(x - i) * (x - i) + (y - j) * (y - j) <= AA * AA
という式を見付けました。
そこで僕は
(x - i) ^ 2 + (y -j ) ^ 2 <= AA ^ 2
に書き換えて走らせてみたところ、実行速度が遅くなりました。
なんで？？？？
ちなみに、(x-i)*(x-i)の時も(x-i)^2の時も、ネイティブコードにコンパイルせずに
再生ボタンのようなもので走らせていました。
最適化してコンパイルすれば(x-i)^2のほうが早くなったりしたんですか？
ちなみに、x, y は integer、 i, j はlong(かdouble)でした。
なんでなの？よくあることなの？
0012デフォルトの名無しさんNGNG
ウインドウを透過させたいのですが、どのようにすればいいでしょうか・・
それらしいプロパティもなく困っています。ﾚｽよろしくお願いします。
0013デフォルトの名無しさんNGNG
>>12
SetLayeredWindowAttributesでいけると思う。
0014デフォルトの名無しさんNGNG
質問です。
複数フォームにして、標準モジュールから命令して図形専用のフォームに図形を描きたいのですが、

グラフィックメソッドを標準モジュールから使用する方法はありませんか？

また、図形フォームから他モジュールの変数を呼び出して、その変数から線を描く方法はありませんか？

とにかく他モジュールのデータから図形フォームに図を描きたいのですが方法が分かりません。

お願いします


0015デフォルトの名無しさんNGNG
↑書き忘れ　VB6です
0016デフォルトの名無しさんNGNG
>>14
１．他のフォームなりモジュールから直接参照する。
Form1.Picture1.hoge = hage

２．FormコントロールなりPictureコントロールなりを引数とする関数を作成する。
public sub xxx(Byref pic as PictureBox)
0017デフォルトの名無しさんNGNG
WinXP VB6 SP6 です。

ディストリビューション ウィザードで作成したセットアップファイルに
ライセンス等の同意確認画面を入れたいのですが、参考になる画面の
サンプルソースで、何か良いのありませんか？

よろしくお願いします。
0018デフォルトの名無しさんNGNG
>>17
そんな物使うな！
0019デフォルトの名無しさんNGNG
>>17
基本的には１８さんに同意で、グレープシティーなりから買ってしまったほうが楽。
あれには最初からついてるからウィザードだけで出来る。

で、そうじゃない場合、ディストリビューションウィザード自体のソースがVBで提供されてますよね。
デザインは見様見真似でそんなに難しくなく出来ると思うのですが。
0020デフォルトの名無しさんNGNG
すいません。ヒント、考え方だけでもいいので教えてください。
NT系ローカル端末内に複数 ログインユーザーが存在するのですが
Administratorでログインしレジストリにもっている全てのユーザー
セッティングに対して値を操作するツールをVBで作りたいとおもいます。
APIでこのあたりを操作するための関数があるそうですが
フローがよくわかりません VB６で作成予定です。

0021デフォルトの名無しさんNGNG
RegCreateKeyEX辺りから辿ってみる。
0022デフォルトの名無しさんNGNG
>>11
VBに限らず、かけ算よりべき乗のほうが内部処理が複雑で、実行速度も遅い。
0023デフォルトの名無しさんNGNG
>>22
えっまじで！？
いままで勘違いしてました。
ありがとう。
0024デフォルトの名無しさんNGNG
>>22
ちなみに、ネストされたループの中に何度も出てきた２５５という実数を
integer型の変数に入れたんですが、もしかしてこれも逆効果だったりしますか？
0025デフォルトの名無しさんNGNG
最小化ボタンを押した時タスクバーに表示させないで
右下の時間表示の横にアイコンとして置いておきたいのですけど、
VBでできますか？
0026デフォルトの名無しさんNGNG
はい。
002725NGNG
>>26
どうやったらできるのでしょうか？
宜しければ教えていただけないでしょうか？
0028デフォルトの名無しさんNGNG
webbrowserコントロールの解説してるところないですか？
MSDN見てもないし、ぐぐっても個々の問題に対する問い合わせしかみつからないです・・・
0029デフォルトの名無しさんNGNG
>>24
constにした方がいいんじゃないか？
003028NGNG
じゃ個別に質問しちゃいます。
2chブラウザ作ってます。
ヘッダーのつけ方がわかりません。
accep-encodingとUAを切り分ける文字ってなんですか？
WebBrowser1.Navigate env, , , , "Accept-Encoding: gzip User-Agent: Monazilla/1.00"
これで環境変数チェックサイト行くとくっついちゃってます・・・
env = http://www.cybersyndrome.net/evc.html
2ch仕様　http://age.s22.xrea.com/talk2ch/index.html
0031デフォルトの名無しさんNGNG
>>25
ttp://homepage1.nifty.com/CavalierLab/lab/vb/clsmdl/staico.html
のような感じだが、右下や時計の横に出るとはかぎらん
003228NGNG
できた。カレーにスルーってやつか
0033デフォルトの名無しさんNGNG
webbrowserコントロールってinetのexecuteみたいに非同期では動かせないんでしょうか？
0034デフォルトの名無しさんNGNG
VB6.0で作ったプログラムで、ユーザ定義のメッセージを受け取って
そのメッセージ用の処理をする、みたいなことって
できるのでしょうか。
0035デフォルトの名無しさんNGNG
特定のウィンドウを前面に出すにはどうすればよいのでしょうか。
0036デフォルトの名無しさんNGNG
FormAからFormBを呼び出すときに、関数呼び出すみたいにして、引数を与えることとか出来るのでしょうか？
003717NGNG
>>18
解決法も書かずに否定されても・・・ここは質問スレでしょ？

>>19
グレープシティーは無理です。インストーラーは高すぎて・・・。
ディストリビューションウィザードのソースは解かります。

ライセンス同意確認画面の参考になるサンプルフォームって、
何処かにないですかねぇ・・・。
0038デフォルトの名無しさんNGNG
>>37
仕事だとしたら、あんたが悩んでる２日でもうインストーラーが買えてますが・・・。ｗ

サンプルって、普通のOSとかOfficeのインストール画面真似ればいいだけじゃん。
どっかの段階の画面遷移で自分のその画面への経由を入れる。
Textがスクロールして、F8で同意とかその辺りまでサンプルが無いと作れないんでしょうか？
そうなら配布するプログラムなんて作れないと思うんですが。
0039デフォルトの名無しさんNGNG
>35
FindWindowあたりをキーワードにぐぐってみるってのはどうよ？

>36
Formの標準メソッドをオーバーライドする事は出来ない。
自作メソッドならご自由に。
0040デフォルトの名無しさんNGNG
>>38
えっ、日給２万なんですか？高給ですねぇ。

まだ、準備段階の資料集めなので、同意確認の文章の決まり事が
あるのかなっと、調べているとこなんです。

予算下りないんですよ～～調べて無いって証明できないと買ってくれないので。
0041デフォルトの名無しさんNGNG
何から何まで無能だな
0042デフォルトの名無しさんNGNG
>>40
まずちゃちゃから、会社として考えたとき会社があなたへ負担する額は給与の倍ぐらいです。
なのでツールとか買うときは、１日３万から５万ぐらいで計算して割りが合うか考えるもんです。

次に、最初の>>17に対してなぜ>>18みたいな回答が入るか（私は18じゃないが）指摘します。
17で出来るか？っていう曖昧な聞き方をするから、それに対して出来る。で終了でしょ。
で>>40になって、じつはVBの問題ではなく、法律的な部分まで求めてるし。

で、何が問題点なの？
法律的に賄えてるかなんて、専門家じゃないと指摘できないし、最終的な責任判断はそれこそ自社ですよ。
2chで聞くなんて笑止です。
一応参考までに。
ttp://adminn.fc2web.com/houmu/houmu.html

（こんなのぐぐればすぐにでるのに・・・・）
0043デフォルトの名無しさんNGNG
ttp://www.grapecity.com/japan/support/database/P3_29.htm
ttp://www.grapecity.com/japan/Products/CompCharts/wise_win5/comp01.htm

インストールスタジオスタンダードに「使用許諾契約の表示と確認」は
付いて無いじゃん、プロは１３万、エンタは１９万も出せません・・・。

>>41
えっ、日給６万なんですか？高給ですねぇ。
月１２０万超えるじゃん。そういう人になら無能って言われても納得。
0044デフォルトの名無しさんNGNG
>>40
http://dobon.net/vb/installer/
これを全部試してみれば？
0045デフォルトの名無しさんNGNG
>>43
だから、VBの技術の問題なのか。
それともその画面で何を書いたらいいかわからないのか。
どっちかはっきりしてくれ。

40の話だと文書がかけないだけじゃないの？
それなら42に書いたサイトぐらい見てから書き込め。

ディストリビューションウィザードのソースが見れるっていう>>37の話があるから
技術的に何が問題なのかさっぱりわかりません。
あのソースみてVBそのものなのに、作る上で何が問題なの？
0046デフォルトの名無しさんNGNG
>>42
誰が何時、「出来るか？」って聞いたの？

「サンプルありますか？」って聞いたら「使うな！」って返してきたんだよ？

法律的じゃなくて、あくまでもサンプル。
別にこれだけに２日も使うほど暇じゃないから・・・。
0047デフォルトの名無しさんNGNG
見た目のサンプル・・・市販アプリみれば判るだろ。
文書さんぷる・・・指摘したサイトの契約文書のつぼ

まったく41じゃないが、・・・だな。
0048デフォルトの名無しさんNGNG
サンプルソースって言われたらソースコードを連想するな
0049デフォルトの名無しさんNGNG
テキストスクロールして、F8を認識する画面にサンプルソースですか。ｗ
005017NGNG
なんか、荒れさせちゃいましたね、すいません。

同意確認画面って、よく使う画面だから、みんなが使う定番の
サンプルフォームがあるのかなっと、思ったので・・・。

フォームモジュールの追加ダイアログで「見出し画面」とかみたいな。

みなさん、それぞれのデザインで、作ってるみたいですね。
0051デフォルトの名無しさんNGNG
>>28
亀レスソマソ
ttp://msdn.microsoft.com/library/
から
Web Development
　Internet Explorer Development
　　Programming and Reusing the Browser
　　　WebBrowser Control
0052デフォルトの名無しさんNGNG
Win95、VB4.0 でAPIを使用して
ネットワーク関連の情報を取得しようとしているのですが、
バイト配列のポインタを取得することができずに頓挫しております。
VB6.0のVarPtrに該当するVB4.0の関数はありますでしょうか？
ご存知の方がいらっしゃったら教えていただけますでしょうか？
よろしくお願いします。
0053デフォルトの名無しさんNGNG
APIの定義の該当部分をAs Anyにして、
そこにByte型配列を渡してもダメ？

それでNGだったら、自作DLLでラップしたほうがすっきりしそう。
0054デフォルトの名無しさんNGNG
Stringから指定した正規表現に合致する文字列を取得できる便利なクラスかコントロールってどこかにありますかねぇ？
<B>世界情勢</B>から世界情勢を
<B>*</B>で検索して抜き取りたいなぁ・・。
0055デフォルトの名無しさんNGNG
>>54
VBScript.RegExpでいいんじゃない
0056デフォルトの名無しさんNGNG
>>55
レスありがとうございます。
VBS使えばよさそうなとこまで来てたんですが、Splitでやっていってもいいかななんてとこまで考えてましたが、
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/js56reconusesforregularexpressions.asp
http://www.geocities.co.jp/SilkRoad/4511/vb/replace.htm
教えていただいたおかげでいいページ見つけれました。ありがとうございました。
これさえあればproxomitoronのようなソフト作成もも視野に入れるぜ
0057デフォルトの名無しさんNGNG
Microsoft Windows Common Control 5.0 (SP2) のリストビューに
メッセージを送ってチェックボックスを付けるところまではできたのですが、
このリストビューにメッセージを送ってチェックボックスをチェックしたり
はずしたりする方法が分かりません。
おそらくLVM_SETITEMSTATEを送ればよいのだろうとというところまでは
分かったのですが、lParamに渡すLV_ITEM構造体のポインタを
どのように書いて渡せばよいのかが分かりません。
分かる方がおられましたらよろしくご教授お願い致します。
0058デフォルトの名無しさんNGNG
>>57
VarPtr(item)でいけるんじゃないかな。

それか、
Declare Function ListView_SetItemState Alias "SendMessageA" Lib "user32" _
(ByVal hWnd As Long, ByVal uMsg As Long, ByVal wParam As Long, _
ByRef lParam As LV_ITEM) As Long
のように第４引数をLV_ITEMへのポインタにするとか。
0059デフォルトの名無しさんNGNG
>58
VarPtrでできました！
すばやい回答どうもありがとうございました。
0060デフォルトの名無しさんNGNG
リストビューのスクロールバーを操作したいのですが、
メッセージか何かでできるのでしょうか。
0061デフォルトの名無しさんNGNG
>>60
listview.ListItems(key).EnsureVisible
これで、keyで指定したアイテムが表示される。
そのアイテムが見えない領域にあった場合は
見えるようにリストビューがスクロールする。
これを利用するのではだめ？

ちなみにメッセージだったら LVM_ENSUREVISIBLE。
0062デフォルトの名無しさんNGNG
つぎをVB6で記述するとどうなりますか?

プログラムスタート
E:\Forder1\memo.txt がもしあれば削除する。
E:\Forder1\udedamesi.exe を実行する。
30分経過したら、「時間切れ」と表示してE:\Forder1\udedamesi.exe を強制終了する
続いて、「ギブアップするなら10秒以内にGのキーを押せ」と表示する
10秒以内にGのキーが押されなかったらプログラムスタートに戻る
10秒以内にGのキーが押されたらプログラムを修了する。
プログラムエンド
0063デフォルトの名無しさんNGNG
>>62
その仕様通り作ると、悲惨な事になるな
0064デフォルトの名無しさんNGNG
え゛ー。こういうのはVBではできないんですかー
0065デフォルトの名無しさんNGNG
>>64
10秒ごとにudedamesi.exeが次々と起動する事になるぞ
0066デフォルトの名無しさんNGNG
こうでした。

プログラムスタート
E:\Forder1\memo.txt がもしあれば削除する。
E:\Forder1\udedamesi.exe を実行する。
30分経過したら、「時間切れ」と表示してE:\Forder1\udedamesi.exe を強制終了する
続いて、「ギブアップするなら10秒以内にGのキーを押せ」と表示する
10秒以内にGのキーが押されたらプログラムを修了する。
10秒以内にGのキーが押されなかったらプログラムスタートに戻る
プログラムエンド
0067デフォルトの名無しさんNGNG
>>66
10秒ごとにudedamesi.exeが次々と起動する事になるぞ
0068デフォルトの名無しさんNGNG
>>66
Do

If E:\Forder1\memo.txt がもしあれば Then
削除する。
End If

E:\Forder1\udedamesi.exe を実行する。

If 30分経過したら、 Then
「時間切れ」と表示して
E:\Forder1\udedamesi.exe を強制終了する
End If

If 10秒以内にGのキーが押されたら Then
プログラムを修了する。
Exit Do
End If

Loop
0069デフォルトの名無しさんNGNG
時間をカウントするとこがむずかしそう
0070デフォルトの名無しさんNGNG
あれば　削除する　強制終了する　　の命令語はありますか?

表示するは Print ですよね。
0071デフォルトの名無しさんNGNG
Printはどうかと思う
0072デフォルトの名無しさんNGNG
>>70
あれば：Dir
削除する：Kill
強制終了する：TerminateProcess (これだけは Windows API)
表示する：MsgBox

こんなとこかね。
0073デフォルトの名無しさんNGNG
ありがとうーっ
0074デフォルトの名無しさんNGNG
相手にもよるがTerminateProcessよりもPostThreadMessageでWM_QUITとか他の方法を考えた方がいいんじゃないか？
0075デフォルトの名無しさんNGNG
初心者の質問もここでよかですか？
Samurizeをいじるためだけに見ているので予備知識は
なにもありません。

Private Function TrimHTML(str)
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
pos_fin = InStr(pos_deb, str, ">")
part_d = Mid(str, 1, pos_deb - 1)
part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
str = part_d & part_f
pos_deb = InStr(1, str, "<")
Loop
TrimHTML = str
End Function

これはテキストデータからhtmlタグを消去するものらしいのですが、
htmlタグを実際の改行に置き換えるにはどうしたらよいのでしょうか。
元データはラジオ局の放送リストで、
「1.～～～<br>2.～～～<br>3.～～～<br>」を抜き出すまではできました。
0076デフォルトの名無しさんNGNG
>>75
str2 = Replace(str,"<br>",vbCrLf)

適当にやればこんなんかな。
007775NGNG
>>76
ありがとう、無事表示できました。
0078デフォルトの名無しさんNGNG
お恥ずかしい話ですが２つ質問させて下さい。

FormのTerminateｲﾍﾞﾝﾄを通過すれば、そのFormｵﾌﾞｼﾞｪｸﾄは確実に破棄されて
いる（メモリ上のどこにもいない）と断言できますでしょうか?

あと、コンテナ（Frameとか）に乗っかっているｵﾌﾞｼﾞｪｸﾄの一覧を取得する事は
可能でしょうか？(Forms.Controlsみないな） 逆なら TextBox.Container で取得
出来るんですが・・・

#Form上の全てのコントロールについて、コンテナが何かを調べると言う方法以外で
0079デフォルトの名無しさんNGNG
ﾃｽﾂ
0080デフォルトの名無しさんNGNG
>>78
Form上の全てのコントロールについて、コンテナが何かを調べると言う方法
でできる
0081デフォルトの名無しさんNGNG
>80
オマエ、ﾘｱﾙでも( 　ﾟ,_ゝﾟ)ﾊﾞｶｼﾞｬﾈｰﾉって言われてるでしょ？
0082デフォルトの名無しさんNGNG
>>81
その方法しか用意されてない、ってことを皮肉っぽく言ってるだけでしょ。

0083デフォルトの名無しさんNGNG
VBでリストビューに10万件くらいのアイテムを表示させようとすると
結構時間がかかるのですが、例えばリストビューのハンドルを
VCで作ったDLLに渡して描画させたら速くなったりするのでしょうか。
0084デフォルトの名無しさんNGNG
>>83
一度 Visible = False にしてアイテムを追加し、
終わったら Visible = True にすれば速い
0085デフォルトの名無しさんNGNG
>84
一応その方法でやってるんですが、テキストファイル（10フィールドくらいのCSVﾌｧｲﾙ）
から10万件読み込んでレポートスタイルで表示させるのに
1分くらいかかります。こんなもんなのでしょうか。
0086デフォルトの名無しさんNGNG
>>85
それは仕様を変更するべきかと。
ファイルの読み込みに時間かかってるんでしょ。
0087デフォルトの名無しさんNGNG
VBでﾌｧｲﾙのコピーってどうやればできますか？
0088デフォルトの名無しさんNGNG
>85
テキストファイルを変えられないならいっそ画面を
VCで作るとかは？ｗ
0089デフォルトの名無しさんNGNG
>86
そ、そうですね。とりあえず読み込みにかかっている時間と
表示にかかっている時間を切り分けてみます。
0090デフォルトの名無しさんNGNG
>87
ググれ

>89
リストビューに10万件表示するという仕様をどうにかするほうが先なような気が
0091デフォルトの名無しさんNGNG
>90
＞ググれ
え？まさか分からないんじゃ・・・
0092デフォルトの名無しさんNGNG
>>91
90じゃないが、ググればすぐ見つかることまでわかってると思う。
（ただ、今Googleおかしくなってねーか？俺だけ？）

っていうかヘルプで「ファイルをコピー」を検索すれば簡単に見つけられる。
0093デフォルトの名無しさんNGNG
ったく・・・ﾌｧｲﾙをｺﾋﾟｰって言ったらマジにそのままの
意味で受け取るんだもんなー。お前ら隠語とか使わねーの？
0094デフォルトの名無しさんNGNG
FileCopyでコピー先が読取専用だったときのエラーメッセージ
変じゃない？
0095デフォルトの名無しさんNGNG
ﾌｧｲﾙのｺﾋﾟｰは　>>4　を見れ
0096デフォルトの名無しさんNGNG
VBScriptもこのスレでＯＫですか？

RecordSetオブジェクトの要素数を知りたいのですがどうしたらいいですか？
コレクションのメソッド一覧みたいなのがあればわかるような。
具体的には、ＤＢにselectをかけて、ヒットしたレコード数を知りたいのです。

お知恵を拝借させてください。
お願いします。
0097デフォルトの名無しさんNGNG
プロパティリストは全て確認したの？
RecordCountとかRpwCountとかなかった？

ADOだかRDOだかDAOだか知らんが、使うときはきちんとヘルプ嫁。
DAOの場合はそれまでアクセスした件数だから、一端最後までカーソル移動しないと検索件数にならない。
その他の場合も注意書きあるかもしれんからね。
009896NGNG
IDE使わずにエディタで書いてるんで、その辺の情報をどこから探していいのかわからなくて…。
何を見たらわかりますか？
0099デフォルトの名無しさんNGNG
MSDNオンライン、>>1あたりに場所あるんじゃないの？
それにしても、何も調べる手立てを持たずに開発ですか
・・・オメデタイ人ですね。ある意味尊敬します。あ、いや、お気を悪くなさらないで下さいね。（右京さん風口調）
0100デフォルトの名無しさんNGNG
だってMSDNゴミなんだもん。
JavaのAPIリファレンスみたいに、ちゃんとまとまってる情報はないわけ？

調べろってばっかりいってないで、教えてやれよ。
漏れはわからんがなぁ（死
010196=98NGNG
解決しました。
ありがとうございました。
0102デフォルトの名無しさんNGNG
元質問者じゃなければ、そういうことで口だすんじゃねーよ。
MSDNより君がまずゴミだ。

それに97の回答で大体答えてる。
それでわからないんじゃしょうがない。
010320NGNG
２０です。何とか個々のキーに対しては
レジストリ操作が出来るようになったのですが
存在するユーザーを列挙し、その中のキーを触わるには
どのようにするといいのでしょう？データファイル等を読むようにして
ユーザーを定義ファイルにかき出さないと駄目でしょうか？
0104sageNGNG
すみませぬ。質問です。

Windows2000 Visual Basic6.0 なんですが、
インターネットトランスファーコントロール(Inet)を使って
"HTTP"接続によるファイルのアップロードをしたいのですが、
どなたかご存知でしょうか？

"FTP"接続ならググればすぐに見つかるのですが、"HTTP"接続
だと、いいソースが見つかりません。。。

"Inet"を使って、"HTTP"接続で"アップロード"が出来るのが
条件なんです。。。よろしくお願いします。。。

ちなみに今書いてるソースが、こんな感じです。。。

Private Sub Command1_Click()
　　Inet1.URL = "http://test.jp/test" 'これは任意のURLです。
　　Inet1.Protocol = icHTTP
　　Inet1.Execute , "PUT C:\test.html test.html" '任意のファイルです。
End Sub
0105104NGNG
あげちゃった
0106デフォルトの名無しさんNGNG
VBScriptで、C++でいうところのListとかVectorを使いたいのですが、コレクションがそれに当たります？
自分でコレクションを作るにはどうしたらいいですか？
0107デフォルトの名無しさんNGNG
VBSでは無理です。
BASICっていう時点で無理。
0108デフォルトの名無しさんNGNG
WinXP，Visual Basic 6.0 SP5 です。

コードエディタ上で，秀丸みたくカーソル位置に下線（秀丸の下線モード）って
できますか？自体に機能がなければ，アドインでもそれ以外でもＯＫです。

知っている人がいたら，教えて下さい。
0109初心者NGNG
すみませんお願いします。WinXP、VB6.0 です。WORD内の文字検索をするプログラムを作りうまく行ったのですが、
EXCEL内の文字検索をするプログラムに変更する際に詰まってしまって・・・。
.WholeStory
.MoveUp Unit:=xlLine, Count:=1
.Find.ClearFormatting
.Find.Text = Text1.Text
.Find.Forward = True
List1.Clear
この部分の変更のしかたが解りません＞＜
0110初心者NGNG
Private Sub Command1_Click()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Set xlBook = xlApp.Workbooks.Open("C:\Documents and Settings\tomohiro\デスクトップ\異常伝播シナリオ.xls")
Set xlSheet = xlApp.Worksheets
With xlSheet
.WholeStory
.MoveUp Unit:=xlLine, Count:=1
.Find.ClearFormatting
.Find.Text = Text1.Text
.Find.Forward = True
List1.Clear
Do
If .Find.Execute = False Then Exit Do
List1.AddItem .Range.Information(wdActiveEndAdjustedPageNumber) & "ページ "
' .Range.Information (wdEndOfRangeRowNumber) & "行目"
Loop
End With

xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

お願いします。
0111デフォルトの名無しさんNGNG
>>108
無理
0112デフォルトの名無しさんNGNG
>61
ご報告が遅くなりましたがLVM_ENSUREVISIBLEで
望み通りの動きを実装することができました。
どうもありがとうございました。
0113デフォルトの名無しさんNGNG
FileCopyのエラーをハンドリングするにはどうすればいいの？
0114デフォルトの名無しさんNGNG
>113
すいません。この質問は忘れてください。
0115デフォルトの名無しさんNGNG
あんた誰だ
0116デフォルトの名無しさんNGNG
バースト通信では無いな、近くにいるのか？
0117デフォルトの名無しさんNGNG
質問です。
Winsockでデータをやり取りする際に、
複数のデータをやり取りする時に、どうやって区別すればいいのでしょうか？
文字データと値のデータと分けたいのですが、
Senddataで送り、Getdataで送ると一緒になって区別できないんです・・・
0118デフォルトの名無しさんNGNG
>>117
socketプログラムの基礎を勉強して下さい
そしてプロトコルを自分で決めて下さい
0119デフォルトの名無しさんNGNG

VB 6.0 SP6.0
XP SP1

コマンドボタンクリック時に別プログラムを起動しようとしています
Shell関数で行うと思うのですが
そのプログラムのインストール先が特定できないためうまくいきません
ＥＸＥの名前だけを指定して起動できるようなことはできますでしょうか？

よろしくお願いします
0120デフォルトの名無しさんNGNG
>>117
-----
Const PACKET_HEADER_SYSTEM As String = "phSys"
Const PACKET_HEADER…
Const PACKET_FOOTER As String = "EOP"
-----
　'送信時
　wskTcp.SendData (PACKET_HEADER_SYSTEM & "/" & Message & "/" & PACKET_FOOTER & "/")
-----
　'受信時(簡易版)
　wskTcp.GetData strMes
　strMesSplit() = Split(strMes, "/")
　Select Case strMesSplit(0)
　　Case PACKET_HEADER_SYSTEM
　　　…
　　Case PACKET_HEADER…
　　　…
　End Select
-----
俺はこんな感じで組んでるけど…。

>>118
このやり方ってあまり良くないかね？
0121デフォルトの名無しさんNGNG
>>119
同じ名前のファイルが複数存在した時はどうなるんだと
0122デフォルトの名無しさんNGNG
>>119
パスが通ってれば、ＥＸＥ名だけでＯＫなはず。
そうじゃなければ、ＥＸＥ名がわかってるんだから、探して起動する以外にない。
0123デフォルトの名無しさんNGNG
format関数で質問があります。
かなり初歩的なことを知らないだけかもしれないのですが、
format("100P","00000")　⇒　"100P " となるのですが
format("10P","00000") ⇒　"00001" となってしまいます。
"10P"が返ってくると思っていたので？？？です。
なにか分かりましたら教えていただきたいと思います。よろしくお願いします。
0124デフォルトの名無しさんNGNG
>>120
Message に / が絶対に入らないという仕様なら。
0125デフォルトの名無しさんNGNG
>>123
Pを入れると、AM、PMのPと解釈される
１０Pだと夜の２２時
"00000"の部分を"hh:nn:ss"に変えると意味がわかるよ
0126デフォルトの名無しさんNGNG
>>119
レジストリ等にEXEのインストール先を記録するってのはどうよ？
あとは>>122みたいにパスを通すとか。
0127デフォルトの名無しさんNGNG
>>125
おーほんとだ
そんな変換し方があったんですね。
一般的には便利(普通)なんだろうけど、個人的には・・・
でもすっきりしました。ありがとうございました。
0128デフォルトの名無しさんNGNG
>>124
自分はヘッダとフッタの間の文字列をMessageとして認識して
/を補完するって言う仕様にしてあるので、
Messageに/が含まれても平気です。
0129デフォルトの名無しさんNGNG
WinXP SP1 VB6 SP6です。
A.exeでaボタン押されて、
すでに起動しているB.exeでA.exeのaが押されたよ～って知りたいんですが、
どうすればいいのでしょうか。
A.exeとB.exeは親子関係ではなくまったく別のプログラムです。
よろしくお願いいたします。
0130129NGNG
すいません。VB6はSP5ですorz
0131デフォルトの名無しさんNGNG
SendMessageとかである程度は可能かもしれないけど。

B.EXEは自作？全く別？
それによって対応が全然変わると思う。

全く別のアプリだとしたら、完全に安定して他アプリを制御するのは不可能。
0132129NGNG
>>131
AもBもVB6の自作です。
SendMessageちょっと調べてみます。
ありがとうございました。
0133デフォルトの名無しさんNGNG
>>132
両方とも自作であれば・・・。同期・非同期によって実現手段はいっぱいありますよ。

１．SendMessage
受け側にメッセージループを作らないとダメ。
過去スレでサブクラス化を調べる。

２．ソケットなりパイプなりアプリ間通信
同期・非同期どちらでも対応可能。
それぞれヘルプ見れば判る。

その他、共有メモリとかCOMを使った方法とかいっくらでもできますよ。
0134デフォルトの名無しさんNGNG
>>129

SendMessage は メッセージループ通さずに直接ｳｨﾝﾄﾞｳﾌﾟﾛｼｰｼﾞｬにﾒｯｾｰｼﾞ転送するんで
メッセージループは関係無いような．．．

1. Ｂ.exe の Form をｻﾌﾞｸﾗｽ化
2. A.exe のaボタンを押した時 WM_MYMSG(自分で適当に定義) を SendMessage で
B.exe の Form に送信
3. Ｂ.exe の Form のｳｨﾝﾄﾞｳﾌﾟﾛｼｰｼﾞｬで WM_MYMSG を受ける

でいいんでないの？(出来なかったらｺﾞﾒﾝ)
0135デフォルトの名無しさんNGNG
メッセージループ作る必要は無いけど、ウィンドプロシージャに直接メッセージ渡すわけでもないよ。
どこかの誰かさんが作ったループ通ってるし。
あと、自作のメッセージを定義する場合はWM_USER以上の番号を使うべし。
0136デフォルトの名無しさんNGNG
SetProp
GetProp
0137デフォルトの名無しさんNGNG
>>135
ごめん。WM_APPだった。
0138デフォルトの名無しさんNGNG
ドライブ制御関係なのですが、
現在自分のPCにはMOが接続してあります。
これをVB上でメディア排出は可能でしょうか？
DriveTypeでドライブの種類までは特定できるのですが
リムーバブルなメディア（FD除く）に対して
VB上でドライブの制御ができるか知りたいです。
ヒントだけでも結構ですのでよろしくお願い致します。
0139デフォルトの名無しさんNGNG
>>138
DeviceIoControl
0140デフォルトの名無しさんNGNG
mciSendString
0141デフォルトの名無しさんNGNG
以下のような処理を行いたいんですが、どうにもわかりません・・

１．変数aが100-200まで2刻みで変動する。
２．aの値の、ある範囲の時に変数b（1-50まで）が決定される。
というものです。
selectとforを組み合わせるのだと思いますが下記のような力技しか思いつきません・・
select case a
100 to 102
b=1
103 to 104
b=2
・
・
アドバイスお願いします。
0142デフォルトの名無しさんNGNG
>>141
b = ((a - 100) / 2) + 1
等の数式じゃないか？
0143141NGNG
それだとa=102のときにb=2になってしまいます。
またそこで何かしら条件つければいいのかもしれませんが・・

あとcase 100 to 102でした。すみません
0144デフォルトの名無しさんNGNG
しょってから例外なだけじゃん。
100だけ最初に特別に処理してしまって、それ以外は100引いて2で割った商じゃないの？

まず日本語の勉強からって奴じゃないか？
ある範囲とかって仕様書きが曖昧で、サンプルが仕様になってるなんて最悪。
0145デフォルトの名無しさんNGNG
VB6でCPU温度って測れますか？
0146デフォルトの名無しさんNGNG
>145
できる。
0147デフォルトの名無しさんNGNG
環境 VB6.0 SP5 ・ oracle使用
DBGRIDにSQLを渡して、Oracleのテーブルﾃﾞｰﾀーを表示させています。
ﾃﾞｰﾀーは問題なく表示されてるんですが、列の見出し？が何故かﾃﾞｰﾀーﾌｨｰﾙﾄﾞ名になってしまいます。
例えば、列の名称に「番号」とつけ、「SeqNo」というﾌｨｰﾙﾄﾞを連携させてるんですが、
ﾃﾞｰﾀーを表示させた瞬間に「番号」という見出しが「SeqNo」というものに変わります。
列の横幅とかもリセットされてしまっているようなんですが、これってどう設定すればいいのでしょう…。

0148デフォルトの名無しさんNGNG
スクロールバー両端と中央のボタンのサイズを変更することはできますか？
出来るようならご教授お願いします。
0149デフォルトの名無しさんNGNG
>>148
昔、サブクラス化して作ったことがある。ソースは出せん。
0150デフォルトの名無しさんNGNG
環境…VBE
Sheet1の１行目～５行目のセルをそのままSheet2に出力するコードを作ってみたのだけど、

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim k, t, As Integer
Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("Sheet2")

t = sh1.Range("A65536").End(xlToLeft).Column

For k = 1 To 5
sh2.Cells(k, t) = sh1.Cells(1, t)
t = t + 1
k = k + 1
Next k

でやってみたのだが、１行しか表示されない・・・
どっか間違っているんかな？
0151デフォルトの名無しさんNGNG
>>150
うん
0152デフォルトの名無しさんNGNG
>>151
どこを修正すればいいでしょうか？アドバイスお願いします
0153デフォルトの名無しさんNGNG
>>152
いやだ
0154デフォルトの名無しさんNGNG
>>150
そんな面倒くさい事しなくても

sh1.Rows("1:5").Copy Destination:=sh2.Range("A1")

という一文でコピーできるよ。
0155デフォルトの名無しさんNGNG
>>154
おおサンクスです。

>>153悔しい？ｗ
0156デフォルトの名無しさんNGNG
冬厨（←なぜか一発変換）の季節だな
0157デフォルトの名無しさんNGNG
VBで作成したActiveXについてです
クライアントにダウンロードさせたところ、PCの再起動がかかってしまいました
これを防止するようなはできないでしょうか？

環境は
VB 6.0 SP6
です
0158デフォルトの名無しさんNGNG
>>157
えすぱーじゃないんだから、それ聞いて何がわかるって思ってるんだ？
回答が欲しいならもう少し状況をきちんと説明しないとダメだろ。

まあ、とりあえず間違ってリセットボタン押したり、電源ボタン押したり、コンセント抜いてませんか？
0159デフォルトの名無しさんNGNG
すいません配列内でソート機能できないでしょうか？
たとえば構造体aをキーに指定とかcを指定にするといった具合です
typedef zzz
a as long
b as string
c as long
d as string
end type
Dim ppp(1000) as zzz
0160デフォルトの名無しさんNGNG
>>159
ない。
0161159NGNG
>160
もしかしたらと思ってお聞きしましたが無理ですね
レスありがとうございました
0162159NGNG
すいません、また教えてください
設定ファイルにtext.iniを使用していますがEXE自身に設定（記憶）させる
ことはできますでしょうか？
レジストリは使用したくないのですがこのようなことは可能でしょうか？
0163デフォルトの名無しさんNGNG
ほぼ不可能。
EXE自体を書き換えるのは、昔そういうソフトがあったけど・・・という程度。リスキーで高度です。
レジストリを汚したくない感覚、制約などは理解できるが、MSが推奨してるんだから従うのが吉。
そうじゃなければEXEと同一フォルダだけを汚すという制限で現状のINIで十分でしょ。
0164159NGNG
>163
＞現状のINIで十分でしょ。
了解です、レスありがとうございました。
0165デフォルトの名無しさんNGNG
そういや最近、自己書き換えなんて滅多に聞かなくなったなぁ…
0166OratorNGNG
マルチストリームファイルにすれば簡単かも。FileSystemObjectで普通に扱えますし。
http://www.microsoft.com/japan/msdn/library/ja/jpdnw2k/htm/ntfs2000.asp
サンプルとしては、こんな感じ。(要NTFS。FAT32では不可)
Private FSO As Object
Private Path As String
Private Sub Form_Load()
　　Set FSO = CreateObject("Scripting.FileSystemObject")
　　Path = FSO.BuildPath(App.Path, App.EXEName) & ":MyData" '自分自身のフルパス + ":" + 任意の名前
End Sub
Private Sub Form_Unload(Cancel As Integer)
　　Set FSO = Nothing
End Sub
Private Sub Command1_Click() '保存
　　Const ForWriting As Long = 2&
　　With FSO.OpenTextFile(Path, ForWriting, True)
　　　　.Write Text1.Text
　　　　.Close
　　End With
End Sub
Private Sub Command2_Click() '読込
　　Const ForReading As Long = 1&
　　With FSO.OpenTextFile(Path, ForReading, True)
　　　　If .AtEndOfStream Then
　　　　　　Text1.Text = ""
　　　　Else
　　　　　　Text1.Text = .ReadAll()
　　　　End If
　　　　.Close
　　End With
End Sub
0167デフォルトの名無しさんNGNG
しかしあえて自分自身に情報をRWする合理性ってなに？

偽装目的なら（偽装自体に合理性があるかどうかも興味があるが）
別に自分自身じゃなくてもダミーの.exeでもなんでも用意すりゃいいんだし
ユーザーの改変を避けたい（ただの意地悪じゃねえかこれ？）ってことなら
暗号化でもした方がよほど簡単かつ適切だと思うけど。

そこに山があるから、ってこと？
なら他にもっとチャレンジングかつ有意義な「山」がいくらでもあると思うが。
0168デフォルトの名無しさんNGNG
余計なファイル増やしたくないってことでしょ。
0169デフォルトの名無しさんNGNG
>>167
梅子に聞け。
0170デフォルトの名無しさんNGNG
正規表現の問題かも知れませんが、RegExpで
タグ内の文字列を取得するとき、改行が含まれていると、取得できません。

検索キー　<hoge>(.*)</hoge>

<hoge>ogeoge</hoge> の時は取得できる。

<hoge>oge
oge</hoge>　こういうときは駄目。

MultiLine　を Trueにしているのですが…判る人いますか。
VB6.0 SP5でVBscript5.5をつかってます。
0171デフォルトの名無しさんNGNG
>>170
MultiLineは全然関係ない。
たいていの場合、改行コードを全削除してから検索してると思う。
0172デフォルトの名無しさんNGNG
>171
平然とウソをつくなよ。「たいてい」の範囲を明確にしろ。
かなり狭いだろ。
0173デフォルトの名無しさんNGNG
>>172
ウソだという反証を示せばすむ話だ。
0174デフォルトの名無しさんNGNG
textboxなら改行コード削除とかされなかった記憶が
0175デフォルトの名無しさんNGNG
>>174
だから何？
0176デフォルトの名無しさんNGNG
>173
その前に君の示す証拠はどれ？
0177>>170NGNG
ありゃ、荒れちゃってすみません。

汎用性を持たせて作りたかったんだけど、良くわからなかったので、決め打ちで検索するようにしました。　
ありがとうございます。
0178デフォルトの名無しさんNGNG
ちょっと質問なのですが
　・VB6.0で、音声通話
を実現したいと思っています。
DirectPlayVoice等も選択肢にはあるのですが、出来れば、
　・既存ソフトをコマンドラインから制御
　・ActiveXコントロールを貼り付けるだけでOK
程度で実現できるフリーのものが良いのですが、そういったものはありますでしょうか？
　
0179デフォルトの名無しさんNGNG
メニューのイベントで質問があるのですが、
クリック以外のメッセージを拾うには
サブクラス化とかそういう手段しかないのでしょうか？
フォーカスを失った時にちょっとゴニョゴニョやりたいのですが。
0180デフォルトの名無しさんNGNG
すみません教えてください。
フォルダを開くダイアログを表示させたいです。
※『ファイルを開く』ではないです
VB５を使用しています。お願いいたします。
0181デフォルトの名無しさんNGNG
>180
SHBrowseForFolderでググればサンプルが山ほど見つかるよ。
0182デフォルトの名無しさんNGNG
181様
ありがとうございました。
0183デフォルトの名無しさんNGNG
いえいえ、私もここで教えてもらったことなんで。
0184デフォルトの名無しさんNGNG
使用OS WindowsXP
VBVer. VB6.30 SP6

始めまして、うまく作れない処理がありましてご質問に参りました。

現在ActiveXEXEと標準EXEの組み合わせでクライアント･サーバシステムを開発しております。
1つのActiveXEXEを常駐させ、他の標準EXEからそのクラスをインスタンスし使用する、と云うものなのですが、
実際に動かすと標準EXEでインスタンスする度にプロセス上に新しいActiveXEXEが立ち上がり、
ActiveXEXE内標準モジュールのグローバル変数見ようとすると、当然ながらそれぞれが全く同期が取れておりません。

"標準モジュール"･"共有"･"ActiveX"･"常駐"と云ったキーワードで検索してみたのですが、
解決法を見つける事は出来ませんでした。
どのようにすれば上記の不具合を解消出来ますでしょうか。
宜しくお願い致します。
0185デフォルトの名無しさんNGNG
それは不具合ではありません
0186デフォルトの名無しさんNGNG
>>185
すみません、書き方が悪かったです。
求める仕様を実現出来ていない、ですね。
0187デフォルトの名無しさんNGNG
Mutexとか色々でやったら？
0188デフォルトの名無しさんNGNG
>187
てっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっ
っっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっ
0189デフォルトの名無しさんNGNG
>187
きとうなアドバイスですなー
0190デフォルトの名無しさんNGNG
>185
どうして？
0191デフォルトの名無しさんNGNG
>189
どうして？
0192デフォルトの名無しさんNGNG
>191
質問者のレベルからして、「色々」をより具体的に書いて
あげないとダメそうだから。
0193デフォルトの名無しさんNGNG
>190
不具合だよな。
0194デフォルトの名無しさんNGNG
>185
不具合かどうかを判断するためには何か判断基準があるはず。
君の考えを聞かせてほしい。
0195デフォルトの名無しさんNGNG
>192
質問者のレベルを判断するたねには何か判断基準があるはず。
何故君はてきとうだと判断したのか聞かせてほしい。
0196デフォルトの名無しさんNGNG
VBの不具合ってわけじゃ無いだろ
0197デフォルトの名無しさんNGNG
>195
そうつっかかるなよ。マジで気に障っちゃったの？ごめんね。
0198デフォルトの名無しさんNGNG
>196
君は誰でどれに対してレスしてるの？
0199デフォルトの名無しさんNGNG
>198
お前は誰だよ
0200184NGNG
すみません、私の所為で荒れてしまって……
不具合と云う云い方は悪いです。
単純にそう作れない私が悪いだけです。
0201デフォルトの名無しさんNGNG
>200
全然悪くねーよ。君が作りたい仕様に対して正しくないのだから
立派な不具合だよ。もし不具合という言い方が悪いと本気で
思っているならそっちを改めるべきだ。
0202デフォルトの名無しさんNGNG
不具合と言っても色々ある。VBの不具合じゃなくても
ソフトウェアの不具合だろ。それも分からずに書いた
>185が基地外なだけ。
0203デフォルトの名無しさんNGNG
具合が悪くなったおじいちゃんを不具合と呼び捨てる。そんな人間に私はなりたい。
0204デフォルトの名無しさんNGNG
>>201
私の中で不具合ってWinとかVBに元からある問題みたいなイメージがあるのですよね。
何はともあれ了解しました。

それで、どなたかヘルプを……
0205デフォルトの名無しさんNGNG
>>204
Mutexじゃダメだったのか？
0206デフォルトの名無しさんNGNG
共有メモリというキーワードも無いとダメだろうな。
0207デフォルトの名無しさんNGNG
ちょっと質問です。
VB6.0で右クリックのメニューを表示する場合
　PopupMenu mnuFile
等すれば良いのは分かったのですが、この、mnuFileの部分は、
できれば、mnuFileの部分を動的に作成したいのですが
メニューエディタで作成しなければならないのでしょうか？
0208デフォルトの名無しさんNGNG
>>207
ttp://www1.harenet.ne.jp/cgi-bin/cgiwrap/unaap/lib/smp.cgi?c1=2&c2=2&function=CreatePopupMenu
のようなモノになるんじゃない？
俺は中身見てないけどな！！！
0209デフォルトの名無しさんNGNG
Mutexで検索して色色と調べてみたのですが、サンプルが見つからず困っています。
ヘルプにもありませんよね。
VB6でMutexって少ないんですか?
0210デフォルトの名無しさんNGNG
>>208
やっぱりサブクラス化しかないですか(´･ω･｀)ｶﾞﾝﾊﾞｯﾃﾐﾏﾂ

情報どもどもなのでした。
0211デフォルトの名無しさんNGNG
Mutexって難しいか？VBの呼び出し的には普通のAPI呼び出しレベルだと思うけど。
そもそものMutexに関してはSDKのヘルプ読んだ？
0212デフォルトの名無しさんNGNG
>>211
CreateMutexって云うAPIだったんですね。
頑張ってみます。
0213デフォルトの名無しさんNGNG
すみません、別途質問をさせて下さい。
予め実行しておいたActiveXEXEのクラスを使ってオブジェクトをインスタンスしたいのですが、
起動する標準EXEはそれを全く使用せずに別のActiveXEXEを開いていってしまいます。
プロパティを弄っているのですが、一向にうまくいきません。
こう云う場合、どのような箇所が何が問題なのでしょうか。
0214デフォルトの名無しさんNGNG
>>213
ActiveXEXEのレジストの問題じゃないのか？
インストールか手動かしらんが、その動作環境でEXEが参照してるActiveXEXEがそっちを向いてる。
0215超初心者NGNG
Integer型の変数にNUllを代入するにはどうすればいいのですか？
要は、途中でStringに変えたいんですがどうすれば？？
0216デフォルトの名無しさんNGNG
>>215
おぃ！こら！何がしたいんだ！こら！

まあ、APIにNULLを渡したいなら、数値０を渡す。
DBにNULL値突っ込みたいなら、SQL文でNULLを渡す。連結コントロールの場合は使わないから知らない。
0217超初心者NGNG
>>２１６
テキストボックスに年を入力させて
それをテキストファイルに書き出すんですが
空欄の場合ＮＵＬＬを書き出したいんです。
それで、年に数字以外の入力された場合エラーにするために
IsNumeric使うんで、Integerで宣言してるんです。
0218デフォルトの名無しさんNGNG
>>217
えーと、TextファイルにおけるEOFについて一般常識を勉強されたほうが・・・。
0219デフォルトの名無しさんNGNG
>215
Integer型は整数（-32,768～32,767）しか入らない。
なので必要時に、普通にString型の変数へ入れ替えればいいよ。

流れ的には↓

―――――――――――――――――――――――――――
　　もしInteger型変数の内容が1未満だったら、

　　　　　String型変数に、NULLを入れる
　　
　　それ以外なら

　　　　　String型変数に、Integer型変数の内容をそのまま入れる
―――――――――――――――――――――――――――

↑こんな感じ。
0220超初心者NGNG
みなさんありがとうでつ。
0221超初心者NGNG
もうひとつ質問です。
テキストボックスに、整数以外を入力
されないようにしたいのですがそうすれば？
0222デフォルトの名無しさんNGNG
おぃ！こら！そうすれば？ってなんだ？！こら！
吐いた日本語飲み込むなよこら！

で、KeyPressでやれば。

あと落ち着いて書け。それは初心者とか関係ない。
0223170NGNG
Mutexを駆使して色色やったら、実現出来ました。
荒れる原因を作ってしまってすみません&どうもありがとうございました。
0224デフォルトの名無しさんNGNG
KeyPressはダメだと何度(ry
0225デフォルトの名無しさんNGNG
>>224
質問スレなんだから、そう書くならリンク出すなり、簡単に書くなりしろよ。
0226デフォルトの名無しさんNGNG
フォームの起動位置について質問です
フォームプロパティのStartUpPositionをウィンドウズの規定値にすると
最小化の状態で起動することがありますが、これはどうしてですか？
すべてのプログラムがそうなるのではなく、
Shell関数から起動する
StartUpPositionを3にする
という条件でときどきおこります。
同じようなことがあった方がいましたらアドバイスお願いします
0227超初心者NGNG
スマソ、どうすれば？でした
0228２２６NGNG
ちなみにWindowStateの値は標準でした
個別でPGを起動すると画面のどこかに表示されます
ですがShell関数から起動するとある特定のPGだけ
最小化の状態で必ず出てきます　ただのバグでしょうか///////
0229デフォルトの名無しさんNGNG
はじめまして。VB初日目でつ。

質問なのですが、テキストボックスに表示された文字列の中から
指定した行数番目の文字列を表示させたいのですが、どなたか
ご存知でしたら教えてくださいませ。。。
0230デフォルトの名無しさんNGNG
>>229
Splitで一旦配列に読み込んで、
後はゴニョゴニョと。
0231デフォルトの名無しさんNGNG
Split
0232デフォルトの名無しさんNGNG
>>221
コピペまでブロックするとなると
Changeイベントで蹴飛ばすしかないな。
0233デフォルトの名無しさんNGNG
>>221
イベントで止めようとしても、キーの連打で上手い事通ったりするから注意だね。
業務でやった時はみんなKeyPressとかKeyDownとかKeyUpとかChangeとか組み合わせて絡み合わせてやってたよ。
0234デフォルトの名無しさんNGNG
>>221
自前でコードを書いてもいいんだけど、ActiveXコントロールを使ったほうが
楽だし完成度が高い。
業務ではInputManを使われることが多いと思うけど、個人で使うには高い。
VB6のﾌﾟﾛﾌｪｯｼｮﾅﾙやｴﾝﾀｰﾌﾟﾗｲｽﾞならマスクエディットコントロールが付いてるから
お試しあれ。
0235デフォルトの名無しさんNGNG
>234
解雇していい？
0236デフォルトの名無しさんNGNG
>>235
君に次にね。
0237デフォルトの名無しさんNGNG
>236
君に次にだって。
0238デフォルトの名無しさんNGNG
htmlファイルを別枠で表示させたいんですが
どのようにすればよいんでしょうか？
0239デフォルトの名無しさんNGNG
すみません、Part31と32の過去ログ持ってる方いらっしゃらないでしょうか・・・？
0240 ◆http/iAti. NGNG
>239
にくちゃんにあるよ。

Part31:
ttp://makimo.to/2ch/pc2_tech/1073/1073732636.html
Part32:
ttp://makimo.to/2ch/pc5_tech/1077/1077216109.html

# JavaScriptをONにして、表示されるまでマターリ待つべし。
0241デフォルトの名無しさんNGNG
>>240
まじありがとうございますっ！
目的のもの見つかりました（つд｀)
0242デフォルトの名無しさんNGNG
すみません質問です。

クリスタルレポートで帳票を出力したいのですが
制御はＶＢ側で行いたいのです。(クリスタルレポートは項目を配置するだけ)

クリレポの項目にデータをセットすることは
出来たのですが改ページのコマンドが分かりません。

どなたか分かる方いませんか？

0243困ったNGNG
どうしてもわからない事があります。賢い方教えてください。

ＶＢ６で、フォーム上のコントロールをドラッグして、位置を変えたいのです。

コントロールが１つのときは、ｘｘｘ.drag でうまくいくのですが、複数のとき

どうしてもうまくいきません。なにかいい案、願いします。
0244デフォルトの名無しさんNGNG
>>242
まず、製品版かVBオマケ版か書く。
で、改ページはグループ毎にとかの指定しか出来ないと思った。
なんで、隠しでもいいからグループ化して、そこに適当なデータをいれて制御。

>>243
掴んだら、対象コントロールと別に枠だけのPictureなんかで移動を表現。
マウス移動にあわせてその枠を移動して、離したら移動用枠を消して、掴まれたはずのコントロールをそこに出す。
つまり、各コントロール自体を移動するのではなく、それっぽくみせるだけ。
0245デフォルトの名無しさんNGNG
>>244
後半のアドバイスはちょっと意味不明。まあ質問者の質問の仕方も悪いが。

>>243のようなUIで問題になるのは、

(1)複数のコントロールの選択をどのような操作で実現するか　
(2)選択されているコントロールをどう表現するか

これだけのはず。
選択されているコントロールが規則正しく並んでいる保証はないから
「枠」というのは不適切だし、そもそもあえてコントロールそのものを移動しない
理由があるとは思えない。すくなくとも現在ではね。
0246デフォルトの名無しさんNGNG
質問です。VisualStudio6.0（Jet4.0）
（mdbは古いOffice（Office97）で作ったサンプルです。
そのサンプルではJet3.51でした。）
フォームにグリッドコントロール、データコントロール2個、テキストボックスがあります。
それぞれDataGrid1、Adodc1,Adodc2,Text1という名です。
Adodc2のプロパティにはConnectionStringとレコードソースが設定されています。
同じ内容をAdodc1にコードで設定します。
で、DataGrid1のデータソースをAdodc2にすると問題なく動きますが
Adodc1にするとデータが表示されず、グリッドの枠がデフォルトのまま
表示されるのみです。Refreshしてもうまくいきません。
レコードセットがちゃんと設定されてないのかと思ったのですが
Text1のデータソースをAdodc1にすると、ちゃんと取得していて
指定したデータフィールドを表示させることができます。
だからAdodc1のせいではないようです。

で、データコントロールを介せず、直接レコードセットをグリッドコントロールに
設定してもやはり同様に動きません。

何がいけないのでしょうか？
0247デフォルトの名無しさんNGNG
Excel Createrでエクセル・ブックを作製するようにしたのですが
その次にファイルをオープンする方法がわかりません。
Excel.Applicationは使いたくないのですが・・・。
よろしくお願いします。 m(_ _)m
0248デフォルトの名無しさんNGNG
>>どうもありがとう　
クリレポは製品版です。

普通には改ページは出来ないのですね

記述方法で試してみます。


0249248NGNG
>>244さんに対してです。
0250デフォルトの名無しさんNGNG
>>247
何のために開くの？
ユーザがExcelで編集するためなら
Shell関数か何かで開いてもいいんじゃない。
0251247NGNG
>>250
ありがとうございます。
ユーザーが作ったエクセル・ブックを確認するための機能です。
Shell関数ですね。
調べてきます。
0252何でも略しゃいいと思ってる奴を煮込む俺 ◆1xdL.Dyf.I NGNG
>>248
0253デフォルトの名無しさんNGNG
ちょっと質問です

例えば、あるプロジェクトに、clsTestというクラスがあったとき
このclsTestのソースコードの文字列をプログラム実行中に取得することは可能でしょうか？

実際にやりたいことは、プログラム実行中にclsTestの全ソースコードを取得して
ScriptControlへ、ソースコードを追加することなので、最悪
クラスのソースコードをテキストファイルに保存しておけばいいのですが
もうちょっとスマートなやり方がないかな、と思っています


0254デフォルトの名無しさんNGNG
>>253
来年はそんな馬鹿な質問しないようにな
0255デフォルトの名無しさんNGNG
分からないから質問したのに、馬鹿とか言われてしまいました(´･ω･｀) ﾎﾝﾄﾆ ｼﾘﾀｲﾖ

とりあえず精進してきます・・・
0256デフォルトの名無しさんNGNG
>>255
コンパイルしたら、ソースは関係ないだろ。
0257デフォルトの名無しさんNGNG
>>256
まぁた説得力のない・・・
0258デフォルトの名無しさんNGNG
>>256
ソース表示したいって言ってのに、回答が意味不明だな
ちなみに、俺はやり方しらんがなー
0259デフォルトの名無しさんNGNG
>258
じゃあ意味ないじゃん。
0260デフォルトの名無しさんNGNG
>>258
何しに出てきたんだ？
0261デフォルトの名無しさんNGNG
ソースコードがテキストなんだから、拡張子に気を付けてそのまま読めよ
0262デフォルトの名無しさんNGNG
>>261
拡張子の何を気をつけるんだ？
xlsを開くと勝手にセルの内容をチェックしてくれるのか？お前のVBは。
0263デフォルトの名無しさんNGNG
>262
チェックボックス１つチェックするだけでそうなるんだけどねぇ・・・
0264デフォルトの名無しさんNGNG
>>238
兎に角表示さえ出来ればいいってのであれば、ShellExecuteかなぁ？
0265246NGNG
>>246ですが、オイラのは壊れてんのかなぁ？＞＞VB
0266デフォルトの名無しさんNGNG
adodc1と2のプロパティ、どう違う。
0267デフォルトの名無しさんNGNG
>>252>>254はシネ
0268何でも略しゃいいと思ってる奴を煮込む俺 ◆1xdL.Dyf.I NGNG
>>267
殺さないでください・・・。怖い。
恐怖を感じたので警察行ってきます。
0269デフォルトの名無しさんNGNG
文字列配列の場合
Dim strarray() as String
strarray = SPilit("")
とやると初期化(UBoundが-1)で返るのですが、これをLongの配列や
構造体で実現する方法はありますか？
0270デフォルトの名無しさんNGNG
>269
「これ」が何を指しているのかよく分かりません。
SPilitなんて関数も知らないですし。
知りたいことは
・Longの配列の初期化
・構造体の初期化
の2点？
0271デフォルトの名無しさんNGNG
>270
そうです。
>・Longの配列の初期化
>・構造体の初期化
の方法が知りたいです。SPilitはSplitの間違いでした。すいません。
0272デフォルトの名無しさんNGNG
>271
どうやって初期化しようとしたらできなかったの？
0273デフォルトの名無しさんNGNG
説明が下手で申し訳ないんですが、

Dim strarray() as String
strarray = Split("")

For i = 0 to UBound(strarray)
//何かstrarrayに対する処理
Next i

とやるとFor文が一回も回らないで終了になります。
実際はForの前にIf等の条件で
Redim Preserved strarray(UBound(strarray) + 1)
で値をセットして、その場合のみFor内の処理を行いたいと。

If文に入らなかった場合にUBound(strarray)の部分でエラーとなるので
Long配列や構造体(ユーザ定義型)配列で
strarray = Split("")
と、やった場合のようにUBoundで-1が返るような配列初期化の方法がありますか？という質問です。

>どうやって初期化しようとしたらできなかったの？
lngarray = Split("")はコンパイルできないし、Array関数などをつかっても上手くいきませんでした。
Redim Preserved lngarray(0)
ではFor文に入ってしまうし。。。
0274デフォルトの名無しさんNGNG
>273
Preserved→Preserveの間違いです、こんなんだから駄目なんだなぁ。。。
0275デフォルトの名無しさんNGNG
>273
何も伝わってきません。一晩かけて文章を練り直してください。
特に なぜUBoundが-1を返すようにしたいのか、そこに至った
必然性を示すとよいと思います。
今のままではなぜそういうことをしたいのかが全く不明なので、
誰も回答意欲が湧かないでしょう。
0276デフォルトの名無しさんNGNG
＞275
＞特に なぜUBoundが-1を返すようにしたいのか
For文が一回も回らず、かつエラーとならないためです。（書いてますが）
0277デフォルトの名無しさんNGNG
ちょっと質問です

1.ユーザーコントロールの上にLabelを乗せる
2.LabelのCaptionを"あいう"等適当な文字に設定する
3.ユーザーコントロールとラベルのBackStyleを透明(0)に設定する

として、適当なフォームに、このユーザーコントロールを貼り付けると
Labelの文字列"あいう"の一部が欠けて表示されるのですが
これはVB6.0 SP5のバグなのでしょうか？
0278デフォルトの名無しさんNGNG
>276
＞（書いてますが）
では誰も回答してくれないのはなぜでしょう。
伝わってないからです。
0279デフォルトの名無しさんNGNG
＞For文が一回も回らず、かつエラーとならないためです。
なぜUBoundが-1を返すようにしたいのかの説明にはなっていません。
あなたのコードではたまたまそうだというだけです。
0280デフォルトの名無しさんNGNG
>278-279
相手にするな。
0281デフォルトの名無しさんNGNG
>276
かなり初心者のようなのでどこまでレベルを落とせばよいか分かりませんが・・・
>275さんが「必然性」という言葉を使っていますが、この意味は理解
できてますか？設計レビューやソースレビューで普通に使われると
思いますが。もしかしたらそういった経験がない方でしょうか。
UBoundが-1を返すようにしたいようですが、本当にそれしか方法がないの？
といった意味です。あなたがこれまでに考えた方法はこれとこれとこれで、
それぞれこういう理由でダメだった。最終的にUBoundが-1を返すように
しなくてはならないんだ、と考え至るまでの経緯を問われているわけです。
したがって、

>For文が一回も回らず、かつエラーとならないためです。（書いてますが）

書いてありませんよ。
0282デフォルトの名無しさんNGNG
＞281
あのですね、他の方法（エラー処理で弾く・別にカウンタを持つ等）で回避することは可能だと思うのですよ。
ではなくてUBoundの値が-1で返ることでその処理は一番かどうかはわかりませんがシンプルに書けるじゃないですか。
273で
＞UBoundで-1が返るような配列初期化の方法がありますか？
と聞いているのに
「なぜ-1が返したいの？」とか「その方法しかないの？」とか言われても。
やりかたがないなら「ない」というのが回答でOKです。
前述したように文字列配列では-1を返すことができます。それと同じことは他の配列ではできない。
それで良いと思いますよ。
0283デフォルトの名無しさんNGNG
>>281
必然性など状況で変わる。

VB専ごときが調子に乗るな。
0284277NGNG
(´･ω･｀) ﾍﾝﾅﾉﾆ ﾏｷｺﾏﾚﾀ ...
0285デフォルトの名無しさんNGNG
>282
＞回避することは可能だと思うのですよ。
じゃあ解決だな。

＞シンプルに書けるじゃないですか。
知りません。

＞やりかたがないなら「ない」というのが回答でOKです。
なぜ～ときかれている時点で「ない」ことは察してくれ。
いまだに気付いてないとは知らなかった。

＞それで良いと思いますよ。
お前はそんなことを言える立場じゃないな。
0286デフォルトの名無しさんNGNG
>283
>必然性など状況で変わる。

いいねー、分かったようなこと書いてるけど何の情報も
含まないこの書き込み。かっこいいねー。
うちのプロジェクトでは不要な人間。
0287デフォルトの名無しさんNGNG
>>285
お前がそんなこと言える立場とも思わない。
こんなことで自分の優越感をアピールしても仕方がないでしょう。

もっとレベルを上げて余所でも優越感を感じられる人間になりましょう。
努力をしないと何も始まりませんよ。
0288デフォルトの名無しさんNGNG
>282
＞やりかたがないなら「ない」というのが回答でOKです。

すげーな、お前。ここで「ない」って言われたら納得するのか？
上司への調査報告で「２ちゃんでないと言われました」ってか？
0289デフォルトの名無しさんNGNG
>>286みたいなPLがいるプロジェクト以上のプロジェクトに必要とされているので問題ないですよ。

0290デフォルトの名無しさんNGNG
>287
＞こんなことで自分の優越感をアピールしても仕方がないでしょう。
してませんが。

＞もっとレベルを上げて余所でも優越感を感じられる人間になりましょう。
はい。

＞努力をしないと何も始まりませんよ。
はい。

終わり。
0291デフォルトの名無しさんNGNG
>277
AutoSizeじゃないんだろ？サイズや位置変えてご覧。
0292デフォルトの名無しさんNGNG
>>288
罵倒とかやめて建設的な話をしませんか？
すべてにおいて効率が悪いです。
0293デフォルトの名無しさんNGNG
>289
>>286みたいなPLがいるプロジェクト以上のプロジェクトに必要とされているので問題ないですよ。

俺のプロジェクトに関わらないならそれでいい。

終わり。
0294デフォルトの名無しさんNGNG
>292

は？２ちゃんで？何夢見てんの、お前。
0295デフォルトの名無しさんNGNG
>292
すべてって何？
0296デフォルトの名無しさんNGNG
>>293
で、儲け出てんの？お前のプロジェクトやら。ちゃんとメンバー休ませてる？
0297デフォルトの名無しさんNGNG
>289
それは気のせいだろ。
２ちゃんで質問するレベルの奴だしなー
0298デフォルトの名無しさんNGNG
>>294
いいねー、分かったようなこと書いてるけど何の情報も
含まないこの書き込み。かっこいいねー。
うちのプロジェクトでは不要な人間。
0299デフォルトの名無しさんNGNG
>296
まあお前にもこのスレにも関係ないけど、儲けは普通。休みは普通。
別段誉められたプロジェクトではない。
0300298NGNG
>298
たしかに。
0301デフォルトの名無しさんNGNG
>>297
嫌なことあるなら相談乗るよ？
儲けも出ずに下からは侮蔑され上司からは期待されず客からは失笑を買ってるとかそんなとこだろうけど。
0302デフォルトの名無しさんNGNG
どうでもいいけど>273は解決したの？
回答が得られたなら得られたで、クローズしてくれ。
0303デフォルトの名無しさんNGNG
>301
まじ？ピンサロで一度もイッタことないんだけどどうすればいい？
0304デフォルトの名無しさんNGNG
>>301
うるさい
0305デフォルトの名無しさんNGNG
＞なぜ～ときかれている時点で「ない」ことは察してくれ。
「なぜ」と聞いてません。聞いているのは回答者です。
さっきも書きましたが他の方法(UBoundをｰ1で返す以外)での回避方法は質問してません。
それに対しての解決でなくて、
「文字列配列以外の配列でUBoundを-1で返すような配列初期化方法はない」
で解決？(回答として)です。
ありがとうございました。
0306デフォルトの名無しさんNGNG



















0307デフォルトの名無しさんNGNG
つうかさ、正月休みぐらいまったりしろ。
0308デフォルトの名無しさんNGNG
>305
分かりにくくてすまん。
「回答者が」なぜ～と聞いている時点で って言いたかった。
0309デフォルトの名無しさんNGNG
>308
いや、待てよ。
「あなたが」なぜ～と聞かれている時点で だから合ってんじゃん。
0310デフォルトの名無しさんNGNG
プロジェクトリーダーに大抜擢されて弔詞載ってるなんか訳分からん奴に言ってくれ。
PG以上の仕事は無理だとは思ったが見切り発車と言うことは伏せておいてやろう。
0311デフォルトの名無しさんNGNG
＞＞なぜ～ときかれている時点で「ない」ことは察してくれ。
＞「なぜ」と聞いてません。聞いているのは回答者です。
0312311NGNG
それはお前変じゃん。元書き込みと君のレスが食い違ってるよ。
0313デフォルトの名無しさんNGNG
いやみったらしく回りくどいこと言わんとさくっと回答してあげた方がよかったね。
0314デフォルトの名無しさんNGNG
>>312
根本的にお前の頭が変だから大丈夫だ。
0315デフォルトの名無しさんNGNG
>310
プロジェクトリーダーに大抜擢なんて言うか？
プロジェクトリーダーなんてフロアにたくさんいるだろ。
プロジェクトマネージャーに大抜擢くらいならわからんでもないが。
0316デフォルトの名無しさんNGNG
>313
言えてる。それは俺も悪かったよ。
「ない」の2文字で満足してくれたんだもんな。
0317デフォルトの名無しさんNGNG
一生PGの奴にとってはプロジェクトリーダくらいでも
夢の肩書きなんだろうな。
0318デフォルトの名無しさんNGNG
>>315
それで調子に乗ってるから始末に悪いんでしょう。
0319デフォルトの名無しさんNGNG
>305
おめでとう。祝賀会どこでやる？
0320デフォルトの名無しさんNGNG
ところで>309についてはどう？
0321デフォルトの名無しさんNGNG
>>320
いい加減うざい。
0322デフォルトの名無しさんNGNG
>321
いやー、さりげなくスルーしてっけど実際どうなのかなーと
思ってさー
0323デフォルトの名無しさんNGNG
>321
その書き込み見た感じ、まあその通りでしたってとこだろうな。
0324デフォルトの名無しさんNGNG
＞なぜ～ときかれている時点で「ない」ことは察してくれ。
「なぜ」と聞いてません。聞いているのは回答者です。

うんうん、本人わかってるね。
0325デフォルトの名無しさんNGNG
>305
しかしこのレベルの質問が出るあたり、さすが２ちゃんって
感じだね。こんな質問他じゃ絶対開いてしてもらえないよ。
0326デフォルトの名無しさんNGNG
>325
うぉ、「開いて」→「相手」
0327デフォルトの名無しさんNGNG
>305の実家
0328デフォルトの名無しさんNGNG
>303は？マジなやんでるんだけど。
0329269NGNG
なんだか荒れさせてしまってすいません。
313さんのおっしゃる通り「ない」ならそれで満足だったんですよね。
自分なりに調べて最後にここで「ない」って言われれば他の方法で進める予定でした。
その他の方法まで考えてくれようとしていたなんて。
親切な方が多くて恐縮です。でわ。
0330デフォルトの名無しさんNGNG
>269-328は私の自演です。
新春一発目のネタでした。
こんな感じで今年もネタ投下していいですか？
0331デフォルトの名無しさんNGNG
>329
>309は？別に君が間違ってと責めたいわけじゃないんだけど、
このままじゃ俺が間違ってるみたいじゃん。
0332横槍NGNG
>331


ああああああーあああーあ、うぜーな。
お前の方が合ってるよ、みりゃ誰でもわかんだろうが。
お前こそ察してやれ。
0333デフォルトの名無しさんNGNG
AAのノバうさチャンちょうだい
0334デフォルトの名無しさんNGNG
>333
いくら？
0335デフォルトの名無しさんNGNG
>334
数の子。
0336269NGNG
＞331
自分がアフォですいません。
＞なぜ～ときかれている時点で「(その方法は)ない」ことは察してくれ。
察しなければいけませんでした。。。
0337デフォルトの名無しさんNGNG
>335
ほとけのざ
0338デフォルトの名無しさんNGNG
>336
うむ。
0339デフォルトの名無しさんNGNG
しかし察しろってのも乱暴な回答だな。
0340デフォルトの名無しさんNGNG
>336
それはともかくさ、>282>287>289>296>301あたりって
お前？そうでないことを祈るね。
せっかく回答したのにこんな反応されたとあっちゃー
かなりショックだからな。他の奴の煽りであることを
祈るよ。
0341デフォルトの名無しさんNGNG
ノバうさ欲しいーー欲しいーーーー
0342269NGNG
＞269
＞271
＞273
＞274
＞282
＞305
＞329
＞336
が自分のレスです。
0343デフォルトの名無しさんNGNG
早くくれないと変なことしちゃうぞー
0344デフォルトの名無しさんNGNG
>342
0345デフォルトの名無しさんNGNG
>342
>282はヒットか。ややダメージありだな。まあいいけど。
0346デフォルトの名無しさんNGNG
>340
たいした回答じゃねーじゃん。「ない」って言うだけなのに嫌みったらしく初心者だとかレビュー経験がないとか。
煽ってんのはお前だろ。
0347デフォルトの名無しさんNGNG
>>325
しかしこのレベルの質問で煽りが出るあたり、さすが２ちゃんって
感じだね。こんな質問他じゃ絶対煽ってもらえないよ。
0348デフォルトの名無しさんNGNG
いっぱい聞けて～♪
いっぱいしゃべれる～♪
0349デフォルトの名無しさんNGNG
>>346
激しく同意。

て言うかやな環境で働いてますね。って感じ。
こんな人間がまかり通ってるんだろ？そのうち人死ぬよ。
0350デフォルトの名無しさんNGNG
ＡＡのノバうさ絶対欲しーい。
0351デフォルトの名無しさんNGNG
てかSplit("")で-1になるのはｼﾗﾝｶｯﾀ
このレベルとか言うけど、ホントにみんな知ってたんかね？
0352デフォルトの名無しさんNGNG
>346-350は269
0353デフォルトの名無しさんNGNG
>>351
あまり興味がないというのが本音。
知識と技術と仕事って正比例しないというのが本音。
0354デフォルトの名無しさんNGNG
NOBAウサチャン、僕も欲しいよー。
0355デフォルトの名無しさんNGNG
>351
ヘルプに書いてありますけど。
0356デフォルトの名無しさんNGNG
>351
269はしつこいなー。
Split("")で-1になるのは偶然なんじゃないの？
MSDNにはSplit("")で空の配列が返るとは書いてあるけど、
UBoundで-1とは書いてない。
0357デフォルトの名無しさんNGNG
偶然てw
0358デフォルトの名無しさんNGNG
どうでもいいけどVBの配列のインデックスは0から
始まると決まっているわけじゃないのにUBoundだけ
使うのは好かんな。LBoundとUBoundのセットで
使ったほうがいいんじゃないの？
0359デフォルトの名無しさんNGNG
ね、そこのおにーちゃん、ねー、可愛いノバうさをね、もらって来てくれない？
0360デフォルトの名無しさんNGNG
>357
偶然っつーか、なんつーか、-1が返ってくることは
MSDNでは保証されていない、みたいな意味で。
0361デフォルトの名無しさんNGNG
>>358
お前のプロジェクトにはそんなことする変人がおるのか？
0362デフォルトの名無しさんNGNG
>361
しらねー。VB使ったことねーし。
0363デフォルトの名無しさんNGNG
>361
やっちゃだめなの？
0364デフォルトの名無しさんNGNG
>>362
とりあえず消えろ。面倒くさいから。
0365デフォルトの名無しさんNGNG
>363
犯っちゃダメだよ。
0366デフォルトの名無しさんNGNG
>>363
可読性が落ちるから統一するのがベター。
0367デフォルトの名無しさんNGNG
みんな意地悪する～。いいもん、自分で作るもん。い～だ。
0368デフォルトの名無しさんNGNG
>366
0369デフォルトの名無しさんNGNG
>>368
0370デフォルトの名無しさんNGNG
>367
とりあえずスレ関係ないの続けてるから通報しといた。
調査されるよ。
0371デフォルトの名無しさんNGNG
>>370
いいねー、分かったようなこと書いてるけど何の情報も
含まないこの書き込み。かっこいいねー。
うちのプロジェクトでは不要な人間。
0372デフォルトの名無しさんNGNG
>371
不安なんだな。
0373デフォルトの名無しさんNGNG
　　　　　ｌ⌒ｌ　　　　　ｌ⌒ｌ
　　　　　ｌ　 ｌ　　　　　ｌ　 l
　　　　　ｌ　 ｌ　　　　　ｌ　 l
　　　　　ｌ∩ｌ　　　　　ｌ∩l
　　　　　ｌｌ ll＿＿＿_.ｌｌ lｌ
　　　　／　　　　　　　　　＼
　　　/　　⌒　　　　⌒　　　＼
　　　ｌ　　 Ｕ　　　　 Ｕ　　　　ｌ
　　　ｌ　　　　　ω　　　　　　 .ｌ
　　　ｌ　　　　　　　　　　　　　.ｌ
　　　＼　　　∈　　　　　　 ／　いっぱい聞けて♪いっぱい話せる
　　　　 ＼　　　　　　　　／
　　　　　／　　　　　　　＼
　　　 ／　　　　　　　　　　＼
　　／　／ｌ　　　　　　　ｌ＼　 ＼
／　／　 ｌ　　　　　　　ｌ　 ＼　＼
＼　 ＼　 ｌ　　　　　　　ｌ　 ／　／
　 ＼　 ＼ｌ　　　　　　　ｌ／　／
　　　＼　 ⊃　　　　　⊂　／
　　　　 ＼⊃　　　　　⊂／
　　　　　／　　／　　／
　　　 ／　　／　　／
　　／　　／　　／
　　＼　　＼　　＼
　　　 ＼　　＼　　＼
　　　（￣￣￣（￣￣￣）
　　　　￣￣￣￣￣￣
0374デフォルトの名無しさんNGNG
>>291
AutoSizeではないです。
サイズや位置を変えても直りません。

で、気が付いたこと
　ユーザーコントロールのBackColorを白にして、BackStyleを不透明にする
　LabelのBackStyleを透明にする
とすると、文字の一部のドットが白くなります
ので、よくは分かりませんが、文字の一部の色が、ユーザーコントロールの方の色で書かれているみたいです

なんでだろう(´･ω･｀)ﾜｶﾗﾝ
0375デフォルトの名無しさんNGNG
>374
メモリと処理効率のためにCS_OWNERDC使ってるんだょ。その辺りでバg、じゃなくて変わった仕様で動いてるんだろぅ。あまりきにすな
0376デフォルトの名無しさんNGNG
バg
0377デフォルトの名無しさんNGNG
プロキシ以外の方法で、Ｗｅｂから自分の身元（ＩＰ）を隠す方法教えて。
0378デフォルトの名無しさんNGNG
anonymizer
0379デフォルトの名無しさんNGNG
>>377
総合評価：アホか。
0380デフォルトの名無しさんNGNG
>>378
HTTPヘッダの偽装しかできないので無駄です。
0381デフォルトの名無しさんNGNG
VBのサブフォームで以下のようなことを実現したいのですが、
どのようにすればよろしいのでしょうか。

あるテキストが書いてある欄をクリックすると、その右側に▼が
表示され、そこをクリックすると、入力したいテキストの一覧が
表示される。

Accessのサブフォームでは、サブフォームの表示形式を
データシートにし、テキストボックスを削除して、
変わりにコンボボックスを配置することで実現できるのですが、
VBでの実現のしかたがわかりません。
どうぞよろしくおねがいいたします。
0382デフォルトの名無しさんNGNG
>>381
ただのコンボボックスでいいと思われます。
0383デフォルトの名無しさんNGNG
>>375
イロイロぐぐってみて、なんとなく分かったような分からないような・・・
とりあえず回避策でなんとかする方向で対応しまつ

どもどもでした
0384381NGNG
>>382
データグリッドのようなところで実現したいのです。

表示するデータ数を特定する場合は、コンボボックスを
その数だけ配置すればいいけど、データ数が特定されない場合は
データグリッドを使う必要がある。
しかし、データグリッドの中には、コンボボックスが配置できない。
（これがAccessならできる。）
だからどうしたらよいんだろうって。。。
0385デフォルトの名無しさんNGNG
コンボのparentをセットし、key入力時にコンボにfocus移動、位置移動し、コンボにkeyイベントを送る…
0386デフォルトの名無しさんNGNG
普段コンボを使ってない時はvisibleで隠す
0387デフォルトの名無しさんNGNG
う～、マンボ！
0388デフォルトの名無しさんNGNG
誰か雇ってくれないかな
0389デフォルトの名無しさんNGNG
>>388
リーダがDQNでよければ上でメンバー募集してたぞ。
0390デフォルトの名無しさんNGNG
この店にはいいノバうさがないな。
0391デフォルトの名無しさんNGNG
>384
データグリッドにコンボは配置できますが。
0392デフォルトの名無しさんNGNG
正月から余裕のない奴ばっかだな。
酒でも飲んで休め、な。（俺は酒のめねーんだけどなｗ）

根本的に関数の返す値をそのままForループの終了値にするのっておいらは嫌だな。
その関数がエラーになる可能性あるわけじゃん？
（今回のUBoundは配列の「要素の最大値を返す」を返す関数だからね。）
そのエラー処理を考えたらとてもシンプルにはならんだろ。

だからUBoundで-1が返るなんて仕様はそのまま使わないで
ループの前にループの終了値を決める処理をちゃんと儲けて
別変数に終了値をセットする処理でチェックを行うべきだと思うんだよね。

まぁ、こういうのはプログラミングの「宗教」みたいなもんだから
どんな時も絶対正しいものなんてないで
それくらいの考えで他人の意見を聞いた方がいいよ。
0393デフォルトの名無しさんNGNG
>>392
お前は余裕とりすぎて終わってる話題になんかマジレスしてるぞ。
0394株板から来ましたNGNG
RSSでエクセルに落とした株価が一定の条件に達したら
音を鳴らすためにはどのようにすれば良いでしょうか

今はそれが出来ないので、
書式→条件式書式でセルの値が次の値以上になったときに
セルの色を変更するというやり方で表示させています

スレ違いかどうかも解らない素人ですが
よろしくお願いします

0395デフォルトの名無しさんNGNG
>>394
Beep()
0396株板から来ましたNGNG
>>395
VBAでBEEPというプログラムを組めばよいのは
なんとなく解りました

BEEP・・・・・
IF文　条件式（例セルA１＞２５０円）
今わかっているのはこれらを使えばいいのかな
ぐらいです

ググッて色々調べていますがどうも出来そうにありません
0397デフォルトの名無しさんNGNG
396
タイマー
0398デフォルトの名無しさんNGNG
>>397
ポーリングより割り込み反銅鑼の方がいいよ。
0399デフォルトの名無しさんNGNG
kabuト"ットコム証券
0400株板から来ましたNGNG
>>397
レスありがとうございます
タイマーとは具体的にどういうことでしょうか

自分がやろうとしていることは
ブレイクアウト手法という取引方法です
例えば株価が過去４０日間の高値を更新すると
買い圧力が弱まるまで一方向に動き易いという傾向があります
http://quote.yahoo.co.jp/q?s=1863.t&d=c&k=c4&z=m&t=1d
具体例　㈱テトラ　12/30の動き（1/4には更新されて別なチャートになります）

過去４０日間の高値は379円です
寄り付きで（一番最初の取引値）で高値を更新したあとは
ほぼ一方向に買われていることが解ります
1000株（38万円分）買えば、その２０分後には４４万円になっています
実際にはもっと早く売ってしまいますが・・・


0401デフォルトの名無しさんNGNG
кａｂｕ，ｃｏｍ証券
0402デフォルトの名無しさんNGNG
>>400
あがったと思って買うバカが増える。と言う認識でしょうか。

更新と書くと理由無くPVが増えるみたいなもんですかね。
0403デフォルトの名無しさんNGNG
ガブどっとこむ商権
0404246NGNG
>>246です。
SP6もあてましたが状況変わらず。こんな基本的なことができないとは
先が思いやられます。

DataGrid1のプロパティはデフォルトです。
Adodc1のプロパティもデフォルトです。（ソースで設定します。）
Adodc2はConnectionStringがFILE NAME=C:\VB\練習\Book.UDLでRecordSourceが本です。
CommandTypeは２番のテーブルです。他はデフォルトです。
Text1のプロパティはデフォルトです。

Book.UDLの中身
[oledb]
; Everything after this line is an OLE DB initstring
Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\VB\練習\Book.mdb
0405246NGNG
イカソース
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\VB\練習\Book.mdb;" _
& "Persist Security Info=False"
cn.Open

Set rs = New ADODB.Recordset
rs.Open "本", cn, adOpenStatic
Set Adodc1.Recordset = rs

'これでText1にはちゃんとデータが入ります。
　　'DataGrid1はAdodc2と変えればデータがちゃんと表示されます。
　　'しかし先々ソースで表示させるようにできないと行き詰るのが目に見えてます。
Set Me.DataGrid1.DataSource = Adodc1
Set Me.Text1.DataSource = Adodc1
Me.Text1.DataField = "題名"
End Sub

Private Sub Form_Unload(Cancel As Integer)
rs.Close
cn.Close
End Sub
0406デフォルトの名無しさんNGNG
>>404
＞先が思いやられます。

お前のな。早く迂回方法考えた方がいいと思うぞ。
0407株板から来ましたNGNG
>>484
VBA、BEEPで検索かけてますがよいのが見つかりません

>>485
色を表示させるやりかただと見落としが多くなります

http://pc5.2ch.net/test/read.cgi/pcqa/1101566814/
★Word/Excel (MS-OFFICE) 初心者スレッド Part19★
↑のスレッドで
同じ質問している人がいました
645

その時の回答648
VBAマクロで、 Worksheet の Change イベントにコードを書く。
MsgBox でメッセージボックスを表示すれば、関連付けられた音も出る。

初心者には解りづらいです
0408株板から来ましたNGNG
誤爆失礼
0409デフォルトの名無しさんNGNG
>>407
http://www.atmarkit.co.jp/fdotnet/dotnettips/024w32api/w32api.html
0410デフォルトの名無しさんNGNG
つうかさ、正月休みなのに質問とか馬鹿回答とかうざい。
わからないことなんて、休みの間に小人さんが解決してくれるのに。
0411デフォルトの名無しさんNGNG
>>410
病院行きなさい。
0412デフォルトの名無しさんNGNG
>392
死ねば？
0413381NGNG
>>391
どうやればいいの？
グリッドはテキスト型と、bool型以外に配置できるの？
0414デフォルトの名無しさんNGNG
>413
そんな聞き方じゃ教えたくありませんね。
0415デフォルトの名無しさんNGNG
>>414
何も知らないお前には期待していないので大丈夫です。
0416デフォルトの名無しさんNGNG
>413
セルをダブルクリックしたら別のフォームが出るようにして
そっちでコンボ使ったら？
0417デフォルトの名無しさんNGNG
>415
あらら。君が>413本人だったらアホだねー。
次くらいで教えてあげようと思ってたのに。
0418デフォルトの名無しさんNGNG
>413
ヒントだけど、DBComboを上手く使うのよん。
0419デフォルトの名無しさんNGNG
>>413
DBコンボボックス使えば？
0420デフォルトの名無しさんNGNG
拡張子がMD5のファイルってどう使えばいいの？
0421デフォルトの名無しさんNGNG
>>420
そんな聞き方じゃ教えたくありませんね。
0422デフォルトの名無しさんNGNG
>421
あ、悪い。もう解決したからいいよ。
0423デフォルトの名無しさんNGNG
このスレ、糞スレ大賞にエントリーする？
0424デフォルトの名無しさんNGNG
>>420
対象となるファイルのMD5を取って比較します。
同一になるなら改ざんされていない可能性大と言うことです。
0425デフォルトの名無しさんNGNG
>424
おいおい、聞いたの俺だけどマジレスしてんなよ。
お前らが釣りに乗らないかどうかのテストだったんだからさー。
0426デフォルトの名無しさんNGNG
VB6.0で開発したアプリの、特にラベルの文字が
文字化けするという話を聞いたのですが、本当ですか？
対処法はありますか？
また、ユニコードにVB6.0は対応していますか？
0427デフォルトの名無しさんNGNG
>426
そんな曖昧な情報で回答できる奴はエスパー
0428デフォルトの名無しさんNGNG
困っています。
ただ今、Win2000＋VB6(SP6)で

・ファイルリストから.lzhファイルを選択(複数選択可)
・.lzhファイル解凍(解凍後は固定長のテキストファイル)
・データベース組込み

…といった流れの仕事をおこなうソフトを作成中です。
そのソフトの熟練者が使うぶんにはまったく問題ないでしょうが、初心者ユーザーが使用するとき、
誤ってまったく関係のない、組込みの対象外の.lzhファイルを選択してしまうことも考えられます。

そのような状況を考慮し、解凍時にはファイル展開用の TempFolderを作成するわけですが
選択ファイルに組込み対象外の.lzhファイルが含まれていた場合、一連の作業終了後、
FileSystemObjectオブジェクトの DeleteFolderメソッドを使って TempFolderを削除しようとすると、

書き込みできません。(Error70)

…というエラーがでます。

・選択されたファイルが組込み対象のファイルのみ
・.lzhを複数選択されたとき、組込み対象のファイルが、リストの１番最後であった場合

以上のような状況では、エラーは発生せず TempFolderは削除されます。
自分でＶＢ本やネットで色々調べてみたところ、Closeされていないファイルを削除しようとした場合
このエラーが発生するらしいです。しかし、私のコードでは対象外ファイルの場合は Openしていません。
On Error Resume Next で回避することもできますが TempFolderは残されたまま終了してしまいます。
このエラーの原因は何なのでしょうか？解決方法はあるのでしょうか？
どうかご指導よろしくお願いいたします。
0429426NGNG
エスパー・・・・１９６０年代生まれの人ですね。

２１世紀を生きる前途有望なプログラマは

　　「PSY（サイ）能力者」を使います。（サイキックでも可）←心霊能力者

WinXPデフォルトにVB5.0アプリをインストして動かすと←（5.0だよ！）
かなりの確率でラベルコントロールの文字が化けたのでランタイムを
調べたら、US版しか入っていない。でも、ある人は大丈夫だよという
コメントをいただいたので何だかな～。
0430デフォルトの名無しさんNGNG
>429
ソースは？
0431デフォルトの名無しさんNGNG
>>428
LHAのライブラリ何を使ってるかしらんが、それの後始末してないんじゃないの？
0432428NGNG
>>431
…なるほど、
ちょっと調べてみます。
0433デフォルトの名無しさんNGNG
>432
教えてくれた人に対して「なるほど」は無礼ですよ。
上司とかにも使ってるんですか？
0434デフォルトの名無しさんNGNG
>>433
1時間放置されただけあって大はしゃぎですね。
0435デフォルトの名無しさんNGNG
つうか、１人基地外が張り付いてるね。
多分、正月に保守かなんかで出勤なんだろうね。
下僕以下の階級。
0436デフォルトの名無しさんNGNG
>434
どういうこと？>433の指摘は合ってるよ。
0437デフォルトの名無しさんNGNG
>>436
そらお前の価値観から見てお前の発言は正しいだろう。
0438デフォルトの名無しさんNGNG
431だけど、別に2chなんだからどうでもいい。
いちいちこういう場で>>433みたいな奴のほうが、一緒に仕事をしたくない奴だ。
0439デフォルトの名無しさんNGNG
　　　　　　　　　　　　　　　　　 　＿＿
　　　　　　　　　　　　　　_,､;;-;;;''：　ヽ ､'';;-､､_,,,
　　　　　　　　　　　 -=ﾆﾆ` ._` ‐ﾐ　,､_､-､/ i L
　　　　　　　　　　　-=ニ二´`- ヽ<｀　　　｀'-'iﾉ
　　　　　　　　　 　　 -=ﾆ,､ヽ ､ii/　 ｀''-､_ , _!
　　　　　　　　　　　　　｀ヽ　!　!ﾞ 　u ﾆ'ﾆ｀<ｲ
　　　　　　　　　　　　　　 _i_,ゝ;;　 u 　 　 .　)i
　　　　　　　　　　　　　､'ﾞ(~'､　 !.　 ､──-/ u
　　　　　　　　　 _,､-;;;ﾞ/　.i　 '､　　　 ￣￣/
　　　　　＿､-'' 'ﾞ　　　/　　i 　 ヽ,　｀'',,- -' u
　　 ,､ ' ﾞ　 ﾞ .､　　　　/ _　_.i､.　 /ﾆ::i.´!＼ 　 u
　 /　　　 　 　i　　　　~,､- ' |ヽ,/i 　 i　!:::i丶
　 i　　　　　 　i　　　<　　　 .i　　ﾞi　iﾞ ｀|､::ゞ ﾞ､
　 !　　　　　 　 !　　　ヽ,　 　 !. 　|　|　i　 ﾞ､　 ヽ,
　 !　　　　　 　 |　　　　 '､　　.!　|　 .| i　ﾟ./　　 i ﾞi
　 |　　　　　 　 i　　　　　 ﾞ､　 .! | 　 | .!　/　　　!　!
　 i　　　　　 　 !　　　　　　 ﾞ.､　i| 　 |/　/　　　i.　|
┌‐────┐　　　　　　　ﾞ'､ﾞ!　 /'　/　　　 !　 !
│ナルホド　　|　　　　　　　　　ﾞ'.i|';／　　　　7 　 !
├───‐─┴─────────────────────────
0440デフォルトの名無しさんNGNG
>>394が放置されている件について
0441デフォルトの名無しさんNGNG
証拠品

|-変なレス参照記号-|
| 　　　○　>>100 . |
| 　　　×　>100 .. |
|----------------..|
0442デフォルトの名無しさんNGNG
>>440
とりあえず回答したのに話聞いてくれなかったので。
0443デフォルトの名無しさんNGNG
>437
いや、国語辞典にも載ってるレベル
0444デフォルトの名無しさんNGNG
>441
どうしたの？
0445404NGNG
>>404にも光を。
0446デフォルトの名無しさんNGNG
Adodc1の気になるプロパティをDebug.Printで吐かせて比べてご覧
0447デフォルトの名無しさんNGNG
>404
ConnectionとRecordsetオブジェクトを使わずに
Adodc1のみコードで設定した状態で開きませんか？

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\VB\練習\Book.mdb;" _
& "Persist Security Info=False"
Adodc1.RecordSource = "本"
Set Me.DataGrid1.DataSource = Adodc1
End Sub
0448デフォルトの名無しさんNGNG
質問させてください。
プログラマ暦1年以下の者です。

複数台のクライアント機のプログラムから
サーバの同一iniファイルを参照し、数値を得ます。
数値を得たらiniファイル内の数値をインクリメントするのですが、
複数のクライアントが同一の値を取得してしまわないように
する方法はどうすればいいのでしょうか。

Basicのバージョンは・・・よくわかりません。
某社の製品の動作をカスタマイズする方法が、
そのアプリケーション内で用意されたエントリポイントで
Basicを書くってことだけしかわかりません。

よろしくお願いします。
0449デフォルトの名無しさんNGNG
>448
それはプログラム暦1年以下じゃ無理ですよ。
最低でも1年2ヶ月の経験が必要です。
0450448NGNG
追記します。

Basicの仕様はよくわからないのですが、
そのアプリケーションが用意したBasicでは

・指定したiniファイルに指定セクションやキーが存在しない場合のReadIni
→例外を発生せず、空白を返す
・指定したiniファイルに指定セクションやキーが存在しない場合のWriteIni
→例外を発生せず、セクションやキーを作る
・iniが読み取り専用なのにWriteIni
→例外を発生せず、何も起こらず素通り

です。
質問のしかたもよくわからず申し訳ありません。
どうかお付き合いください。
0451デフォルトの名無しさんNGNG
>448
＞Basicのバージョンは・・・よくわかりません。

じゃあVBの質問じゃないじゃん。はい、スレ違い。
0452448NGNG
>449
Σ(´Д｀)ずがーん！
・・・・あかん・・・プロジェクトリーダーに叱られる・・・どうしよう・・・
0453デフォルトの名無しさんNGNG
排他処理とini関連のAPI、ファイル操作くらいを知ってたらできるんじゃないか。まあ、わからんことは近くの人に聞くんだな
0454デフォルトの名無しさんNGNG
>>404
cnとadodcがそれぞれ接続するので
複数同時にMDBが開けなくなる。
ちなみにSQLServer相手なら同じソースでも表示できる。
0455デフォルトの名無しさんNGNG
脱線すまない。
「なるほど」って言葉それ自体は目上の人間に対しても普通に使って問題ないよ。

ただ、確かにこういう傾向はあるだろう。
それはある種「卑屈な」メンタリティの人間はこの種の自分の心の動きを表現する
言葉を避ける傾向にあるということだ。

礼を尽くすことと卑屈になることの区別をつけましょう。子供じゃないならね。（ガキ臭いのが
何人かいるようだが）

大方の人間は質問者は（もちろん回答者も）最低限の礼儀は払うべきだと思ってるでしょ。
でも相手に卑屈になる必要はないんじゃないの？
0456デフォルトの名無しさんNGNG
なるほど【成る程・成程】
（副）
他人の主張や説などを聞いて△確かにそうだと同意する（そうであったかと納得する）ことを表わす。〔感動詞としても用いられる。ただし、目上の人に対しては言わない〕

Shin Meikai Kokugo Dictionary, 5th edition (C) Sanseido Co., Ltd. 1972,1974,1981,1989,1997
0457デフォルトの名無しさんNGNG
ttp://home.alc.co.jp/db/owa/jpn_npa?stage=2&sn=52
0458デフォルトの名無しさんNGNG
>456
なるほど

>455
いや、あなたは卑屈になってください。
0459デフォルトの名無しさんNGNG
>457
つまり、人に教えてもらっておいて「なるほど」は不遜であると
受け取られるということですな。


なるほど。
0460デフォルトの名無しさんNGNG
>455
お前みたいなクズは卑屈になれよ。


↓こういう書き方ってガキがよく使うよな。大人は使わん。

。（ガキ臭いのが
何人かいるようだが）

0461デフォルトの名無しさんNGNG
>455-456
激しくスレ違いであることにすら気付かないバカが
礼を語るな。
0462デフォルトの名無しさんNGNG
なるほど
0463デフォルトの名無しさんNGNG
>1-462
なるほど
0464デフォルトの名無しさんNGNG
>455
バカが終わった話題を蒸し返すから案の定荒れてるじゃねーか。
お前の身分晒せや。
0465デフォルトの名無しさんNGNG
>455
＞脱線すまない。
なんで悪いと分かっていて書くの？どう見てもそれだけの
価値ある投稿じゃないのにさ。
0466455NGNG
>455-465は私の自演でした。すいません。
0467455NGNG
だれも見てなくても自分自身が見てる。
こんなことは普通10歳前後で悟ると思うが。。

正月早々わざわざ自己イメージを悪くしている君らは可哀想だわ。
なにかに追い込まれてそうなってるとしたら不幸なことですな。
0468デフォルトの名無しさんNGNG
>467
はいはい。スレ違いだから消えてくれる？
0469デフォルトの名無しさんNGNG
今年もVBの天下は続きますか？
0470株板から来ましたNGNG
>>442
回答してくださった方には答えたつもりでしたが
抜けていたのかもしれません
>>398さんでしょうか？
プログラムの素人としては全く書いてある意味がわかりませんでした
0471404NGNG
>>446>>447>>454
ご回答ありがとうございました。おかげさまでできますた。
同時接続を避けるために>>447みたいに迂回しろ、ということだったのですね。
確かにわたくしの先が思いやられます・・・
0472デフォルトの名無しさんNGNG
>>470
一行レスしてる奴はたいてい「知識はない、でも知ったかぶりたい」
って奴だから気にすることはない。

もっとも、君の質問の仕方も不適切だと思うけど。
「RSSでエクセルに落とした」これで意味分る人っているのかなあ…。

具体的にセルにデータを書き込む実体がエクセル自身のマクロなのか、それとも
エクセルの外部のアプリなのか。
特殊なキーボードエミュレータみたいなのもあるようだし。

どっちにしろ、出来合いのものに自分で手を加えるってのはあまり現実的で
ないような気がする。特に最初だったの場合、恐らくマクロの改変は禁止されてるだろうし。

まあ、俺もVBAはやったことないんでアレなんだけど。
VBAで解決できる問題だとしたら、WorksheetオブジェクトのChangedイベントの
イベントハンドラに目的の処理(条件を満たしていたら音を鳴らす？）を記述することに
なるのだろう。
0473デフォルトの名無しさんNGNG
ただし、長く書いても>472のような（←分かるね）書き込みもあるので注意。1行レス完。
0474株板から来ましたNGNG
>>472
親切にありがとうございます
自分の質問の内容も良くなかったようです

↓RSSの説明です
http://nikkei.hi-ho.ne.jp/rakuten-sec/rs01.html
RSS(リアルタイム　スプレッド　シート）

>>具体的にセルにデータを書き込む実体がエクセル自身のマクロなのか、それとも
エクセルの外部のアプリなのか。
特殊なキーボードエミュレータみたいなのもあるようだし。

RSSと書き込んだのが余分だったかもしれないです
単純に、『セルの中の数字が一定の数値になったら、音を鳴らすということをしたいのです
エクセルで可能でしょうか？』という質問にした方が解り易かった・・・


http://members.at.infoseek.co.jp/IUnknown/WSH/dwhelper/samples/beep.htm
Beep音のコードを教えてくれた人がいました、活用の仕方はわかりません
0475デフォルトの名無しさんNGNG
>>474
ttp://www.asahi-net.or.jp/~zn3y-ngi/YNxv9e2.html

この辺でも見て活用のしかたは自分で考えてくれ。
0476株板から来ましたNGNG
>>475
ありがとう

かれこれ２ヶ月以上調べていますが解決しそうにありません
VBA覚えるのにも能力的に難しいかもしれません

買い取りますので、誰かプログラム組んでくれませんか？
0477デフォルトの名無しさんNGNG
未だにVBでｈｅｌｌｏ，ｗｏｒｌｄを出力できません。
買い取りますので、誰かプログラム組んでくれませんか？

なるほど。
0478デフォルトの名無しさんNGNG
リーダー絶好調だな。
0479デフォルトの名無しさんNGNG
>>476
もしセルへの参照の記述方法が分っているのならそんなに難しくないと思うよ。

基本的にはあなた自身が書いているようにIf文とBeepを組み合わせる。
それを>>472に書いたようにワークシートのChangedイベントハンドラに
記述すればいい。具体的には、

(1) まずそのRSSを利用するときに使うブックを開いてVisual Basic(VB) Editorを開く。
VB Editorはエクセルのメニューのツール→マクロの中にある。

(2) VB Editorのプロジェクトエクスプローラ（通常ウィンドウの左にある、
プロジェクト- xxxxって書いてある子ウィンドウ）の中の、株価が表示される
ワークシートの名前が付いたアイコンをダブルクリックする。

(3) 現れたエディタ（ノートパッドみたいな中身が空っぽのウィンドウ）に
次のコードをコピーペーストする。
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub

(4) このPrivate Sub～の行とEnd Subの行の間が「WorksheetオブジェクトのChangedイベントの
イベントハンドラ」になるので、ここに目的の処理を記述する。
0480株板から来ましたNGNG
>>479
お答え頂きありがとうございます
今日から仕事始めなので、少し時間がかかるかもしれませんが
（１）～（４）を実行してみます

>>477
冬休み中初心者用の本で勉強したので
出来ると思います
0481デフォルトの名無しさんNGNG
>480
＞冬休み中初心者用の本で勉強したので
＞出来ると思います

本当ですか！！！見積もり出してもらえますか？
0482デフォルトの名無しさんNGNG
「なるほろ」なら見逃してもらえる確率が高いかもしれない・・・
0483デフォルトの名無しさんNGNG
>482
なるほど嫌いの俺も許す。
0484デフォルトの名無しさんNGNG
で、NOVAウサギまだぁ？
0485デフォルトの名無しさんNGNG
　♪　いっぱい聞けて～

♪いっぱいしゃべれる～

　　　ＮＯＶＡならっ！

　 　 　 　 　 　 　　,.-､
　 　 　　　　　　　/.ｎ ｌ 　/⌒ヽ
　 　 　 　 　 　 　| ｌ ｌ |　,' /7 ,'
　　　　　　　　,　''　｀ ｰ ' '-' /
　　　　　　　/ 　､_, 　 　 　　｀ヽ　　
　 　 　 　 　ｌ 　　, .-. ､｀´ 　　　l
　 　 　 　 　ヽ 　ヽ￣ﾌ 　　　　/
　　　　　　　　丶､￣＿_＿_,／
　 　　　　　　　／ 　,. - 、 　）
　 　　　　（(　（　ｎ （[Ｎ],ハ_う
　 　　　　　　　ゝ)ﾉ　￣ 　 ヽ
　 　 　 　 　 　　/ 　 ＿ 　　l　)）
　 　 　 　 　 　 〈__ﾉ´ 　 ｀(_ﾉ
0486デフォルトの名無しさんNGNG
　はああ…俺は何て無駄な人生を送ってきたんだろう…。
　もっと早くに気付いていれば…。
　せめて20年前、いや10年前に戻りたい…。
　戻って何もかもやり直したいよ…。はあ…。
　俺って駄目な奴だよなぁ…。
　　　　　　　　　　∧＿∧
　　　 ∧＿∧ 　（´<_｀ 　）　　　…………。
　　　（；´_ゝ`）　/　　 ⌒i
　　 ／　　　＼　 　　　|　|
　　/　　 　/￣￣￣￣/　|
＿_(__ﾆつ/　 FMV　 / .| .|＿＿＿＿
　　　 ＼/＿＿＿＿/　（u　⊃

　　　　　　　　　　∧＿∧
　　　 ∧＿∧ 　（´<_｀ 　）　兄者は十年後にはきっと、せめて十年でいいからもどってやり直したいと
　 煤i；´_ゝ`）　/　　 ⌒i　　思っているのだろう。
　　 ／　　　＼　 　　　|　|　　今やり直せよ。未来を。
　　/　　 　/￣￣￣￣/　|　　　十年後か、二十年後か、五十年後からもどってきたんだよ今。
＿_(__ﾆつ/　 FMV　 / .| .|＿＿＿＿
　　　 ＼/＿＿＿＿/　（u　⊃
0487デフォルトの名無しさんNGNG
amazonでVB.NETのソフトを注文したんだけど間違ってアカデミック版を注文してしまった。
キャンセルしようとしたけどまもなく発送するってことでキャンセルできなかった。
社会人だけどそのままアカデミック版でつかえないのかな？どこで学生って確認するの？
0488デフォルトの名無しさんNGNG
>>487
学生証をMSに送付してアクティべーションします。
0489デフォルトの名無しさんNGNG
＞＞488
なるほど、サンクス
返品しヨット
0490デフォルトの名無しさんNGNG
>>489
嘘を嘘と見抜いた方がいいですわ。
0491デフォルトの名無しさんNGNG
>>490
え？うそなの？
0492デフォルトの名無しさんNGNG
どうせアカデミックはバージョンアップできないから
返品したほうがいいと思われ。
0493デフォルトの名無しさんNGNG
アカデミックアライアンス 早分かりガイド
ttp://www.microsoft.com/japan/msdn/academic/shortguide.asp
0494デフォルトの名無しさんNGNG
お願いします

tblname = List1.List(List1.ListIndex)

List1に運輸が常にある場合と考えて、
tblname に運輸を常に代入する方法とかありますか？

0495デフォルトの名無しさんNGNG
tblname = "運輸"
0496デフォルトの名無しさんNGNG
>>495さん
　そうですよね。。。(あ～なんか難しく考えていた！！)
0497デフォルトの名無しさんNGNG
>>494～496
意味不明なれど、質問者が納得しているからまあいいか
0498デフォルトの名無しさんNGNG
なるほろ
0499デフォルトの名無しさんNGNG
GDI+ Flat APIのリファレンス見てると頭痛い・・・
もう時代についてけない気がする鬱だ氏のう

vbAcceleratorにラッパーＤＬＬあるけど依存関係が。
そういえば外人ってＯＣＸとかActiveX DLL好きだよね。合理的ではあるけどさ。
0500デフォルトの名無しさんNGNG
WebBrowser1.Navigate "d:\txtOperation.html"
c = WebBrowser1.Document.Body.outerhtml
form_loadの中に上の二行を書いたのですが、この二行の間にdoeventsを入れないと
下の行でwithが設定されていないというエラーかあるいはオートメーションエラーが出ます。
しかもdoeventsを２つ入れると確実にエラーはでないのですがひとつだけだと出たりでなかったり・・・。
おそらく上の行の処理が完了していないのにしたにいってるからだとおもわれますが・・・
こういう場合どうするのがベストなのでしょうか・・
0501500NGNG
WebBrowser1.Navigate "d:\txtOperation.html"
on error goto err
err:
doevents
c = WebBrowser1.Document.Body.outerhtml
ってな感じにしてみました、問題ないみたいですがいかがでしょうか
0502デフォルトの名無しさんNGNG
>501
本人がいいならいいだろう。
0503デフォルトの名無しさんNGNG
>>501
こらこら、適当にやっちゃいかんな。
単に時間を稼いでいるだけで、環境が変われば又エラーだよ。
WebBrowser1.NavigateComplete2イベントを使いなさい。
0504デフォルトの名無しさんNGNG
http://search.yahoo.co.jp/bin/search?p=%A5%D3%A5%B8%A5%E5%A5%A2%A5%EB%A5%D9%A1%BC%A5%B7%A5%C3%A5%AF&fr=top

ヤフーの検索入れるとこんなURLに飛ばされますよね。
このp=以下の文字列の名称は何でしょうか？(名称もわからずにググれないので・・・)

また、
検索語→p=以下の文字列
をVB上で行う場合は、どのようにしたら良いでしょうか？

テキストに検索語入れて、ボタン押したらラベルに出すみたいな感じです。


0505デフォルトの名無しさんNGNG

6.0でフリーウェア作成、配布しようと思います。
.exe単体と、インストール用を二つを公開しておけばいいでしょうかね？

その他注意点などあれば・・・
0506デフォルトの名無しさんNGNG
>>505
.exeだけ公開して、「ランタイムは　『ベクター』から
ダウンロードしてね。」て書けば。
0507デフォルトの名無しさんNGNG
>>504
Webプログラミングの基礎を勉強した後で、ＶＢのヘルプ見れば判ると思うよ。
基礎なしじゃ回答だけ書いても出来ないと思うので、基礎を勉強して出直したほうが良いと思う。
0508デフォルトの名無しさんNGNG
>>504
URLエンコード
0509デフォルトの名無しさんNGNG
>>505
>その他注意点などあれば
「このソフトを使うことによって、ハードディスクの中が
めちゃくちゃになっても、当方は一切感知しません。」
なんて書けば完璧かな。
0510デフォルトの名無しさんNGNG
>>509
「このソフトを使用していると、時々全く期待しない、
動作をする事がありますが、これはバグではありません。」
なんてのもいるんじゃない。
0511デフォルトの名無しさんNGNG
>>508

サンクス！サンプル見つかったよ！
0512500NGNG
>>503
うまくいきました。ありがとうございました。ちなみにこういうページも見つけましたので参考に・・・
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200312_03120063.html
0513lnkNGNG
CommonDialog.showopenで　*.lnkをクリックした時抜け出さないで、
lnk先フォルダーに移動して表示するようにするにはどうするのですか？
OSはXpですが、以前win２０００の時とかはlnk先へ
切り替わっていたような気がするのですが、、。

0514lnkNGNG
VSのSP6入れても解決しないなー。
XPのバグかなー。
Windows\sistem32のComdlg32.dllは 2002 8/31が最新でしょうか？

0515lnkNGNG
解決しました。
XPのバグでした。
0516デフォルトの名無しさんNGNG
>>513=514
http://support.microsoft.com/kb/831559/JA/
0517デフォルトの名無しさんNGNG
floating paletteってVBでできますか？
0518lnkNGNG
>516
サンクス。

　それにしても糞マイクロソフトやろう。まともな日本語かけんのか？
機械翻訳をやめろ！！！クソッタレ。

糞やろう。糞やろう。糞やろう。
はらがたつ。
0519デフォルトの名無しさんNGNG
>518
ここに書いてもマイクロソフトには届きませんよ？
むしろ自分が見ているスレにこういった書き込みをされる
ことが不快です。せっかくちょっとでも時間を割いて
回答してあげたのに。
0520デフォルトの名無しさんNGNG
バージョン管理とかDiffとかって、みなさんどうしてます？
0521デフォルトの名無しさんNGNG
>>520
俺はこれかな。
Visual Source Safeに萌える香具師の集い
http://pc5.2ch.net/test/read.cgi/tech/1091615427/
0522デフォルトの名無しさんNGNG
>>520
CVS使ってるけど差分確認する時は不便だな。
VSSはIDE上で確認できるのかな。
0523デフォルトの名無しさんNGNG
変更履歴に「～を改良」とか適当な書置きが残されていて、
仕方ないから、ソースをコピペして差分を取ったりしてると、悲しくなる。

リソース部はあきらめるとして、プロシージャの部分は
直接diffを取る手段があってもいいのに、と思う。

VSSでそれができるなら買うかも。
0524デフォルトの名無しさんNGNG

お願いします

Function Copy_Set()
Dim strDBNAME As String
strDBNAME = "D:\日報.mdb"

DoCmd.CopyObject strDBNAME, "日報_Org", acTable, "日報"

End Function

これで実行をかけるとコンパイルエラー変数が定義されてませんとacTableのところででるのですが？
エラーの対処がわかりません。よろしくお願いします。　
0525デフォルトの名無しさんNGNG
えーと・・・まずすれ違い。ＶＢＡはそのすれあるから。
で文字通り、acTableってのが定義されてないんじゃないの？
VBAなりの定数の場合でもその参照がされていないとか。
0526524NGNG
>>525サン

ごめんなさい、そうなんです。
これはもとはVBAで作られたものなんですが、これをVBに移行させようとしているのですが
うまくできなくて困っています。
0527デフォルトの名無しさんNGNG
>>526
そうならば、きちんと書けと。何のVBAをどうしたいって。

多分AccessVBAとして、DoCmdはVBにはないから、その部分を別に書き換えるしかないと思います。
0528デフォルトの名無しさんNGNG
VBでは、Cのqsort()のように、関数の引数に関数を指定するといったことは
できないのでしょうか?
使用しているのはExcel2000のVBAです。
0529524NGNG
>>527さん
　すみませんでした。
　DoCmdの部分を書き換えないといけないまではわかりましたが。。。
それをどう書き換えるかが調べているのですがわからないです。。。
すみません。。。
0530デフォルトの名無しさんNGNG
>>528
Excelのセルにデータ並べてソートするのがExcelVBAってモノだろ。

>>529
AccessVBAをそこまで詳しくないんで、元の処理の該当部分がどういう処理か日本語で書いてくれるとふぉろーできます。
0531デフォルトの名無しさんNGNG
>>528
API相手ならAddressOf
0532デフォルトの名無しさんNGNG
>>530さん
　すみません、頼らせてください！

Function Copy_Set()
Dim strDBNAME As String 'strDBNAMEは文字列です
strDBNAME = "D:\日報.mdb" 　　'Dドライブの日報.mdbがデータベースの位置

DoCmd.CopyObject strDBNAME, "日報_Org", acTable, "日報"

’DoCmdはAccessアクションの実行　CopyObjectはオブジェクのコピー
　　　　’日報テーブルを　日報_Orgという名前でコピーします
End Function

フォローよろしくお願いします。。。
0533デフォルトの名無しさんNGNG
>532
とりあえず参照設定に　「MicroSoft ADO Ext 2.X for DDL and Security」　を
入れてみろ。で、実行してみろ。話はそれからだ。
0534デフォルトの名無しさんNGNG
初歩的な質問かも知れませんが…

MDIの背景に好きな画像を表示し
処理中にそれを切り替えたいのです。
ですが、MDIフォームにはAutoRedrawやRefreshなどが無いので
画像を読込んでも、背景が変わってくれません。
（読込はされているらしく、VisibleをFalse→Trueと連続で行うと画面はちらつくが
　画像はちゃんと変わる）

MDIフォームを表示したまま再描画して、背景を切り替える事って出来ないのでしょうか？
0535デフォルトの名無しさんNGNG
inetコントロールを使って非同期通信してます。
同時に複数の接続をしたいとおもってますが、まずinetを複数持たせないとできないとおもうのです。
いくつか方法はでてくるんですが、どうするのがシンプルかつ楽なのでしょうか。
複数のinetコントロールをデザイン時においておく　　　　　リソースがもったいないし、ダサイ
コントロール配列にする　　　　　　　　追加Loadしたり削除Unlodalしたりすると歯抜けになるので、空き場所Indexをさがすのが大変かも・・・。
コントロールコレクションを使う？　　　コントロール配列をMSDNで調べると出てくるけどつかえるのかどうかわからん・・・
同時に複数の接続を行うアプリ作っておられる方、アドヴァイスをお願いします。
0536デフォルトの名無しさんNGNG
ｈｔｍｌファイルを作って、そのファイルをブラウザで開きたいんですが
ブラウザってパソコン毎に異なるじゃないですか。
それで、ファイルの関連付けされてるアプリケーションで開きたいんですが
どうしたらいいのでしょうか？
よろしくお願いします。 m(_ _)m
0537デフォルトの名無しさんNGNG
>>532
席外していて回答おそくなりました。
FileCopyステートメントをMSDNで検索
0538デフォルトの名無しさんNGNG
>>535
なんとなく、ソケットサーバ側はVBで作らないほうが良いような・・・・。
コントロール配列で、その配列の参照を持つ構造体の配列で管理するつくりはやるけど。
やっぱりVBではやらないほうが・・・。

>>536
ShellExecuteEX

0539デフォルトの名無しさんNGNG
>>535
inetコントロールって好きじゃないけど、もう出来てるんじゃしゃないか。
コントロールの配列なんて簡単、はじめのinetコントロールのindexを、
プロパティで０にしておいてLoad Inet(1)とやれば次のが出来る。
接続したらInet(1).Tag=1とでもして、切断したら.Tag=0とでもする
こうすると使っているかいないか判るから、全部使ってたら、又新しく
Load Inet(2)などとして次のを作る。まあこんな感じで。
0540デフォルトの名無しさんNGNG
配列なんかにせず、必要に応じてnewしてやれば良い。
せっかくクラスって物があるんだから、
0541528NGNG
>530
やりたいことはソートではなく、関数に関数を渡すことなのです･･･

>531
どちらの関数も自前のVB関数です。
AddressOfのヘルプおよび関連項目も見たのですが。
それらしい記述は見つけられませんでした。
やはりVBでは無理なのでしょうか?
0542デフォルトの名無しさんNGNG
>528=541
普通に出来るはずなのだが。
やってみて、ダメだったのか？

ダメならソース晒せば？でないとレス付かん。
0543デフォルトの名無しさんNGNG
>>528
偽オブジェクト指向（ｗ っぽくやると、

--------------------
'Class1
Public Function A()
　　A = "hoge"
End Function
--------------------
'Class2
Public Function A()
　　A = "foo"
End Function
--------------------


Dim obj

Set obj = New Class1
Debug.Print obj.A()

Set obj = New Class2
Debug.Print obj.A()
0544デフォルトの名無しさんNGNG
>528
またかよ。「できないのでしょうか？」って聞き方やめろよ。
0545デフォルトの名無しさんNGNG
>>528
ExcelVBAでもImplementsは使えるんでないかな。
0546デフォルトの名無しさんNGNG
>>545
いいえ？
0547デフォルトの名無しさんNGNG
様々な文字コードの日本語テキストファイルを
500mセコンドで監視して、新しい50行をタスクバーからのバルーンヒントで
表示したいのです

まずは高速でファイルを監視してその内容をtextboxに表示させているのですが

一つ一つのテキストファイルは最大3MBくらいのサイズが有ります
そのおかげか、それとも更新間隔が速すぎるのかLine Inputで上手い事いきません
InputBってのを使ってみたのですが、文字の入出力がどうなっているのかよくわからず文字が化けます

バルーン表示に関してはサンプルがあったので上手い事いきそうです
http://homepage1.nifty.com/MADIA/vb/vb_bbs2/200403_04030050.html
0548535NGNG
>>538
一番有力っぽい方法です。構造体の中にいろんな情報持たせられるので。
>>539
まだアプリ自体は作りかけです。ほかにいいのがあれば教えていただけませんか？
tagは知りませんでした。使えます。これは、一度loadしたコントロールはunloadしないということですね。そのほうがよさそうですね。
>>540
非同期通信なのでinetは最低モジュールレベルでnewしないとだめですよね・・・？
実行時にモジュールレベルでnewできますか？
うーん・・・コントロールコレクションにnewしたinetクラスをaddしろということでしょうか？
0549535NGNG
>>540
思い出しました。もうひとつ心配事が・・
イベントは
Private Sub Inet_StateChanged(ByVal State As Integer)
と書けば実行されるんでしょうか？
0550デフォルトの名無しさんNGNG
>549=535
だからぁ、その心配事とやらを自分で試してから質問した方がいいよ。

# ソース書く前から「～できますか？」という質問は、このスレが荒れる
# 典型的な引き金になってしまっているので。

多分だけど、親切な人はその答えを出すためにわざわざソースを書いて
試して、回答してくれるんだよ。色々と頭で悩む前に極小サンプルで試す
ほうが早い場合が多いからね。

まずは質問者のあなた自身が、ごくごく簡単なサンプルでいいから、
とりあえず書いて動かしてみることを強く推奨いたします。
で、思い通りに動かなければ、そのソースを例に出して質問した方が
レスはとっても付きやすいし、あなた自身も分かりやすいと思います。

毎度のことながら、説教スレ汚しスマソ。ゴメン、悪かったってば。
0551535NGNG
>>550
ごめんなさい。できないでしょう？という意味で質問しました。
witheventsでイベント処理を書かないとだめなはず。
そうなると、同時に複数の（しかも何個生成されるかわからない）ＩＮＥＴコントロールのstate_changeイベントを
どう処理するのか？ということになる。
0552デフォルトの名無しさんNGNG
>>551
できないでしょう？だと？
お前が馬鹿なだけだろ
0553535NGNG
>>552
できるんですか？
0554デフォルトの名無しさんNGNG
ほら荒れた。っていうか、喧嘩まで買いそうな雰囲気だし。

>553=551=535
どこにNewするつもりなの？クラスモジュール内？
コントロールをクラス内にNewするの？出来るならそれでもいいけど。

で？Newする際に、Indexは？AddからでもNewでもいいけどIndexは
付けるよね？イベントはそのIndexを引数に入れとけばいいんでないの？

勘違いしてたらｽﾏｿ
0555535NGNG
>>554
いや別にバカでもいいよ。やり方あるなら教えてくれれば。バカじゃない552様にね。
絶対教えないだろうけどナ

クラスにnewとかまったく考えてないですよ。
イベントにindexを引数に入れればできるのか・・・・その辺やってみますわ
0556デフォルトの名無しさんNGNG
>555
プログラマやめた方がいいんじゃない？
0557535NGNG
>>556
お前殺すぞ？
0558デフォルトの名無しさんNGNG
>557
え？なんで？きっとみんなそう思ってるよ？
0559535NGNG
>>558
死ねよｗ
0560535NGNG
あらら？どうした？寝ちゃった？つまんねーなｗ
0561デフォルトの名無しさんNGNG
>559
え？なんで？きっとみんな君に対して「死ねよｗ」って思ってるよ。
0562デフォルトの名無しさんNGNG
>>561
ワロス
0563デフォルトの名無しさんNGNG
次の質問ﾄﾞｿﾞｰ
0564デフォルトの名無しさんNGNG
>>563
死ねよｗ
0565デフォルトの名無しさんNGNG
>563
理由は？
0566デフォルトの名無しさんNGNG
あの、、、、msgboxみたいなのってどうやって作るんですか？
0567566NGNG
ダイアログボックスを表示して、選択した値を呼び出したモジュールに返すやり方です。
0568デフォルトの名無しさんNGNG
>>567
クラスやDLLでそーゆーﾓﾉを作ればいいよ
関数呼び出し＞ダイヤログウインドウ作成表示＞
値設定変更＞return値設定
みたいな。
0569デフォルトの名無しさんNGNG
>>535
まあ熱くならないでやろうや。

>>550
先ず質問に答えてから説教しろ、ここは説教のスレじゃないんだから。

>>552
君の利口さを示してから人を馬鹿呼ばわりしろ。

だいたい535は始めにコントロールの配列が分からないといってるだろう、
これを踏まえて答えてやれ。
クラスなんて使う必要がどこにある、VBのコントロールは殆どクラスだろう。

InetやWinSockの配列を使った複数接続の例なんて五万と有るだろう。

>>548
>これは、一度loadしたコントロールはunloadしないということですね。
>そのほうがよさそうですね。
うんにゃ、配列をおけつから辿って、使っているコントロールが出るまで、
Unloadしようね。

>>551
> そうなると、同時に複数の（しかも何個生成されるかわからない）ＩＮＥＴコントロールの
>state_changeイベントをどう処理するのか？ということになる。
Select Case Index を使うのよ。
0570デフォルトの名無しさんNGNG
ごまんとあるって漢字で書くと五万とあるなんだ。
知らなかった・・・サンクス
0571デフォルトの名無しさんNGNG
>569
Indexがなんのことだか分かりません。不親切ですね。
0572デフォルトの名無しさんNGNG
>ごまんとあるって漢字で書くと五万とあるなんだ
心で読め。
> Indexがなんのことだか分かりません。不親切ですね。
判らなかったらそのままコピペでやってみたら。
0573デフォルトの名無しさんNGNG
>572

「Select Case Index を使うのよ。」をコピペしてみたのですが、
うーん、コンパイルエラーですかねぇ。

さっきからウソ教えてくれてるんですか？そりゃどうも。
0574デフォルトの名無しさんNGNG
>>572
>心で読め。
もらい(^^
0575デフォルトの名無しさんNGNG
>574
自演おちゅ
0576569NGNG
あれめちゃくちゃになってる。
>そうなると、同時に複数の（しかも何個生成されるかわからない）ＩＮＥＴコントロールの
>state_changeイベントをどう処理するのか？ということになる。
これはコントロールの配列にではなく、クラスに対する質問だな。
>さっきからウソ教えてくれてるんですか？そりゃどうも。
間違いでした、クラスに対する質問はあなた教えてやって。
540さん。
0577569NGNG
>>540
だいたい、コントロールの配列が分からない者にクラスを
教えるならもっと親切に教えた方がいいんでは。
> 配列なんかにせず、必要に応じてnewしてやれば良い。
>せっかくクラスって物があるんだから、
まあこの程度の回答からは大して期待できないけど。
さよなら。。
0578デフォルトの名無しさんNGNG
相手のレベルなんて知った事か。
0579デフォルトの名無しさんNGNG
>>578
問題は相手のレベルでなくて、あなたのレベルなの。
0580576NGNG
なんで俺へのレスの中で540と話してんの？
意味わかんねーんだけど。
0581デフォルトの名無しさんNGNG
>577
あーあ、最近捨て台詞で逃げる奴多すぎるよ。
自らダメ人間であることを認めちゃって・・・
577がこの後自殺でもしなきゃいいけどなぁ。
0582550=554NGNG
ほら、荒れた。

で？
>>535は、Indexを使ってできた？それともまだ意味分からん？
出来たか出来なかったかの結果だけでも教えて欲しいのだが。
0583デフォルトの名無しさんNGNG
>>581みたいなのがさっさと誰の手も汚さずこの世を去ってくれるのが一番いいな。
0584デフォルトの名無しさんNGNG
>>582
聞いてどうする？荒れるだけだ。
頭を使え。
0585デフォルトの名無しさんNGNG
いつも思うけどVBスレって不思議な荒れ方するよね
0586デフォルトの名無しさんNGNG
>>585
やってるのは

いつも同じ一人 + その場で釣られた人

なので傾向がかなりにか依ります。
0587デフォルトの名無しさんNGNG
>>586
+ わかってて乗っかってる人
0588デフォルトの名無しさんNGNG
いつからだろ。
2年前はこんなじゃなかった。
0589デフォルトの名無しさんNGNG
どうでもいいよ。そんな事。
0590デフォルトの名無しさんNGNG
>582
全然分かりませんね、不親切すぎて。
コピペするだけでコンパイル＆動作が完璧なソースを
提示してください。
0591デフォルトの名無しさんNGNG
↑
いつも同じ一人
0592デフォルトの名無しさんNGNG
>591
当然です。私が質問したんですから。何か問題でも？
0593デフォルトの名無しさんNGNG
>>592
性格に問題がありますね。ただそれだけです。
0594デフォルトの名無しさんNGNG
>593
別に性格が悪くても私の問題なので、あなた方は
回答してくれればいいんですよ。
難しく考えないでください。
0595デフォルトの名無しさんNGNG
590は常駐釣り師、相当ヒマ人
0596590NGNG
>595
誰が見ても分かると思いますが、何を思って指摘しているのですか？
自分だけ気付いてえらいとほめてもらいたいのですか？

えらいえらい
0597デフォルトの名無しさんNGNG
>>590
あほか！
おまえに教えるくらいなら、猫に教えるわ。
0598デフォルトの名無しさんNGNG
あしたまでの我慢だな。
0599デフォルトの名無しさんNGNG
>>598
どうゆう意味？
0600デフォルトの名無しさんNGNG
590放置決定。
以後無視。
0601デフォルトの名無しさんNGNG
>>596

　>595
↑
ここ
0602デフォルトの名無しさんNGNG
>>600
＞590放置決定。
と言いながら構ってしまっていることに気づきましょう。

それともなに？お前の一声で不特定多数の人間が一致団結するとでも？
0603デフォルトの名無しさんNGNG
>601
うんうん。だからそれは誰が見ても分かるよね。
それで？
0604デフォルトの名無しさんNGNG
>602
どっちもどっちだよ。他人を批判できるレベルの人間じゃない
ことを早く自覚してくれ。ちなみに俺は違うから。
0605デフォルトの名無しさんNGNG
>>604
なんか資格とかもってる？
0606デフォルトの名無しさんNGNG
>605
英検4級楽勝だったよ。

てか、協力会社とかを雇った経験がそれなりにあれば、
資格ほど当てにならないものはないと知っているはずだが。
ただのPGかな。
0607デフォルトの名無しさんNGNG
OracleのGOLD持ってるのにOracle触ったことない
奴とか本気でいるからな。
0608デフォルトの名無しさんNGNG
まぁ、客観的指標にはなるわけだ。
取らないと取れないとでは大きな差な訳で。
取らないのは取れないいいわけと判断されても仕方がないことだ。
0609デフォルトの名無しさんNGNG
どうだってイイ

儲けた椰子の勝ち
0610デフォルトの名無しさんNGNG
>608
うちの会社ではそういう判断はしません。
むしろ>607の奴は1か月分の金払わないでつっかえしたよ。
Oracleできるっていうから採用したのによ。

>609
確かに。
0611デフォルトの名無しさんNGNG
MBA持ってます！
0612デフォルトの名無しさんNGNG
>>610
＞むしろ>607の奴は1か月分の金払わないでつっかえしたよ。
犯罪ですが。
0613デフォルトの名無しさんNGNG
>>612
それが何か？
0614デフォルトの名無しさんNGNG
>612
んなことねーよ。むしろその協力会社の方がOracle技術者と
称してただのPGを送り込んできたんだからな。
0615デフォルトの名無しさんNGNG
>>610
債務不履行だから、裁判所に支払督促出されたら
即負けだよ。

あたかもお前が採用権限持ってるような書き方してるが、
実際はただの派遣社員か、引きこもり野郎だろ。
0616デフォルトの名無しさんNGNG
>>615
裁判所から手紙がきたら払えばいいじゃん?
0617デフォルトの名無しさんNGNG
Windows2000pro、VB5で作ったアプリと、クリレポ6での帳票出力を行うプログラムなんだけども
あるPCでプリンタの設定をしたネットワーク上のレポートファイルを
別のPCから同じファイルを見ると設定が変わっているという現象が起きて困っています。

サーバのプロパティからの用紙の設定も行われていて、
プリンタ自体も同じように設定されているのですが
なぜこんな現象が起きるのでしょうか？
0618デフォルトの名無しさんNGNG
まず、変な略語は使わない。栗レポってなんだよ。ｗってなるよ。

設定って何の設定を指しているんでしょうか？
プリンタの設定であれば、基本的には個々のPCのプリンタ設定が優先に思います。
レポート出力時に明示していない場合はローカル設定が優先だったような。
0619デフォルトの名無しさんNGNG
>615
債務の意味分かってるか？
0620デフォルトの名無しさんNGNG
>615
いかにも俺は採用権限ない（派遣社員ではなく、引きこもり度合いは6割くらいだ）けど
そのOracle野郎に関しては、面接の段階でOracleのことは何でも分かるくらいのことを
吹いていたため、金を一部払えないという話もすんなりまとまったよ。
法律用語はよくしらねーけど、こっちが詐欺で訴えたら勝てるんじゃねーの？
まあそれ以前に面接で見抜けないうちの会社の技術力もダメなんだけどな。
0621まあ、趣味プログラマとかデジタルドカタならいいけどさ。NGNG
>>610
> むしろ>607の奴は1か月分の金払わないでつっかえしたよ。

>>620
> 吹いていたため、金を一部払えないという話もすんなりまとまったよ。

「払わない」と「一部払えない」では全然違うぞ。
そういうところがうまく伝えられないようでは、プログラマとして失格だな。
0622デフォルトの名無しさんNGNG
>621
>そういうところがうまく伝えられないようでは、プログラマとして失格だな。
他人を批判するときは、同じ論法をまず自分に向けようね。
そうするとたいていの人間を許すことができるよ。
0623デフォルトの名無しさんNGNG
>621
0624デフォルトの名無しさんNGNG

>621
＞「払わない」と「一部払えない」では全然違うぞ。
なんだ、そんなとこにひっかかってたのか。
なら「払わない」じゃなくて「一部払えない」の間違いじゃないの？
とでも指摘すればいいのに。視野が狭いから他人の間違いの
フォローもできないんだな。

まあ俺が最初に表現を間違えたのは謝るけど。
0625デフォルトの名無しさんNGNG
>622
２ちゃんねらーにそれは無理な要求。
一般人とは明らかに違う人種だからな、俺たち
0626デフォルトの名無しさんNGNG
>>618
>まず、変な略語は使わない。
その調子で変な略語全てにつっこめよな。
0627デフォルトの名無しさんNGNG
俺今から命令口調全部やめるよ。
0628デフォルトの名無しさんNGNG
PGは論理的で美しいプログラムが作れればそれで充分だよ。
0629デフォルトの名無しさんNGNG
【姑息】支那人に反撃汁！【国民性丸出し】第二部隊
http://pc5.2ch.net/test/read.cgi/internet/1105096970/l50
0630デフォルトの名無しさんNGNG
>628
あなたのプロジェクトではそうなのかもしれませんが、
一般化するのはやめてください。
0631デフォルトの名無しさんNGNG
バージョン情報にURLのリンクが書いてあって、
それをクリックすると標準ブラウザで開くような画面を良く見るけど、
あれって簡単にできるものなんでしょうか？
Windows2000のVB6sp5です。
0632デフォルトの名無しさんNGNG
>>619
給料は債権で、労働者が債権者、会社が債務者。
で、これを未払いにすると債務不履行。
当然、未払い期間は利息も発生する。

これでOK？
0633デフォルトの名無しさんNGNG
>>631
簡単に出来るよ。
0634デフォルトの名無しさんNGNG
>>615
相手が先に契約を履行していないので、『債務不履行』は成立しないな。
逆に『契約不履行』で訴えることは出来るかな。
まあ最初にどんな契約をしたかにも夜蛾な。
0635631NGNG
>>633
ありがとうございます。
できればやり方等を教えていただけるとありがたいのですが。
0636633NGNG
>>635
Shell "explorer " + "URL", vbNormalFocus
0637631NGNG
>>633
ありがとうございます。
ただ、上記の手法ですと、標準ブラウザではなくIEで開いてしまうため
APIのShellExecuteを使用することにしました。

Call ShellExecute(0, "open", lblURL.Caption, 0, 0, SW_SHOWNORMAL)

URLにカーソルを合わせたときに、Webのリンクのようにするには
やっぱり自分で書かないとだめなんですかねぇ。
そういうコントロールがあると楽なんですけど。

いろいろありがとうございました。
0638633NGNG
>>637
> そういうコントロールがあると楽なんですけど。
WebBrowserにリンクが書き込んであるHTMLテキストを
読み込ませると言う手は有りますが。
0639デフォルトの名無しさんNGNG
>634
分かりきった話。相手しなくていいよ。
0640デフォルトの名無しさんNGNG
藻前らマ板でやれ
0641デフォルトの名無しさんNGNG
マ板って何？
0642デフォルトの名無しさんNGNG
http://pc5.2ch.net/prog/
0643634NGNG
>>639
ごめん、おいら単純PGなもんで。
0644デフォルトの名無しさんNGNG
chr(&H3e)バカはいなくなりましたか？
0645いけめん太郎NGNG
こんにちは、Excel2000にて、セル範囲の各値を、
10項目(ｾﾙ)ずつ、ｽﾍﾟｰｽを一つずつ空けてﾃｷｽﾄ形式にて
保存する方法を探しています。
1 1 1 1 1 1 1 1 1 1　**項目
2 2 2 2 2 2 2 2 2 2 ** (値)
のように、右端に項目名を書き込みし、
その下の段の右端にその項目の値を書き込みたいと思っています。
ｾﾙの値のところ 1 1 1 1 の辺りは、一行の値を書き込み、
右端に一項目ずつ、見やすく記入したいと思っています。
Cells() で指定し、Print()にてﾌｧｲﾙに書き込むと、
大きなタブが入ってしまいます。
ｾﾙ範囲の参照は、ﾍﾞﾀ打ちでもOKです。
ご意見よろしくお願い致します。
0646通りすがりNGNG
>>645
自分で文字列を連結するしかないんじゃないかな。
とりあえず、VBとExcelのVBAは別物。←なぜかテンプレに書いてないけど。
↓か、ビジネスsoft板のExcel-VBAスレとかで聞く。
VBAについて　Ver.4.0
http://pc5.2ch.net/test/read.cgi/tech/1105108229/
●EXCEL・VBAの勉強法教えてスレ●
http://pc5.2ch.net/test/read.cgi/tech/1054356121/
0647デフォルトの名無しさんNGNG
>>646
＞とりあえず、VBとExcelのVBAは別物。←なぜかテンプレに書いてないけど。

ふぅん。
0648デフォルトの名無しさんNGNG
VB6で、スレッドを使ったプログラムを組もうとしています。

スレッド間の通信は、グローバル変数でやろうと考えているのですが
（邪道なのは、分かりますが）
最適化機構VBでは、どうなっているのでしょうか？
例えば

i=0
do while(i<>3)
何か処理
loop

というループで、iが別スレッドで操作された場合でも、
きちんとループは抜ける事ができるのでしょうか？
0649デフォルトの名無しさんNGNG
>>648
それ以前にスレッドって使えるんでしたっけ？
0650デフォルトの名無しさんNGNG
>648
面倒だができるようだ。
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/9903/db_solu/
0651デフォルトの名無しさんNGNG
つうかさ、VBでスレッド使うつもりなら、それぐらい自分で調べると言いたい。
それを知べられない程度ならVBでのマルチスレッドなど百害在って一理なし。
普通にCとかDelとか使ってマルチスレッド実現するか、VBならタイマーとかDoeventsで代用しとけ。
0652デフォルトの名無しさんNGNG
煽るの飽きたからやめるわ。
0653デフォルトの名無しさんNGNG
>>652
助かる。
0654デフォルトの名無しさんNGNG
VB6ではマルチスレッドは無理。
どうしてもと言うならVB5を使え。
0655デフォルトの名無しさんNGNG
>654
どうして？
0656デフォルトの名無しさんNGNG
>654
そんな話も聞いた気もするなぁ。
だが、確実なのは、VB6なら、DoEventsで誤魔化せ。
マジマルチスレッドをやるなら．NETにしろ。以上。
0657デフォルトの名無しさんNGNG
>656
どうして？
0658デフォルトの名無しさんNGNG
>657
VB6はマルチスレッドに対応していないから。
．NETから対応したから。
0659デフォルトの名無しさんNGNG
>1-999
どうして？
0660デフォルトの名無しさんNGNG
>658
おおおお、分かりやすい。ソースは？
0661デフォルトの名無しさんNGNG
>>654
VB6だけで(ActiveXを使わずに)マルチスレッドを行うのは
かんーり限定されたものなら可能だけど普通は無理。
ランタイムがそれ用に書かれてないんよ。
これはやってみればすぐわかると思う。
（開発環境上とかP-Codeでならある程度可能だけどね。
あとDirectX周りを使って行う方法もある。）
0662デフォルトの名無しさんNGNG
>660
ｸﾞｸﾞﾚば沢山でてくるけど・・例えば↓
ttp://www.itmedia.co.jp/enterprise/0207/05/02070402.html
0663654NGNG
>>654
正確に言うと、VB6のネイティブコンパイラーに山のような制約が付いて
とてもまともなコードが書けなくなった、ただし開発環境とP-コードコンパイル
ではVB5と同じことが出来そう。
漏れも知らないで開発していざEXEにしたら、起動したとたんに落ちた。
仕方ないからP-コードで使ってるけど、気持ち割りー。
0664デフォルトの名無しさんNGNG
>662
ココなんかいいんでね？↓
ttp://www.microsoft.com/japan/msdn/vs/vb/vbtchasyncprocvb.asp
0665デフォルトの名無しさんNGNG
ここは？
http://support.microsoft.com/default.aspx?scid=kb;ja;241896
0666デフォルトの名無しさんNGNG
ここも
http://www.microsoft.com/japan/msdn/vs/general/vbtchusingthreads.asp
0667デフォルトの名無しさんNGNG
>>648
ところで何したいの？
0668デフォルトの名無しさんNGNG
>>622
何を伝えたいのか全然わからん。
もっと具体的に書いたら ?

>>624
> まあ俺が最初に表現を間違えたのは謝るけど。

> なら「払わない」じゃなくて「一部払えない」の間違いじゃないの？
> とでも指摘すればいいのに。視野が狭いから他人の間違いの
> フォローもできないんだな。

全然謝ってないじゃん。
指摘されて逆切れ ?
0669デフォルトの名無しさんNGNG
>668
だから、マ板逝け。最早完全にスレ＆板違い。
0670↑さっきまで荒らしてたのにたいした正義感ですねNGNG
>>669
0671デフォルトの名無しさんNGNG
>>663
あんたの知識間違ってますよ。
VB６で出来る出来ないは出来る。VBマガジンの昔の号にもサンプルはあった。
EXEにしてだめなのは最適化を切らなかったとか、自分のソース内でメモリー周りのバグがあったかだと思いますよ。
0672663NGNG
>>671
あんた呼ばわりされるおぼえは無いんだが、
まあ娑婆じゅうに散らばってる、VB6はマルチスレッドが出来ないという
書き込みに、『あんた』の説を書き込むんだな。
それとマイクロソフトにも言っといた方がいいな。
http://www.asia.microsoft.com/japan/msdn/vs/general/vbtchUsingThreads.asp
0673デフォルトの名無しさんNGNG
定義されていないユーザ型がコードの中にあると
Ctrl+sで保存しようとするとチェックかかって保存できないんですが
なんか設定ないですか？
0674デフォルトの名無しさんNGNG
保存できないことは無いと思うが。
オプションの自動構文チェックのメッセージボックスが邪魔してるの？
メッセージの後でそのまま保存できるはずだけど。
自動構文チェックはoffにしないと、とりあえず適当書きが出来ないからOffにしとけば？
0675デフォルトの名無しさんNGNG
>647
再度確認してみましたが自動構文のチェックは外してしますので
ほかに設定が見当たらない状態です
よくよく見ると関数宣言にチェックがかかるみたいですprivate xxxx(a as arienaikata)
この状態でctrl+sを行うとチェックのメッセージがでて保存はできない結果でした
ローカルな現象なんでしょうかなんか不安です
0676デフォルトの名無しさんNGNG
なんてメッセージが出るの？
ちょこっとやってみたけど再現しない。
0677デフォルトの名無しさんNGNG
>なんてメッセージが出るの？
コンパイルエラー
　ユーザ定義型は定義されていませんです
>ちょこっとやってみたけど再現しない。
もしやと思ってこちらでも新規にプロジェクトを作成して再現させようとしましたが
再現できませんでした。申し訳ないです
問題のプロジェクトでは面白いように何回も再現できるのですが、新規のほうでは
設定を見直したり、あらゆる文法でためしてみましたが再現できませんでした
また、ちゃんと再現できるようになったらｶｷｺさせてもらいます。
0678デフォルトの名無しさんNGNG
再現しないんじゃ、しゃーないな。
0679デフォルトの名無しさんNGNG
>677
問題の出るプロジェクトをどっかにうｐしてください。
0680デフォルトの名無しさんNGNG
>>678-679　すみません、再現方法がわかりました
ですが、たぶん使用するコントロールとローカル環境問題になると思います
ユーザコントロールのソースを読む技量がないのでもし、興味がありましたら解析お願いします。
ttp://www.mtecb.co.jp/versionup/src/classlibrary/enterorder/enterorder.htm
上のサイトからユーザコントロールをダウンロードして、そのコントロールを貼り付けた状態で問題が起こります
ユーザコントロールの内容はテキストボックス上でEnterキーを押すとTABキーとして認識してくれるものです
[再現方法]
上記のユーザコントロールを新規プロジェクトに追加してフォームにドロップしようとする、または
ドロップして貼り付けた状態でctrl+sをすると、宣言されていない型にチェックがかかるようです。
WindowsXP　VS6.0　SP5
Option Explicit
Private Type STRUCT_GA
ww As String
zz As String
End Type
Dim aa As STRUCT_GA
関数です (aa)
End Sub
Private Sub 関数です(ByRef a As STRUCT_G)
'STRUCT_GA をSTRUCT_Gで使用した
With a
.ww = "aa"
.zz = "bb"
End With
End Sub
0681デフォルトの名無しさんNGNG
Windows2000pro、VB6で作業中です。


どなたかメールチェッカーのサンプルソース（プロジェクト）お持ちじゃないですか？
0682デフォルトの名無しさんNGNG
>>681
メールチェッカーのソースそのものなら持ってるがサンプルは持ってない。
0683デフォルトの名無しさんNGNG
　　　　　　_,,_
　　　　 /´o　ヽ
　　　,.ィゝ 　 　 l　　
　　　￣ヽ 　 　 l
　 　 　 　l 　 　 ヽ___
　　　　　/　　,,...---｀ニニニ==、,,__
　　　　　l　 / ヽ ヽ ヽ ヽ ヽ ヽ ヽ l三三三>
　　 　 　|　 iヽ ヽ ヽ ヽ ヽ ヽ ヽ／三三／''ー- 、
　　　　　ヽ. ヽ、ヽ ヽ ヽ ヽ ヽ.∠三=‐''´＞‐--‐'
　　　　　　 ヽ、｀'''ー‐---‐'''´_,,...--‐'''´
　　　　　　　　 ｀''ーッ--t_,r'''´
　　　　　　　　＿／.＿／
　　　　　　　 .フ^ー フ^

ﾇﾙｯﾎﾟｰﾇﾙｯﾎﾟｰ
0684デフォルトの名無しさんNGNG
>>682

どうかそのソースをご開示いただけませんかm(_ _)m
0685ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>684
ソースは無いが、こんなのあったぞ↓
ttp://abcclub.cside.com/heppoko/gijyutu1.htm
0686６８０NGNG
あれから調べたところ
要はフォーム上でテキストボックスがフォーカスにあたっているときは、EnterキーでTABキーに変換すれば
よいのですｋら、サブクラスを考えてみましたが動作具合は安定するでしょうか？
テキストボックス上でEnter→タブキーに変換する一般的なやりかたがありましたらヒント尾根がします

＞６８４
試したことないですが、POPをSOCKコントロールで
タイマーで発動かと思いました。ソースはないです。

0687デフォルトの名無しさんNGNG
>>686
KeyPressイベント
0688684NGNG
>>685

ありがとうございます！
0689デフォルトの名無しさんNGNG
まあ、あれだ。

ぬるぽ
0690デフォルトの名無しさんNGNG
>689
このスレでは

オブジェクト変数または With ブロック変数が設定されていません。 ぽ

だと思われ。
0691デフォルトの名無しさんNGNG
VB6のListViewで、ListBoxのTopIndexに
あたるものは、なんですか？
0692デフォルトの名無しさんNGNG
>>691
0
0693デフォルトの名無しさんNGNG
>692
見当違い過ぎてコメントしようもありません。
0694デフォルトの名無しさんNGNG
>>693
と言うコメントを残してくれたあなたにカンターツォ。

「開いた口がふさがらない」と口をぱくぱくさせながらおっしゃるようなものです。
0695デフォルトの名無しさんNGNG
>>690
ｶﾞｯ
0696デフォルトの名無しさんNGNG
キーフックする方法を教えてください。
押されたキーを取得するにはどうすればいいの？
0697デフォルトの名無しさんNGNG
MAPIがよくわかるサイト教えてください。
目的は、OutlookExpressのメールを読み込むことです。
よろしくお願いします。ｍ（＿ ＿）ｍ
0698デフォルトの名無しさんNGNG
>694
つまらないですよ。
0699デフォルトの名無しさんNGNG
>>697
サンプルに PRJMAPI.VBP という物があるが？
0700697NGNG
>>699
ありがとうございます。ｍ（＿ ＿）ｍ

でも読めない・・・ｏｒｚ
0701デフォルトの名無しさんNGNG
思いっきり初心者の質問ですいません

例えばモジュール側の関数
Function drawcircle()
circles 1000, 1000,100
End Function
から、
フォーム側の関数を呼び出せませんよね
Public Function drawcircle(x, y、ｒ )
Form1.Circle (x, y), ｒ
End Function

これは何故ですか？又、一般的には、
Form1.circles 1000, 1000,100のように書くものなんでしょうか？




0702デフォルトの名無しさんNGNG
>701
プロシージャのスコープについて勉強すれ
0703６８６NGNG
＞＞６８７
＞KeyPress
フォーム上にのっかってるコントロールごとにKeyPressするってことですか？？？

＞＞７０１
呼び出せるはずですよ
0704697NGNG
>>703
テキストボックスをコントロール配列にして、ＫｅｙＰｒｅｓｓイベントで
エンターキーが押されたら、SendkeyでTabを送って
バッファをクリアする。
こんなかんじ。
0705デフォルトの名無しさんNGNG
FormのHelpContextIdを設定することで
F1キーをクリックした際に
そのIDに応じたHELPファイルのページを表示させています。

これをフォーム上のボタンをクリックしたときにも
同じヘルプを表示することはできますか？

APIを使うのでしょうか？
0706705NGNG
>>705
すんません。自己レスです

SendKeys "{F1}"

でできました
0707デフォルトの名無しさんNGNG
circles は Formのメンバーだから

もし circles 1000, 1000,100 で呼び出したら 何処に円を描きますか？　ということ
0708デフォルトの名無しさんNGNG
OutlookExpressのアドレス帳にデータベースに入っているアドレスを
自動で登録しようとしてるんですが、登録の仕方がわからない。。。
よろしくお願いします。 ｍ（＿ ＿）ｍ
0709７０３NGNG
＞＞７０４
それはつらいです、テキストボックスの１つ１つに名前がついているので
１００子くらい
ところでVBってほいっすらーでても現役だよね？？？
0710デフォルトの名無しさんNGNG
bsenmを使ってvbからメール送りたいんだが、yahooメールのサーバでいける?
0711７０３NGNG
>710
いけます
0712デフォルトの名無しさんNGNG
まじっすか?
smtpサーバ名smtp.mail.yahoo.co.jpで接続できないんですが?
0713デフォルトの名無しさんNGNG
すべてのAPIを使えるタイプライプラリ知りませんか
0714デフォルトの名無しさんNGNG
>>713
全てのAPI・・・世の中にどれだけのAPIが存在するのかと。ｗ
何のAPIをさしてるんでしょうか？ｗ
0715713NGNG
>>714
やっぱヴいびーっていいや♪えたーなるっぽ
0716デフォルトの名無しさんNGNG
>>713
俺の右腕
0717デフォルトの名無しさんNGNG
inetコントロールでとあるhtmlをダウンロードしていると
StateChanged イベントのログをとってみると
コントロールは、ホスト コンピュータからの応答を受信しています。icReceivingResponse
コントロールは、ホスト コンピュータからの応答を正常に受信しました。icResponseReceived
の部分を繰り返して最後に
icResponseCompleted 12 要求処理が完了し、すべてのデータが受信されました。
となるのですがこのicReceivingResponse->icResponseReceived１回の受信っていうのは
データサイズかなにか決まっているのでしょうか？
もし決まっているのならばある程度のダウンロード状況が取得可能ということになりますが・・・。
0718デフォルトの名無しさんNGNG
>>717
httpの仕組みを知らないんですか？
0719デフォルトの名無しさんNGNG
>>718
知りません
0720デフォルトの名無しさんNGNG
基礎を知らずに作れるのがコンポーネントの優位性とはいえ、基礎を調べずの質問が多いよな。
メールとかHTTPの仕組みって基本的にシンプルで１日あれば基礎は十分理解できるから勉強しろといいたい。
0721デフォルトの名無しさんNGNG
>>720
そんなことがたがた講釈たれる前にこたえてやれやタコ
0722デフォルトの名無しさんNGNG
じゃあ回答、きまってる、RFC嫁。
0723デフォルトの名無しさんNGNG
>>720
勉強の為に聞いているんだろ、イカ。
メールとHTTPの仕組みが簡単か、スルメ。
0724デフォルトの名無しさんNGNG
>>723
”プログラマとして常識的”なネットワークの知識があれば、
メールもＨＴＴＰも元質問者が欲してる回答を得るための基礎知識なんて”普通”１日だろ？

メールもＨＴＴＰも基礎は簡単ですよ。アレのどこが難しいのかと・・・。
0725デフォルトの名無しさんNGNG
>>724
その"簡単"な答えをここで披露してはいかが？
講釈たれるより簡単ですが？
説明するのに長い文章が必要ならここ嫁はわかるが。
0726デフォルトの名無しさんNGNG
>>725
>>722、それ以上は別に書く気も起きない、なんとでも言って下さい。
0727デフォルトの名無しさんNGNG
　　　＿＿＿
　 ／　　　　 ＼
/　　 ∧　∧　　＼
|　　 ・　・　 |　
|　　　）●（　　 |
＼　　 　 ー　 ﾉ 　┌─────────
　 ＼＿＿＿_／ 　 ＜ とりあえず回答のテンプレートはっとくぞ
　 　　　＼　< 　　└───/|────
　　　　　　＼.＼＿＿＿＿__／/
　　　　　　　 ＼　　　　　　　／
　　　　　　　　　∪∪￣∪∪ 　　　((　　((
・ぐぐれ
・RFC嫁
0728デフォルトの名無しさんNGNG
>>72乙
0729デフォルトの名無しさんNGNG
>>726
回答書かないんなら、帰れ。
0730デフォルトの名無しさんNGNG
ここはテンプレ嫁だけで回答が終わるスレですね。



　　　　い　　　や　　　あ　　実　に　　い　い　ス　レ　だ



0731デフォルトの名無しさんNGNG
という訳で次ﾄﾞｿﾞｰ
0732ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
仕事でVB使ってる人で、.NETを使う割合が増えた人、手を挙げて！
0733708NGNG
短時間でレスが増えてるからこたえてくれたのかと思いきや・・・ｏｒｚ
0734デフォルトの名無しさんNGNG
毎回getchankしてサイズ調べりゃいいだけの話ジャン
なにが「httpの仕組み知らないんですか」だ
ここはお前のオナニースレじゃねーんだ
0735デフォルトの名無しさんNGNG
サイズを返さないhttpサーバでも効くの？
0736ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>733=708
確か、ExpressはMAPIコントロール使えないんだったよね。
なので、レジストリから触ってデータファイルを開くしかないかも。

レジストリの位置は、

HKEY_CURRENT_USER\Identities\{XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX}\Software\Microsoft\Outlook Express\5.0

・・・の中にあるね。途中のXXXはユーザのIDみたい。
まずこの辺から調べてみたら？


>730
誰もテンプレ嫁とは言ってないよ？
RFCを読んだ方が早いし勉強になる、と言ってるんじゃない？
例えば>>717みたいな質問は、httpプロトコルを知らないと
何度説明してもドツボにはまっていくだけだろうし。実際何度も
そういうやり取りから荒れてきた経歴もあるスレなんだし。

先に基礎となる粗筋を読んでからVBに当てはめて分からなければ
改めて質問してもらった方が、答え易いし、質問者も理解し易い。

ってか、>>730も、RFC自体を知らないんでない？
でないと、こんな煽りは出てこないよ。まったく。ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)
0737デフォルトの名無しさんNGNG
RFCを理解できないﾔｼは
ttp://www5e.biglobe.ne.jp/~aji/3min/
で
0738デフォルトの名無しさんNGNG
>>734
getchunkでした。
>>735
落ちたデータのサイズをとるんじゃないの？落ちる前？
0739ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
GetChunk ね。
Inetコントロールの使い方は、こんなページいかが？
下のほうにGetChunk も出てくるよ↓

インターネット トランスファ (Inet) コントロールの使い方
ttp://www.microsoft.com/japan/developer/library/vbcon98/vbconusinginternettransfercontrol.htm
0740デフォルトの名無しさんNGNG
で　>>717への回答は何なのよ。
0741デフォルトの名無しさんNGNG
>>740
ここまでのやりとりで、まだわからない人は異常ですよ
0742708NGNG
>>736
ググって調べてるんですけど、サイトの中には
OutlookExpressがMAPI準拠って書いてるんです。
これって間違いですよね？
0743708NGNG
ここです。
http://www.vector.co.jp/soft/win95/amuse/se124183.html
0744ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>743=742=708
えと、間違いではないですよ。準拠らしいです。
んでも、確かMAPIコントロールでは使えなかったような・・ちょい調べます。ｽﾏｿ
0745デフォルトの名無しさんNGNG
ExpressとOfficeのOutlookは全く別物のはず。
MAPIを使ってのアクセスは出来ないと思う。
２年ぐらい前に結構調べたような、詳細は忘れたけど。

あと、>>740って>>717じゃない単なる煽りでしょ？
馬鹿は黙ってたほうがいいよ。
0746ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>743=742=708
ごめん。的確なページが見つからん。やってみた方が早い。
当方OEが無いので試せない。OEの入ったPCでVB開いて、
MAPIコントロール（MAPIMessages）を貼り付けて名前を
MAPIMessages1にして、ボタンクリックにでも、

MAPIMessages1.Show

と書いて試してみてくれ。OEのアドレス帳が開けば成功。
昔どっかで調べたんだけどなぁ・・ｺﾞﾒﾝ。　結果教えてね。
0747デフォルトの名無しさんNGNG
通りすがりの者だが、普通に開けた。
0748デフォルトの名無しさんNGNG
要するにここで質問に答えてるやつは、初心者に対して適切に
答えられねえのよな、それで答える代わりに適当にググッてここにも
書いてあるあそこにも書いて有るって、ごまかすんだよな。
だいたい>>717の質問とGetChunkと何の関係があるんだ、もう一回
質問をよく読んでみろ、アホ。
0749デフォルトの名無しさんNGNG
>>748
しつけーな。>>717じゃないなら黙ってろ。
>>722の回答で終わりだろ？
0750708NGNG
>>745
そうなんですか・・・orz
ありがとうございます。

>>744　>>746
試してみたんですが、開けないです・・・orz

>>747さんは釣りですか？
0751デフォルトの名無しさんNGNG
>>750
いえ、本当にアドレス帖は開けましたよ。少なくともうちの環境では。
Outlook無し&OEのみ。
開けないとはどんな状態ですか？どんなエラー？
0752708NGNG
>>751
えーっ、まじですか！？
僕の環境は、Outlook２０００＋OEです。
なんか、Outlookのアドレス帳が開くんですよ。。。
0753デフォルトの名無しさんNGNG
次の質問どうぞ
0754デフォルトの名無しさんNGNG
>>749
RFCのどこを見ればわかるの？
まじでおせーてｗ
0755デフォルトの名無しさんNGNG
しつけーな。
ここの住人じゃ説明できねえって言ってるだろ。
0756デフォルトの名無しさんNGNG
>754
2863
0757ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>752
そりゃ、通常使うメーラーがOutLookに設定されてるからだと思う。
OutLookExpressを通常使うメーラに設定してからもう一度やってみて。


>754
httpに関するのだったら↓
　HTTP/1.0　→　RFC-1945
　HTTP/1.1　→　RFC-2616
だと思う。
0758708NGNG
>>757 >>751
開けました！
よ、よ、よ、よ、よかったです！
たぶん、残りも大丈夫ですね。
ありがとうございました。ｍ（＿ ＿）ｍ
0759デフォルトの名無しさんNGNG
分割して送られてくる(ように見える)のはsocketの仕様なわけだし
トータルのバイト数が先に送られてくるか否かはHTTPの仕様だし
何がわからなくて騒いでるんだろうか
0760デフォルトの名無しさんNGNG
httpでgetを一回しただけで
icReceivingResponse 7 コントロールは、ホスト コンピュータからの応答を受信しています。
icResponseReceived 8 コントロールは、ホスト コンピュータからの応答を正常に受信しました。
を数回繰り返すのはなぜ？わたしにゃわからん。
RWINのサイズごとかな？
0761ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>758=708
おぉ、開けたんだ。良かったね。古い記憶だけで決め付けて
しまってｽﾏｿ。アドレス帳に登録もできたら報告してもらえると
ありがたいかも。

>759
そうだよね。でも、「仕様です」だとまた荒れ（ｒｙ

>760
MTUじゃないのかな？
要は、データ受信の１パケット受信ごとにイベントが発生して
いるんじゃないかと解釈してるんだけど。。どうでしょ？（^^；）
0762デフォルトの名無しさんNGNG
>>761
うんこしてきます。
0763デフォルトの名無しさんNGNG
半角のダブルコーテーションを全角にしたいのですが、ちょっと不明です。
Replace(text, """", "”")
だと大文字のダブルコーテーションを囲む文字と認識してエラーが出てしまいます。
Replace(text, """", "””")だとReplace(text, """", """")になってしまいます。
どうしたら良いのでしょうか？
VB6です。
0764デフォルトの名無しさんNGNG
ほな""”"では？
0765デフォルトの名無しさんNGNG
Text1.Text = Replace(Text1, Chr(34), ChrW(8221), , , vbBinaryCompare)
0766デフォルトの名無しさんNGNG
>>722
決まってる？

一般に、StateChanged イベントは、GetChunk メソッドを使用してデータを取得するかどうかを判断するために使用されます。
この判断を行うには、Select Case ステートメントを使用し、接続の状態が icResponseReceived (8) または icResponseCompleted (12) かどうかを調べます。

ただし、バッファにデータを格納しない操作が完了した場合でも icResponseReceived 状態になる場合があることに注意してください。
たとえば、FTP サイトとの接続の際、リモート サイトとの "ハンドシェイク" を行うだけで、データを転送していなくても、接続の状態は icResponseReceived になります。
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
ＭＳＤＮ引用
0767763NGNG
おおう、早速ありがとうございます。
なんとなく、キャラクタコードを使うのかなと思ってましたが、うまくいきました。
勉強になりました。
0768デフォルトの名無しさんNGNG
>>761
パケット毎ないんじゃないかな。
パケットはもっと下層の操作でinetコントロールでは完全にマスクされていると思われ。
パケットごとに
『 コントロールは、ホスト コンピュータからの応答を正常に受信しました』
なんていわれても困るしな。
ファイル毎かな。Inetコントロールのそこまでの細かい仕様は不明。
0769デフォルトの名無しさんNGNG
>>768
いやいやファイルごとは無い。
0770768NGNG
>>769
そうだよな、おいらInetコントロール使ったことないんだよ。(^^;
Wininet.dllでやってるもんんで、適当なレスつけてワリカッタ。
やっぱチャンク毎だよな、となるとInet.GetChunkをループで
回してるはず、自分でループ回してて、何で受信、応答が
パタパタするのがわかんねーんだ。
0771デフォルトの名無しさんNGNG
Win2k SP4+VB6.0 SP6で開発しています
ディストリビューション ウィザードで配布用の
パッケージを作ってインストールのテストを
やったところ
ファイルの更新をするのには再起動が必要ですと
表示されたので、ファイルの更新を行い
再度セットアップexeを走らせても
同じエラーが出ます

ググってsetup.lst書き換えたり
VB6.0 SP6のランタイムを入れてもだめです

他に何か対策方法は
無いでしょうか?
テストで使用したPCのOSは
WindowsXP PRO SP1
Windows2K SP3
です。
使用しているOCXは
InputMan Pro Ver.7.0J
SPREAD Ver.6.0J
です。
0772ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>771
経験上、ディストリビューションウィザードで作ったセットアップを
実行時に再起動を促されるので、多いのは「oleaut32.dll」か何か
のバージョンが関係していたことが多かったです。

開発機・使用機×２台、それぞれの「oleaut32.dll」のバージョンを
ココに書き出してください。

あと、CABファイルの中に「oleaut32.dll」は入っていますか？
0773デフォルトの名無しさんNGNG
oleaut32.dllのバージョンですが

開発機 2.40.4522.0
CABファイル内 2.40.4275.1(Supportの中のoleaut32.dllより)
2K 2.40.4518.0
XP 手元にないので不明
0774デフォルトの名無しさんNGNG
1つのシリアルポートRS232Cを使い、外部装置に２つのデータ（パルス「1/0」 ）を送るプログラムを作ろうとしております。
汎用的に使う場合、各制御線を自由に使うことができるとのことで、
Googleで検索し、ポートに関する情報を元にRS232Cの通信ソフトウェアをいじってみたのですが、
どうしてもRS232Cをパルス送信用として設定することができません。
どなたかお知恵を拝借できないでしょうか？
よろしくおねがいします。
0775デフォルトの名無しさんNGNG
手違いであげてしまいました。ご迷惑をおかけしてすみません。
0776デフォルトの名無しさんNGNG
>>774
外部装置とは？二つのデータとは？制御線のみ？
どんな設定してる？パルスの間隔はどうやってやってる？
通信ソフトウェアとは？
0777ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>773
うーん。とりあえず手元にあるwin2kは、アドミンでログインしてる？
oleaut32.dllの入れ替えにはアドミン権限が必要だと思うので。

もしアドミンでも出るなら、再起動を促すメッセージに何かもっと
詳細なことは書いてない？書いてあるなら晒してみてください。
0778デフォルトの名無しさんNGNG
なぜVSIを使わないんだ！
0779デフォルトの名無しさんNGNG
>>776
説明不足ですみません。
ステッピングモータをパソコンで制御して回そうとしております
ステッピングモータを制御するためにA,A￢,B,B￢のパルス(1/0)が必要なのですが、
NOT回路を入れることでA,Bの2つのパルスで制御できるようにできました
この二つのパルスを１つのデータとしてRS232Cで送信した場合、受信側でそのデータをAとBに振り分ける新しい電子回路を作る必要があります

RS232Cについて調べた結果、汎用として使う場合、各ピンの制御線は普通のI/Oとして使えるという情報を得たわけです
そこで、制御線のピン１のDCDやピン4のDTRを使用しパルスを送れないかと考え、
Vectorで拾えるRS232C系のソフトウェア（Ex.Nakと言えない日本人)や「Vbと製作で学ぶ初めてのパソコン応用工作」に書いてある通信ソフトウェアをいじってみたのですが、
２つの制御線からそれぞれのパルスを出すことができません

HALCONというソフトウェアも使用していますが、説明書を見てもよくわからず、現在手におえないソフトウェアです
いろいろソフトウェアにはみましたが、汎用I/Oの仕方がわからなく
お知恵を拝借しにきたわけです。

パルスの間隔は、PC側でディレイをおいて送信することで指定した一定の間隔でパルスを出すことができると考えました
必要があれば１からでも作るつもりでなので、よろしくおねがいします
0780デフォルトの名無しさんNGNG
>>779
制御線のパルスが出ないというのはどうやって確認をしました？
0781デフォルトの名無しさんNGNG
PCIのI/Oボード使った方が速そうだな。
0782デフォルトの名無しさんNGNG
RS-232C使うのは、予算の関係なの。
0783デフォルトの名無しさんNGNG
>>777ｻｿ
権限アドミン与えられています

メッセージには詳細なことが乗っておらず
「ファイル更新には再起動が必要ですファイルを入れますか?」
の一点張りです


ちなみに
「ファイル更新には再起動が必要ですファイルを入れますか?」で
ファイル更新をしてリブートかけて
exe走らせるとmfc42.dllを入れようとした後に
「ファイル更新には再起動しが必要です再起動しますか?」が出ます
0784ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>783
うーん、そうですか。ん？mfc42？VCですか？

ｺﾞﾒﾝ。分からないです。で、ｸﾞｸﾞってみました。
とりあえず、もしまだ試してみなければ、どうぞ↓
ttp://support.microsoft.com/default.aspx?scid=kb;ja;255516
0785デフォルトの名無しさんNGNG
>>780
まだ一つの制御線からパルスを出すところまでいっていないのが現状です
どの関数をいじり、どのようにしたら各制御線からパルスを出せるのか模索しております

もしこの問題が解決した場合、「シリアルエンペラー」というポートからの情報をチェックするソフトウェアで
チェックしようと考えておりました

>>781-782
I/Oボードというのは考えていませんでした
金額が高いものなので、上の方に相談したところ
「買ってもいいがRS232でがんばってみろ」とのことでした

ひとまず、RS232でがんばってみようとおもいますので
またお知恵をよろしければお願いいたします
0786デフォルトの名無しさんNGNG
>>785
模索も何も、、、
MSCOMM貼ってOpenして信号ON/OFFするだけじゃないのん？
プロパティやMSDN見ればどれをいじればいいかわかるだろうし、
232Cの信号線の電圧とモータの仕様書の電圧が合うかやリレー入れるかや(ry
0787デフォルトの名無しさんNGNG
XP VB6.0
webbrowserで起動させているswfのフラッシュ側で使われてる変数を
VBの方で使う事って出来ますか？
0788デフォルトの名無しさんNGNG
>>787
直接VBからFlashのコントロールで読み込んでいるなら説明はあるな
ttp://www.macromedia.com/devnet/mx/flash/articles/flash_vb.pdf
0789ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)NGNG
>787
経験からだけで回答させてもらうと、工夫すればやり取りはできます。
>788さんの通り、FSCommandを使ってVB<->SWFでイベント起こして
引数で渡してあげればいいです。

でも、Webbrowserコントロールを使うのなら、もう少し面倒になって、
MSHTML.TLBのHTMLBodyを使って、Webbrowserコントロールの
イベントを認識させてあげる必要があります（WithEvent付けてね）

要するに、

Form(Webbrowser)からFSCommandでSWFへ要求コマンド送信->
SWF側で要求された変数内容をWebbrowser側へ返信->
Form(Webbrowser)で受信ｳﾏｰ

・・・と、なります。もしかしたらHTML内にスクリプト埋めた方がいいかも。
あ、HTML側で必ずSWFに名前(ID)付けてね。　かなり大雑把でｽﾏｿ
0790デフォルトの名無しさんNGNG
どうしても答えが見つからなかったので初めて質問します。。ちょっとドキドキ。

株価を蓄積したCSVファイルから
ローソク足チャートを表示するプログラムを作ろうとしています。

検索したところ全く見当たらなかったので
ローソク足が表示できるようなチャートライブラリをご存知の方はいませんでしょうか。

一応有料のものを見つけたのですが
値段が厳しいです。。
http://www.hellosystem.co.jp/hello/FX50.html
0791790NGNG
すみませんバージョンを書き忘れました

VB6　SP6です。
0792デフォルトの名無しさんNGNG
Vectorあたりで見たことあるような気もするけど
ただローソク足書くだけなら探してる時間でLineとかで書くの組めたんじゃねーの？
0793790NGNG
>>792
レスありがとうございます。

私もVectorで見つけてこれだ！と思ったのですが
.netのみ対応だったので泣けますた。

Lineで組めるんですか。。。
私には無理でつ・・・。
0794デフォルトの名無しさんNGNG
>790
Excelはめこんだら？
0795デフォルトの名無しさんNGNG
>>790
Excelのグラフで書いたことあるよ。
そのものずばりの機能もあるけど(株価チャート)
散布図のグラフを使ってゴリゴリやったな。

大抵はLineで事足りるとおもうけど
株価のチャートは見る人によって求められるのが違ってくるんで
なんでも書けるようなやつは有料になっちゃうのかもね。
0796デフォルトの名無しさんNGNG
>>785
プリンターポートを使った方が楽かも。
いずれにしてもVBだけでは無理、CのDLLは必要。
ON/OFFにはフォトトライアックを使うんだな。
0797デフォルトの名無しさんNGNG
>771
SPREADのCDにもともと入ってる古い
バージョンのmsvcrt.dll, mfc42.dllを
キットにいれて回避したことがあるよ。
SpreadのOCXがぎりぎり動作する
もっとも古いバージョンであれば
再起動かからないのかも。
0798デフォルトの名無しさんNGNG
>>797ｻｿ

キットに入れて回避するときは
system32にインスコするように設定するんですか?
それともアプリが格納されるフォルダに格納するように
設定するんですか?
0799デフォルトの名無しさんNGNG
MSFlexGridを使用しています。
SelectionMode = 1 '行選択
にしています。

このとき3行目を行選択状態にしたい場合
どのようにコーディングすればよいでしょうか？
0800708NGNG
>>799
つ ttp://www.bcap.co.jp/hanafusa/VBHLP/MSFlexNO6.htm#itigyou
0801デフォルトの名無しさんNGNG
>>800
さんくす。
にしても、めんどくさー
0802デフォルトの名無しさんNGNG
>>786,796さん
ありがとうございます。
皆様から頂いた情報を元に、一つ一つ試してみます
基となるMSCommについて知識が無かったので、MSDNからの情報を見て学んできます

皆様の手を煩わせる質問をすることがないよう努力しますが、
それでもまた躓いた時には御支援頂けるようお願い申しあげます
0803デフォルトの名無しさん05/01/17 00:46:40
ToolHelp32のAPIを使って動作中のプロセスを取得し、そのプロセスIDを使って
以下のようなプログラムで指定メモリアドレスの内容を書き換えようとしているのですが
WriteProcessMemoryでFalseが返ってきてしまっています。

opPID = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, 0, MainPID)
bool = WriteProcessMemory(opPID, MemAdd, 1024, 4, dwWrite)
CloseHandle (opPID)

一緒に使っているReadProcessMemoryは問題なく動いているのですが、Writeの方は
どこが間違っているのかすら判っていません。
どなたかご教授お願いできませんでしょうか？
当方、Win2k上で開発しています。
0804デフォルトの名無しさん05/01/17 21:50:40
>>803
第3引数の1024って何だ？
第3引数は書き込むデータが格納されたバッファへのポインタだと思うが。
0805デフォルトの名無しさん05/01/17 21:58:09
WindowsXPです。
Visual Basic6をインストールしようとすると

D:acmboot.exe 起動時のエラーです

と表示されてインストールできません。。。
もしやウイルスに冒されてるんでしょうか？･ﾟ･( ﾉД｀)･ﾟ･
0806デフォルトの名無しさん05/01/17 22:32:16
acmboot.exeというファイルがあるので直接起動
してください。
0807デフォルトの名無しさん05/01/18 11:06:29
Private Sub Mandoxe()

On Error GoTo Err_section

Routine:
/*/*/本処理/*/*/


Err_section:

If Err = -2147467259 Then
/*/*/ちょろっと処理/*/*/
GoTo Routine
End If

End Sub

上のような感じでエラー発生したらあるエラーのときだけちょろっと処理してやり直させたいんですけど、
2回目のエラーでシステムからエラーダイアログが出てしまうんですが、On Error GoTo って1走行で2回は発動しないんですか？
0808デフォルトの名無しさん05/01/18 11:08:59
>>807
On Error ステートメントのヘルプを熟読して下さい
0809デフォルトの名無しさん05/01/18 11:19:03
あ、自己解決しますた。
Resumeなんていうのがあったんだ･･･。
>>808愚問勘弁です。

0810デフォルトの名無しさん05/01/18 13:42:44
Type guha
foo as long
bar as long
zzz as string
End Type
Dim ct as guha
guha.foo = 0
構造体を初期化したいのだがいいこいっこやるのはまんどくさい
Memsetのような関数きぼんぬ
0811デフォルトの名無しさん05/01/18 14:18:22
第８カラムから変数の宣言すんのやめてほすぃ
プロジェクトごとにデータディビジョン風な外部変数大量に宣言すんのやてめほすぃ
インデントを３、７、１２の単位でとるのやめてほすぃ
0812デフォルトの名無しさん05/01/18 14:42:33
うわぁぁ処理ごとにラベルがついているぞ
GOTOの嵐だ、だ、だ
変数全ぶおおもじだぁぁ
081378705/01/18 15:17:50
アドバイスありがとうございました｡
で､関連のページをいろいろ見ててのShockwaveflashを使うらしいので
コンポーネントでこれを追加してフォーム上に配置しようとすると
すぐにwindowsのエラーが出て強制終了されるんですが．．．
何か環境がないとShockwaveflashをVB上で使えないのでしょうか？
081481205/01/18 15:31:26
>>813
IEはめこんんだら？
0815デフォルトの名無しさん05/01/18 16:07:44
質問です。
Winsockを使ってサーバーと通信するプログラムを作っています。
PCに複数のネットワークカードがある場合、どちらかを指定して
通信することはできるでしょうか？ルーティングテーブルが関係
していそうだということまではわかったのですが。。。
0816デフォルトの名無しさん05/01/18 17:51:12
>>815
IPアドレスを指定した時点で選択してるでしょうか。
それが理解できてないなら、２枚差なんてしてはいけません。ｗ
TCP/IPの基礎から勉強すること。
081781605/01/18 18:16:40
かくいう私もサッパリ分かっていないのですが。ｗ
0818デフォルトの名無しさん05/01/18 18:20:26
質問です。初心者です。

RetVal& = GetUserName(str, Len(str))

の、RetVal&ってどういう意味があるんですか？
サンプルをコピったんですが、戻り値だと思い、RetVal& =っての消し
たら実行エラーがでます。。
あと、RetVal& =を、Callとすると実行エラーなくなります。
このなぞを教えてください。
0819デフォルトの名無しさん05/01/18 18:25:52
>>818
文法。
ヘルプちゃんと嫁。
0820デフォルトの名無しさん05/01/18 18:44:39
すみません。
ヘルプみたら分かりました、お騒がせしました。
戻り値を使わない場合は()つかっちゃだめなんですね。
082181805/01/18 18:45:53
820は818です。
0822デフォルトの名無しさん05/01/18 18:46:46
WebBrowserコントロールをフォームに貼り付けて
.navigateメソッドでホームページを表示しようとしても
「ページを表示できません」になってしまいます（T▽T）

何が原因か教えてください。
お願いします。ｍ（＿ ＿）ｍ
0823デフォルトの名無しさん05/01/18 19:05:22
>>822
指定しているURLは、IEでは開けるURLですか？
082482205/01/18 19:06:57
開けますよ。。。
082582205/01/18 19:26:42
>>823
普通、ＩＥで開いてるのをそのままコピーして
navigateすれば開きますよね？
0826デフォルトの名無しさん05/01/18 19:41:40
>>825
それはどうかな。
0827ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/18 19:41:50
そこで、navigate2 ですよ。
0828デフォルトの名無しさん05/01/18 19:42:31
>>825
プロキシの設定は？
082982205/01/18 19:53:40
>>827
ダメでした。。。orz

>>828
ルータを使ってるんですけど、何か設定ありますか？
0830デフォルトの名無しさん05/01/18 19:57:39
>>829
あるだろうねぇ
083182205/01/18 20:00:34
>>830
教えてください　ｍ（＿ ＿
083282205/01/18 20:01:22
あーっ！失敗してる・・・

教えてください。　ｍ（＿ ＿）ｍ
0833デフォルトの名無しさん05/01/18 20:02:01
>>832
現状のソースは？
083482205/01/18 20:04:10
>>833
つ
　Private Sub Command1_Click()
　　WebBrowser1.Navigate "http://www.yahoo.co.jp/"
　End Sub
083582205/01/18 20:09:04
>>833
普通、こんなんでエラーでませんよね。。（T▽T：)
0836デフォルトの名無しさん05/01/18 20:09:06
>>834
そのまま貼り付けたら動いたよ。てことで解決でいいね。
0837デフォルトの名無しさん05/01/18 20:19:08
>>816
言葉が足りませんでした。ローカルのPCにネットワークカードが２枚ある場合、
そのどちらかを指定してConnectすることはできるでしょうか？
具体的には、無線LAN(192.168.0.4)と有線LAN(192.168.1.5)がローカルにあり、
有線LANがサーバーにつながっています。単純にConnectすると無線LANの
方を使用してしまいます。
083882205/01/18 20:20:45
>>836
えーっ、ネット環境はどんなですか？
0839デフォルトの名無しさん05/01/18 20:42:41
>>817
てめー、かってに名乗るんじゃねーよ。
この板ID導入したほうがいいよな。
0840デフォルトの名無しさん05/01/18 20:46:55
>>839
わるいわるい。でも内容は合ってるでしょ。
0841デフォルトの名無しさん05/01/18 20:52:38
>>840
何が？
>>815の回答は816に１行目でかいてるじゃん。
理解できなかった？

最近阿呆な質問しておいて、茶化す馬鹿が多いからね。
0842デフォルトの名無しさん05/01/18 20:55:16
>>841
ちっがうよー。なんでお前がキレるんだよー。
0843デフォルトの名無しさん05/01/18 20:56:10
>841
そうじゃねぇだろ。よく読めよ。誰もお前には
からんでないぞ。
0844デフォルトの名無しさん05/01/18 23:06:45
すみませんが誰か教えて下さい。

フォームにコマンドボタンを３つコントロール配列にして配置しました。
オブジェクト名はcmdEtcです。
このコントロール配列をプロシージャの引数として渡したくて
次のようなコードを書いたのですが、「型が一致しない」というエラーがでました。

sub form_load( )
call caption_set( cmdEtc )
end sub

sub caption_set( ByRef cmdEtc( ) As CommandButton )
Dim i As Long
For i = 0 To 2
cmdEtc(i).caption = Cstr(i)
Next i
End Sub

質問１：コントロール配列は、プロシージャの引数として指定できないのでしょうか？
質問２：もし引数に指定可能ならば、どのようにすれば良いのでしょうか？

どなたか教えて頂けないでしょうか？
0845デフォルトの名無しさん05/01/18 23:15:25
>844
配列の添字(index)を渡せば？
0846デフォルトの名無しさん05/01/18 23:17:46
>>845
配列の添え字(index)を指定して、どれかを特定するのではなく
ボタンのコントロール配列全体を渡したいんです。
どうかよろしくお願いします。
0847デフォルトの名無しさん05/01/18 23:37:03
>>846
できひん
３回まわしたら？
0848デフォルトの名無しさん05/01/18 23:37:50
>>844
cmdEtc As Objectで
0849デフォルトの名無しさん05/01/19 00:04:36
これだからＶＢは
0850デフォルトの名無しさん05/01/19 00:30:11
ステキよね♪
0851デフォルトの名無しさん05/01/19 00:50:03
cmdEtc As Control で
0852デフォルトの名無しさん05/01/19 01:09:43
簡単な一週間の予定表作成ソフトのようなものを作りたいのですが、
http://www.studio-extend.net/soft/eap.htmlのように
・自分で文字を打ってイメージに反映
・それを印刷
をするためには、何をどうしたらいいんでしょうか…？
0853デフォルトの名無しさん05/01/19 01:38:55
>>852
何をどうしたらいい・・・って、その質問の仕方だと叩かれちゃうよ。
今の状態だと、回答が得られてもそれを理解するのに苦労しそうだし、
もう少し具体的な質問が出来るようになるまで、
参考書を買うなりして基本的なことから勉強したらどうかな。
0854デフォルトの名無しさん05/01/19 02:10:19
>>854
わかりました～
出直してきます。
0855デフォルトの名無しさん05/01/19 15:38:42
ＶＢ6.0をwinXPで使ってます

Ａ÷Ｂ^2　という計算をさせたいのですが、
どうやって計算させればいいでしょうか？

Ｂ^2　だけなら　Ｂ*ＢでＯＫですが、前に割り算があるので
Ａ÷Ｂ*Ｂじゃダメですし、かといって
Ａ÷(Ｂ*Ｂ） だと計算されませんでした
Ａ÷Ｂ^2　でも無理でした

一旦、Ｂ*Ｂをやっておいてから
計算結果をCに入れて　A÷Cって方法もあるでしょうけど、
手間が増えて重くなるか心配です
もっとスマートに計算する方法は無いでしょうか？
0856デフォルトの名無しさん05/01/19 15:41:23
>855
全角文字使うな危険
085785505/01/19 15:45:14
>>856
(,,ﾟ∀ﾟ)ｴッ・・・

あっ
ソース内では半角で書いてますです
誤解するような書き込みｽﾏｿ
0858デフォルトの名無しさん05/01/19 15:48:33
割り算の記号は/
085985505/01/19 15:50:36
補足；

(Text1.Text)がＡ
(Text2.Text)がＢ
picture1に表示したいんです

Ａ÷Ｂ^2がしたいのですが、無理だったので
現在はＡ÷Ｂの状態
この状態でＡ÷Ｂに不具合は無いようです

Private Sub Command1_Click()
Picture1.Print Format((Val(Text1.Text) / Val(Text2.Text)), "###")
End Sub
0860デフォルトの名無しさん05/01/19 15:56:05
Valの返値が0かもしれん。要チェック
0861デフォルトの名無しさん05/01/19 16:00:02
とりあえず、各命令を分解することだろ？
言語の問題じゃなく、問題に対するアプローチというか・・・の問題。

文字列数値変換が上手くいってるのか？
割り算がOKか？
数値文字列変換はOKか？
文字列の画像表示はOK？

その４つを１行にしたままで、あんたは問題解決できるほど偉いんかと・・・。
086285505/01/19 16:08:17
（;´Д⊂ヽ

textには数字しか入らないようにしてあります

今の状態(>>859)でＡ、Ｂに数字を入れてｺﾏﾝﾄﾞﾎﾞﾀﾝをクリックすると
ちゃんと割り算の答えがpictureに出てくるのでVal関数で数値化されてると思われます

参考テキストに足し算の方法があったので
その通りに打ってちゃんと足し算されてることを確認してから、+を/にしただけです
割り算もちゃんとされてます
0863デフォルトの名無しさん05/01/19 16:15:40
>862
カッコがたくさんあると見づらい。b*bをどこかに代入しろ
086486105/01/19 16:16:14
>>861
プログラムの話をしているのに、偉い・偉くないなんて
言葉を使ったのは喧嘩を売ってるから。
精神年齢が小学生並なんです。許してください。
086585505/01/19 16:22:38
>>863
やっぱりここは素直にCに代入すべきですか

ｲﾝﾀｰﾌﾟﾘﾀ型なので遅くなるかと思ってましたが
気にするほどではないですよね

ありがとございました
0866デフォルトの名無しさん05/01/19 16:28:01
本物の８６１だが。B*Bはオーバーフローしないのは確認済みか？
この場合、変換後の型がVB任せで不明確なVAL関数ではなく、
CLngなりCDblを使うべきだと思うが。

それから。８６４は死ね。
0867デフォルトの名無しさん05/01/19 16:40:05
>>866
自殺？
086885505/01/19 16:43:42
ヽ（`Д´）ﾉ ｳﾜｧｧｧﾝ
ｺﾞｯｺﾞﾒﾝﾅｻｰｲ（;´Д⊂ヽ

>>866
オーバーフローって
3 コンピューターで、四則演算の結果が、レジスターなどで取り扱う範囲の桁(けた)を超えること。桁あふれ。
ってことですよね

心配になって割り算結果が複数桁になるようにやったら無理だったので
format関数の表示書式指定文字列を弄ったりしたりしました

あと、Bに入れる数字が百で割るべきだったのに割らずに入力してるというミスも発覚です

もうどうしようもないミスで迷惑かけてｽﾏｿです
ごめんなさい
ありがとうございました
0869デフォルトの名無しさん05/01/19 16:46:59
氏ね
087085505/01/19 16:48:35
>>869
ﾏｼﾞでごめんなさい

逝ってきます
0871デフォルトの名無しさん05/01/19 16:58:13
>>868
861と866は私です、他はしらん。
オーバーフローはそれであってます。

VAL関数をヘルプで見てもらえば判りますが、任意の型への変換となっています。
この場合、BがIntegerになった場合、Integer同士の掛け算になるんですが、
その結果がIntegerの範囲を超えるとVBではオーバーフローだったような・・・。（うろ覚えです）

とりあえず、速度のことは考えずに分解してやるべきだと思います。
その上で速度を上げる為に少しずつ端折っていくのが手順ってものでしょ。
087285505/01/19 18:51:27
>>871
ありがとうございました

そうですね
BASICで打ってたときは一個一個やって
あとから理解にあわせて組み合わせたり端折ったりしてました

VBでいきなり端折って速度気にして焦って意味不明な状況になったので
初心に帰って一個一個確実に処理させてみます
お世話になりましたです
087387105/01/19 19:52:35
たいした回答もできないのでもう書き込むのやめます。
すいませんでした。
087482205/01/19 20:07:13
（´・ω・｀）
0875デフォルトの名無しさん05/01/19 22:28:52
VB5です。
クリップボードの文字列をGoogleで検索するようにしたいんだけど、
そこらのソース貼ってもUTF8に変換されない。。
何で仕様が変わったんだよ＞Google
0876デフォルトの名無しさん05/01/19 22:34:58
>>875
ここはあなたの独り言を投稿するところではありません。
0877デフォルトの名無しさん05/01/19 22:37:17
>>876
すまん、チラシが無かった。
0878デフォルトの名無しさん05/01/19 22:38:23
>>877
謝ればいいんだよ。
0879デフォルトの名無しさん05/01/19 22:53:47
WebBrowser1.Navigate "ht" + "tp://www.google.co.jp"

Do
    DoEvents
Loop While WebBrowser1.Busy

With WebBrowser1.Document.forms("f")
    .item("q").value = "ここはチラシの裏"
    .submit
End With
0880デフォルトの名無しさん05/01/20 01:36:34
アプリの偽ロード画面を作るためHDDを少々カリカリ言わせたり
HDDのアクセスランプを点滅させたりしたいのですが
どういう風にすればよいでしょうか?APIがあったら教えてください
0881デフォルトの名無しさん05/01/20 01:48:32
>>880
バカか。
0882デフォルトの名無しさん05/01/20 11:45:26
>>880
ワロタｗ。モテモテになるAPIとかあったら教えてくださいｗ
ジョークソフトとかは技術とセンスの両方がそろってから作れ。
088382205/01/20 12:39:45
（´・ω・｀）
0884デフォルトの名無しさん05/01/20 13:31:37
VB5で作ったPJはVB5がインストールされているパソコンで開発して
VB6で作ったPJはVB6がインストールされているパソコンに席を移って開発している状態なんですけど
VB5とVB6の両方を同じパソコンにインストールできるのでしょうか？
また、別アプリとしてインストールできたとしてもランタイムに不具合が起こらないか心配です
神様、愚問ですが教えてください
0885デフォルトの名無しさん05/01/20 13:39:07
>>880
FindFirstFileなんかで無いファイルを探させるとか。
0886デフォルトの名無しさん05/01/20 13:43:12
>>884
ハードディスクをリムバブルにして開発環境によって入れ替えろ。

0887デフォルトの名無しさん05/01/20 13:55:22
又はOSをデゥアルブートにして切り替える。
HDDを差し替えるにしてもOSライセンスは２ついるんで注意。
0888デフォルトの名無しさん05/01/20 14:18:27
>>887
え！そうなの？
コンピューターが１台、使う人も一人ならいいんじゃない。



0889デフォルトの名無しさん05/01/20 14:27:11
>822
まだ出来ないのか？
「ルータを使ってる」としか藻前が環境を晒さないので、
これ以上は、アドバイスしようがないと思う。

通常のブラウザはIEか？違うならコントロールの方で
最低限のプロクシ設定などをしなければならないのでは？

どーしても原因をハッキリさせたければ、そのPC自体で
IISでも、Apacheでもいいから動かして、VBからのURLを
localhostとか、127.0.0.1とかにしてみろ。
それで見れれば、デフォルトゲートウェイとか、プロクシの
設定が原因だ。やれ。とにかく色々試してみれ。
089082205/01/20 16:05:54
>>889
じつは・・・、パーソナルファイアウォールに邪魔されてました（Ｔ▽Ｔ）
マカフィーの野郎・・・。
本当にお世話になりましたです。
ありがとう！ｍ（＿ ＿）ｍ
0891VB6@Win2k05/01/20 19:25:25
VB6でシステム全体のCPU使用率を最低0.1秒間隔で拾う方法は無いでしょうか。
ググッてもVB.NET用とWin9x用の例しか見つからなんだとです…
089288405/01/20 21:29:51
複数のパソコンがほぼ使用する人数と同じ数ですので、かわりばんこに使用するっていう
状況で、あまっているＨＤＤとかなくって貧乏なんです
0893デフォルトの名無しさん05/01/20 21:34:36
>>892
ライセンスに関してはMicrosoftに直接聞け。ウザいからここで聞くな。
0894デフォルトの名無しさん05/01/20 22:07:30
>>884
VB5で作ったプログラムは全てVB6でアップグレードしてしまえ。
貧しかったら、バイトで学生使って、アカデミアパックで開発させろ。
0895デフォルトの名無しさん05/01/20 23:50:14
VB6で○×ゲームを作れって言う課題を出されたのですが、コンピューターと対戦する方がまったくできないです。
人間同士の対戦の方はなんとか作れましたが。
基本的にどういう処理をさせたらいいのでしょうか？
caseごとにわけてやればいいのでしょうか？
0896デフォルトの名無しさん05/01/20 23:59:07
>>895
いわゆる Tic Tac Toe や三目並べですな。
C言語でのソースならいくらでも転がってるから、VBに移植なさい。
0897デフォルトの名無しさん05/01/21 00:18:36
>>896
VBで調べてもなかったものですから。。。
Cですか？探してみます。ありがとうございました。
0898デフォルトの名無しさん05/01/21 09:44:05
>891
QueryPerformanceCounter API
0899デフォルトの名無しさん05/01/21 19:42:23
つかCPU側の思考アルゴリズムを考える事がこの課題の肝なんじゃねーかと
思ったんだけど黙ってた方がよい？
0900デフォルトの名無しさん05/01/21 21:44:52
そうだね。アホ学生さんには言わない方がいいよ。
分かってて質問してるみたいだし。また荒れちゃうよ。

でも、宿題内容から学校は絞れるよね。
0901デフォルトの名無しさん05/01/21 22:05:47
>>899-900
自演は別に悪いことではないですが、今の場合は必要ありません。
0902デフォルトの名無しさん05/01/21 22:11:52
必死だな
090390205/01/21 23:45:21
オレがだけど
090490305/01/22 00:02:09
おれ漏れも
0905デフォルトの名無しさん05/01/22 01:03:51
じゃ俺も
0906デフォルトの名無しさん05/01/22 02:27:46
VB6でLineToを使って折れ線グラフを描くプログラムを作ってます。
Pictureの上ではなく、Formに直接グラフを描いてます。
ずっと何も問題はなかったのですが、ある時から折れ線が表示されなくなりました。
ただ、折れ線が描かれている部分を、他のウィンドウの後ろに一度隠して、
また見ると、描画されています。

折れ線が表示されていた時点のソースに戻すと、問題なく折れ線が表示されるので、
どの行を追加した時点で表示されなくなるか試したのですが、
どうやら特定の行ではなく、ある一定以上の量のソースを書くと
表示されなくなるようなのです。何かあるメモリの量を超えると起こるような…？

この状態を解決する方法、例えば描き終わったらDoEventsのような命令を入れるとか、
何かご存じの方がいましたらアドバイスをお願いします。
0907デフォルトの名無しさん05/01/22 02:29:54
>>906
書き終わったらRefreshかけたら？
0908デフォルトの名無しさん05/01/22 02:38:46
Refreshというメソッドがあるんですね(汗)。
会社のDBに繋げないとグラフを描くところまでいかないので、
今は試せませんが、これで上手くいきそうな感じがします。

ありがとうございました。

うぅー、業務でVBプログラム書くにはVB知らなすぎ…。
090982205/01/22 13:01:30
MAPIでOutlookExpressのメールを読むところまではうまくいったんです。
ですが、送信日が取得できません。。。orz

教えてください。
お願いします。ｍ（＿ ＿）ｍ
0910ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/22 13:55:49
>909=822
MAPIは 『受信日時』は取得できても、『送信日時』は得られません。
いや、マジです。独自でヘッダを分解するしか無いと思う。

091182205/01/22 15:19:43
>>910
いつもありがとうございます。ｍ（＿ ＿）ｍ

つらい・・・（T▽T；)
091282205/01/22 18:08:33
>>910
すいません。
ヘッダってどうやってみるんですか？
0913デフォルトの名無しさん05/01/23 20:27:00
あげぱん
0914デフォルトの名無しさん05/01/23 21:51:17
VB6のフォームデザイナで使われているWidthとかHeightの
単位って何なのでしょうか。
091591405/01/23 22:00:48
すいません。自己解決しました。
0916デフォルトの名無しさん05/01/24 04:44:12
しょぼい質問ですが・・・
文字列に " や　タブ(\t)を入れる場合はどうするのでしょうか？
"\t\"あああ\""
という感じにしてもできませんでした
0917デフォルトの名無しさん05/01/24 05:14:39
vb2005なのですが、質問スレも無いし多分勝手が一緒だと思うので
質問させてください

ユーザーコントロールに、窓の上にあるやつ(なんて言うんでしょうか…
左端にアイコンとタイトル、右端に最小化最大化終了が付いてるアレ)
は付けれるんでしょうか？
0918デフォルトの名無しさん05/01/24 06:37:00
>>916
二重引用符は""""
タブはvbTab
0919デフォルトの名無しさん05/01/24 06:37:41
>>917
VB.NET質問ｽﾚ (Part8)
http://pc5.2ch.net/test/read.cgi/tech/1102512868/
0920デフォルトの名無しさん05/01/24 08:04:20
919>>解決しました、ありがとう_(._.)_
0921822(909）05/01/24 11:58:41
ググってみてもわからないっす・・・orz

やっぱり、Outlookを使うしかないのか。。。
たしか、昔もいろいろ試行錯誤したあげく
OutlookExpress→Outlookにメールを移行したあとに
MDBにもってきたような気がします。
0922ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/24 16:03:28
>921=909=822
むかし泥沼ループにはまったので関わりたくないのですが :p

OEのメールデータファイル（DBX）を自前でOpenして中から
取り出すしかないでしょう。

DBXファイルのフォーマットは、
ttp://www.wotsit.org/
で、キーワードに　DBX　と入れれば出てきますのでDLして
読んでください。各項目のアドレスまで書いてあります。

多分、あんまりレスが付かないと思うので、あとは自力でｶﾞﾝｶﾞﾚ
0923デフォルトの名無しさん05/01/24 17:03:36
デザインライセンスについて教えてください
はじめ、あるパソコンにVBランタイムとプログラムがあって動いていましたが
そのパソコンでPGの修正をする必要がでてきて、VB5.0をインストールしたところ
基本的なコントロール（ボタンやテキストボックス）はツールボックスからフォームに貼り付け
できましたが、追加したSSTABコントロールやツリービューコントロールはデザインのライセンス
がありませんでした。さらの状態でパソコンにインストールするとデザインができないという
問題はないと思うのですがなにがいけないのでしょうか？
開発環境＝NT4.0、VB5.0です
0924９２３05/01/24 17:55:50
comctl.ocxやTabctl.ocxはVB5.0をアンインストールしてものこのっていましたので
手動でregsvr32で２つのコンポーネントを削除、登録しなおしてみたのですが効果は
ありませんでした。逆に動作が不安定になるばかり、あわててもとに戻せましたが
手動でコンポーネントをあれこれするのは怖いですね
頭ではVB5.0の開発環境をインストールしてしまえばランタイム？なるものは
上書きされてデザインもできると考えたのですがどうも勝手が違うようです
やさしい人教えてください
0925822(909）05/01/24 19:08:52
つ http://support.microsoft.com/default.aspx?scid=kb;ja;411156
0926822(909）05/01/24 19:10:31
>>922
ありがとうございました。ｍ（＿ ＿）ｍ

うーん、ＭＡＰＩでは無理なんですね（とほほ・・・
他のメーラーにも使えると思ったんですが。。。
0927822(909）05/01/24 19:34:36
>>925 は >>923 へのレス。
092892305/01/24 20:43:51
>>925
ありがとうございます。
0929デフォルトの名無しさん05/01/24 22:35:14
コントローラーの値の受け取り方を教えてください
0930デフォルトの名無しさん05/01/24 23:17:46
↑わけわからん。
Mr.マッスルの「イマスグココキテホシイ」に匹敵する不可解さ。
どんなカタワが書いてるんだが。
0931ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/24 23:35:43
>929
ttp://www.vector.co.jp/soft/win95/hardware/se310865.html
細かいことは作者さんのHPを読んでください。
0932デフォルトの名無しさん05/01/25 00:34:09
Str関数を使うと何故か前にスペースが入ってしまいます
str(50)　で　" 50"　ということなんですが
どうすればスペースを消せますか？
0933デフォルトの名無しさん05/01/25 00:44:26
>>932
+50の+がスペースになっているからだ
Trimでも使えばいい
0934ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/25 00:47:19
>932
Str関数の戻り値（文字列）の左に出る半角空白は、
「＋」の意味だったと思う。不要ならLtrimすれば？

っていうか、普通にMSDNとかにも書いてあるよ。
ヘルプを読むクセをつけると作業効率も上がるし。ｵｽｽﾒ
093593205/01/25 00:49:20
ありがとうございます
MSDNも読むんですが、なかなか見つからないし、よく分からないし・・・
へぼですいませんorz
0936デフォルトの名無しさん05/01/25 00:52:29
一番目のラベルにＡＡＡという名前をつけ、
コピーするとＡＡＡ（2）、ＡＡＡ（3）、ＡＡＡ（4）と名前がつきます。
このＡＡＡ（1）～（4）に値をいれたあと、同時にクリアする方法がないでしょうか？
（ＡＡＡ＝””といれたら、（1）～（４）が全部クリアされる感じのものです。）
0937デフォルトの名無しさん05/01/25 00:56:34
>>936
自分で作ってください。
0938デフォルトの名無しさん05/01/25 01:10:38
for i = 1 to 4
　AAA(i) = ""
next i
0939ｶﾞｯｶﾞｯ(ﾟ∀ﾟ)05/01/25 01:13:16
以下サンプル↓

Private Sub SetAAA(Str as String)
   Dim I   as  Long
   For I=1 To 4
       AAA(I).Caption = Str
   Next I
End Sub

で、

SetAAA ""

と書けば良い。Nullじゃなくても使えるし。
多分動くと思うよ。参考までに。
0940デフォルトの名無しさん05/01/25 01:13:43
う～ん、やっぱりForでまわすしかないですか…
ありがとうございました。がんばってつくります。
0941デフォルトの名無しさん05/01/25 02:19:05
http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/vblr7/html/vafctstr.asp
ちゃんと書いてあるじゃねーか。
Trimを知らなかったのなら仕方ないが・・・。これとて文字列関数を片っ端から見ていけば見つかるはず。
だからVBプログラマはバカにされるんだ（VB自体が悪いわけではない）。ヘルプぐらい読まないといけないぞ。
0942デフォルトの名無しさん05/01/25 07:18:26
>>930
なにが分からないの？
0943デフォルトの名無しさん05/01/25 08:15:25
＞コントローラーの値の受け取り方を教えてください
これで分かる方が神だと思うが。

あ、釣りか。
0944デフォルトの名無しさん05/01/25 09:40:32
VB6.0で
他アプリケーションのリッチテキストボックスの中の文章を取得する事はできますか？
又、できるとしたらどのようにすれば取得できますか？
0945デフォルトの名無しさん05/01/25 09:44:45
>>944
他アプリケーション側が中の文章を提供する機能（アプリケーション間通信）を
もっていないと無理。
0946デフォルトの名無しさん05/01/25 09:51:03
おいおい
0947デフォルトの名無しさん05/01/25 09:57:54
>>945
即レスありがとうございます。

対象となるアプリケーションにアプリケーション間通信は無いと思いますが、
定期的に内容を保存する機能がついているのでそれを定期的に読みだそうと思います。
APIのReadFileを利用してそのテキストを読もうと思いましたが、
ロックされたファイルはうまく読み込んでくれません。
ReadFileはそういう仕様なんでしょうか、それとも自分のやり方が悪いのでしょうか。

>>946
？
0948デフォルトの名無しさん05/01/25 10:25:36
SendMessage(Handle,WM_GETTEXT ・・・では取れなかったっけ？
0949デフォルトの名無しさん05/01/25 12:45:13
ファイルコピッてから開けばイイ
0950デフォルトの名無しさん05/01/25 14:05:58
>>948
調べてみました。
この方法で実装できそうです、ありがとうございました。
0951デフォルトの名無しさん05/01/25 14:32:28
SendMessage(Handle,WM_GETTEXT…
でリッチテキストを読み込もうとしてもエラーが発生します。
やはりリッチテキストは無理なのでしょうか…？
0952デフォルトの名無しさん05/01/25 14:37:39
何というエラーメッセージが出てるのかを書こうという気はないのですかな？
0953デフォルトの名無しさん05/01/25 15:23:06
エラーメッセージは発生しません。
メモ帳やTextBoxではちゃんと取得できた文字がNullStringになりました。
0954>>2905/01/25 22:19:26
ゲームパッドのボタンが押されたらイベントが起きるようにできないのでしょうか?
と言いたかったんですけど・・・
わかりにくくてすみません
本当に厨坊なんで・・・
スルーしていただいても結構です
0955デフォルトの名無しさん05/01/25 22:45:51
>>943
なにが分からないの？
0956デフォルトの名無しさん05/01/25 23:12:05
>>954
わからにくすぎｗ
joyGet～系のAPIでポーリングするか、
DirectInput使いな。
0957デフォルトの名無しさん05/01/26 13:02:59
VBでゲームパッドか。
孤高の漢が育つ予感
0958デフォルトの名無しさん05/01/26 13:03:00
おっすおめーら。
今日からVBプログラマーの第一歩を歩く僕がきました。
みんなよろしくね
0959デフォルトの名無しさん05/01/26 13:05:40
>>958
氏ね
0960デフォルトの名無しさん05/01/26 13:13:34
なんだと
0961デフォルトの名無しさん05/01/26 19:47:51
工業高校に通う高１です。今授業でVisual Basic の勉強を初めました。

円の半径ｒをテキストボックスから入力し、コマンドボタンをクリックすることで、
その円の円周の長さと面積をテキストボックスに表示するプログラム。

・・・という問題があるのですが予習をしようとしましたがわかりません。。
もしよろしければ↑のプログラムを教えてくださいm(__)m
ちなみに Visual Basic6.0です。
よろしくお願いします。
0962デフォルトの名無しさん05/01/26 19:50:19
ひさしくVBやってないからなぁ
わかんね
0963デフォルトの名無しさん05/01/26 19:50:58
Dim r As Double
r = CDbl(Text1.Text)
Text2.Text =CStr( r*2*3.14)
Text3.Text = CStr(r*r*3.14)
0964デフォルトの名無しさん05/01/26 19:51:22
ほぅ・・・やるじゃない963
0965デフォルトの名無しさん05/01/26 19:53:47
ゆとり重視の時代に3.14なんていう神経質な数字を使うなんてナンセンス
0966デフォルトの名無しさん05/01/26 19:54:38
十分じゃないな、俺には見えなかった
0967デフォルトの名無しさん05/01/26 19:55:36
ゆとり教育は終わったよ
0968デフォルトの名無しさん05/01/26 19:55:54
>>965
じゃ、無く、どのように動いてるのかがOSとはいえ教えるのが教育
0969デフォルトの名無しさん05/01/26 19:56:11
VBやろうとおもったけど手つけてねー
やっぱやろうかな
おまえらどう思う？
0970デフォルトの名無しさん05/01/26 20:06:31
>>969
考えるな、感じろ。
097196105/01/26 20:07:49
>>963
ありがとうございます！！

あと２つわからないのがあるのですが教えてもらえると助かります。

ビール(633ml,アルコール含有量6％)をｘ本、
日本酒(アルコール含有量16％)をｙ〔ml〕飲んだ。
このとき摂取したアルコールの量を決めるプログラム。
ｘ本、ｙ〔ml〕、および結果はテキストボックスを使い、
コマンドボタンを押すことにより計算する。

三角形３辺の長さa、b、cをテキストボックスより入力し三角形の面積sを求め、
コマンドボタンを押すことにより結果をテキストボックスに表示するプログラム。

いろいろすみません。。
お願いしますm(__)m
0972デフォルトの名無しさん05/01/26 20:08:39
調子にのるなよ小僧
2度はない　2度は無いのだよ
0973デフォルトの名無しさん05/01/26 20:13:12
まったく
ちこごろのがきは・・・
0974デフォルトの名無しさん05/01/26 20:14:34
うはｗｗｗｗｗｗｗｗｗｗｗじじくせｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
宿題おわんえーよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗうぇうぇｗｗｗｗｗｗっうぇｗっうぇ
0975デフォルトの名無しさん05/01/26 20:16:41
こういう、課題はいいな、物資を提供しろ
0976デフォルトの名無しさん05/01/26 20:19:45
こちら工房なんですが、現在、課題研究なる授業で
ＶＢでのゲーム製作をしてます。
それで、５日後に発表しなくてはならないんですけど
全然できてません。

そこで、如何にもＶＢ初心者が作ったような
（できれば３Ｄアクション）ゲームをうｐしていただけませんか

検索しても、クォリティの高いのしか見つかりません
どうか、おながいします
0977デフォルトの名無しさん05/01/26 20:21:05
>>976
馬鹿にすんな！
0978デフォルトの名無しさん05/01/26 20:22:04
>>976
Msgbox
0979デフォルトの名無しさん05/01/26 20:23:25
>>977
バカにしてません
スレ違いでしょうか？
他力本願厨は嫌ですか？
0980デフォルトの名無しさん05/01/26 20:28:00
それは流石にアフォでしょ、そんなプログラマがいるから
デザイナーとか絵描きに舐められるんだよ腹立つ。根性出せよ
098196105/01/26 20:29:40
すいません。
俺Visual Basic 全然わかんなくて何度も聞いてしまいました。
これでも少しずつ勉強しているのですが
さっき上に書いたほうのプログラムが自分でも考えたのですがわかりません。
勉強不足なのは十分承知ですが
上の２つ教えていただけないでしょうか？
よろしくお願いします。
0982翻訳機05/01/26 20:35:08
すいませんね。
俺Visual Basic 全然やるきしないし何度聞いても答えるｵｯｻﾝいるし
少も勉強せずにいけるなって思ってた。
さっき上に書いたほうのプログラムもどっかのｵｯｻﾝに聞いたんだけど。
勉強する気ないのはVBなんて糞言語必要ないからね
上の２つ教えてよ？
どうせ暇なんでしょ？
0983デフォルトの名無しさん05/01/26 20:36:18
>>981
式はわかってるのかな？
098496105/01/26 20:52:38
式はわかります。
0985デフォルトの名無しさん05/01/26 20:56:17
>>984
書け。
098696105/01/26 21:20:23
遅くなってすみませんm(__)m
１つ目のやつは

ビール　633×0.06(アルコール6%)=37.98 ←ビール一本分のアルコール量
　　　　　　　　↓
　　　　37.98ml× Ⅹ(本数)

日本酒　0.16(アルコール16%)× ｙ(ml)=0.16y ←日本酒のアルコール量


２つ目のやつは

Ｓ(面積)＝√s(s-a)(s-b)(s-c)


です。
よろしくお願いします。
0987デフォルトの名無しさん05/01/26 21:24:47
ちょと、こっちに酒が足らない
098896105/01/26 21:27:07
え？？
0989デフォルトの名無しさん05/01/26 22:05:54
ⅩよりもΧのほうが素敵
099096105/01/26 22:08:33
これからはΧにします。
0991デフォルトの名無しさん05/01/26 22:26:32
もうすぐ終了
099296105/01/26 22:27:46
どなたか教えてくださいm(__)m
お願いします。
0993デフォルトの名無しさん05/01/26 22:33:27
もうすぐ閉店の時間で～す♪
0994デフォルトの名無しさん05/01/26 22:37:21
あら、お客さん。まだいたの？
もう閉店なんだけど
0995デフォルトの名無しさん05/01/26 22:39:29
な～んだ、簡単な算数の問題じゃないか。悪いけど帰った帰った
0996デフォルトの名無しさん05/01/26 22:58:47
質問者は早く新スレ立てろ！
0997デフォルトの名無しさん05/01/26 23:00:45
1000Getなら嫁のおっぱいどうしようかな
0998デフォルトの名無しさん05/01/26 23:01:48
３！
0999デフォルトの名無しさん05/01/26 23:03:39
１！
1000デフォルトの名無しさん05/01/26 23:11:28
ＩＯＯＯ
1001１００１Over 1000Thread
このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。