(*´д`*)ｱﾊｧ… VB初心者質問スレ Part22
■ このスレッドは過去ログ倉庫に格納されています
0001HTML化チェック済み
NGNGPart12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
Part20 http://pc2.2ch.net/tech/kako/1041/10418/1041879465.html
Part21 http://pc2.2ch.net/test/read.cgi/tech/1044028945/
VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
0151デフォルトの名無しさん
NGNG0152149
NGNGありがとうございます！！
そういう手も考えてはみたのですが、
何せものすごい初心者なもので…。
その、同期を取るのをどうしたらよいかがわかりません。
本にも載ってないしヘルプファイルも参照できない状態なので、
どうか教えていただけないでしょうか？
宜しくお願いします。
0153デフォルトの名無しさん
NGNGヘルプないなら、MSDNオンラインを利用すれ。
ttp://www.microsoft.com/japan/msdn/library/
ちなみに同期を取るとは、下記みたいな感じ。
あんまり答えモロは書きたくないが、簡単すぎるのでたまにはまんま載せてみた。
Private Sub Command1_Click()
If Text1.Visible = True Then
Text2.Text = Text1.Text
Text1.Visible = False
Text2.Visible = True
Else
Text1.Text = Text2.Text
Text1.Visible = True
Text2.Visible = False
End If
End Sub
0154デフォルトの名無しさん
NGNGsub メニューを押した
if text1.visible then
text2.text = text1.text
text2.visible = false
text1.visible = true
else
'反対のことをする
end if
end sub
こんな感じー。
つーか漏前、なんでヘルプが無いんだYo!
0155デフォルトの名無しさん
NGNG0156デフォルトの名無しさん
NGNG割れ物でMSDNのディスクがないと思われ。
0157149
NGNG何から何まで本当にありがとうございます！！
今度からMSDNオンラインを見てみますね！！
それでもわからなかったらまたよろしくお願いします。
>>156
その通りなんです…
0158デフォルトの名無しさん
NGNG割れ厨かよ。答えなきゃ良かった。氏ね。
0159デフォルトの名無しさん
NGNGMSDNみれないんだじょ。マイクロソフトのサイトみてますが。
これぞ本物の「割れ」・・・・
0160デフォルトの名無しさん
NGNG通報ｽﾏｽﾀ
>>159
MSのサイトで交換の受付ってなかったっけ…。
あっても、今更古いMSDN来ても困る罠。
MSDN付.net買うが宜し。VS6用も入ってるでしょ。
0161デフォルトの名無しさん
NGNGVB6のプログラム作成ソフトってフリーで落ちてないんですか？
0162デフォルトの名無しさん
NGNG頭大丈夫？
0163デフォルトの名無しさん
NGNGモデラーのこと言ってんのか？
どっちにしろ、自分の考えを表現するためには、
作成ソフト自体を自作しなければ難しいぞ。
0164ひきプロ
NGNG無理矢理EXEを作成するとかいう裏技ありましたね
0165デフォルトの名無しさん
NGNGソースだけならメモ帳でも書けるぞ
0166デフォルトの名無しさん
NGNG0167デフォルトの名無しさん
NGNG正常
0169デフォルトの名無しさん
NGNG0170デフォルトの名無しさん
NGNGhttp://www.realbasic.com/
0171デフォルトの名無しさん
NGNG"ゴルァ"
と""も含めて表現したい場合、
document.write "？？？ "
？？？にはどう書けばよいのでしょうか・・・
0172ひきプロ
NGNG0173デフォルトの名無しさん
NGNG0174寒
NGNG"ソース"※ を変更できる方法ってありますか？
※ｲﾍﾞﾝﾄﾋﾞｭｰｱで見れる項目名"ｿｰｽ"
過去ログ検索する前のｶｷｺ ｽﾏｿ。
0175デフォルトの名無しさん
NGNG過去ログみてから発言しましょうね。
心得
壱．質問する前に過去ログにも目を通してみる。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
弐．質問する前に MSDN などで調べてみる。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
0176デフォルトの名無しさん
NGNGロジックはともかく、GUIをメモ帳でコーディングするのは生産性が恐ろしく低い罠・・・。
0177デフォルトの名無しさん
NGNGだったらCレベルの生産性は維持できるだろ。
0178デフォルトの名無しさん
NGNG0179デフォルトの名無しさん
NGNGイベント通知だとイベント処理メソッドの処理が終わらないと一方が止まってしまうので
困ってしまってね。Coffeeサンプルは複雑で漏れにはわからん。
ヘルプ嫁・・・・はいはい
0180デフォルトの名無しさん
NGNGPrint Picture1 "aiueo"
だと失敗したんだけど・・・正解をキボンヌ。
0181ひきプロ
NGNG0183デフォルトの名無しさん
NGNG見た目は微妙だが、
考え方は１８０度間違っている。
0184105
NGNGUDPを使って、お互いのIPをRemoteHostに設定して
ユニキャストで文字列のやりとりはできるし、
マルチキャストを使っての送信はできる（確認は受信側でVC製の別のマルチキャスト受信ソフトで行った）のですが…
>>105の設定だけではだめなんでしょうか？
0186デフォルトの名無しさん
NGNGプログラムを作ったのですが、windows2000とXPで、実行しようとすると
「コンポーネントMSWLESS．OCXまたはその依存関係のひとつが適切に
登録されていません。ファイルが存在しないか、あるいは不正です。」
とエラーが出て実行できなかったらしいです。
どうすれば解決できるでしょうか？
0187デフォルトの名無しさん
NGNGAccessのテーブルデータと連携した画面を作っています。
MSHFlexGridにDetaSourxeを設定してデータを表示させるまでは
できるのですが、その中からユーザに選択させるために
左側にチェックボックスを並べたいのです。
普通に並べても、FlexGridのデータをスクロールバーで上下させてしまうと
チェックボックスの選択と同期が取れなくなってしまうし、
かといってテーブルに選択の列を追加しても
ＤＢデータと連携できるチェックボックスコンポーネントなんてないし。
理想は、FlexGridの横一列とチェックボックスを対応付けて
スクロールバーに連携させ、かつ離れた列の複数選択を可能にすることです。
どうにか方法ないものでしょうか？
素直にFlexGridのセルをクリックして選択させたほうが楽でしょうか？
0188デフォルトの名無しさん
NGNGｽﾏｿ、ブロードキャストと勘違いしてた…。
マルチキャストを受信するには、アプリケーションからOSにその旨登録しないと
駄目みたいな様子なので、API使うか何かする必要があるような感じ？
IGMPがどうたらこうたら…。
漏れにはお手上げ(ρ_;)
0189189 ◆7WYWM3doQ.
NGNG0190デフォルトの名無しさん
NGNGそれを公言するのは人間としてなんか間違っていると思う
0191デフォルトの名無しさん
NGNG(･Ａ･)ｲｸﾅｲ！
0192デフォルトの名無しさん
NGNG0193デフォルトの名無しさん
NGNG0194デフォルトの名無しさん
NGNG少なくともVB使ってたら思わないな...
0195デフォルトの名無しさん
NGNGｱﾚだろ、ごつごつしたタイヤのオートバイで天高くジャンプしたりする競技？
0196デフォルトの名無しさん
NGNGCallWindowProcは引数が4つ余計です。他に良いAPIはありませんか？
Option Explicit
Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Sub main()
Dim adr(2) As Long
adr(0) = AddPtr(AddressOf func0)
adr(1) = AddPtr(AddressOf func1)
adr(2) = AddPtr(AddressOf func2)
Dim i As Long
For i = 0 To 2
Call CallWindowProc(adr(i), 0, 0, 0, 0)
Next i
End Sub
Public Function AddPtr(ByVal Address As Long) As Long
AddPtr = Address
End Function
Public Function func0(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Debug.Print "func0"
End Function
Public Function func1(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Debug.Print "func1"
End Function
Public Function func2(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Debug.Print "func2"
End Function
0197デフォルトの名無しさん
NGNGEnumWindowとか、SetTimerとか試してみたら？
つーか、なんでパラメータを無視するんだよぅ(笑
0198デフォルトの名無しさん
NGNGEnumWindowで出来ます？ SetTimerはタイムラグがありそうだし、
TIMERPROC型がWNDPROCと同じ個数の引数なので意味なさそうです。
> つーか、なんでパラメータを無視するんだよぅ(笑
だって、この場合必要ないし。
たいした問題じゃないんですが、名前を変更してみました。
これで一見、「どうやってるんだ？」って思わせられるはず（ｗ
Option Explicit
Public Declare Function CallFunc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal Param1 As Long, ByVal Param2 As Long, ByVal Param3 As Long, ByVal Param4 As Long) As Long
Sub main()
Dim adr As Long
adr = FuncPtr(AddressOf func)
Debug.Print "ret:" & CallFunc(adr, 0, 0, 0, 0)
End Sub
Public Function FuncPtr(ByVal Address As Long) As Long
FuncPtr = Address
End Function
Public Function func(ByVal Param1 As Long, ByVal Param2 As Long, ByVal Param3 As Long, ByVal Param4 As Long) As Long
Debug.Print "func"
func = 1
End Function
0199名無しさんだよもん ◆ZAYX.QGihc
NGNG(引数がSendMessageと同じところに注目)
例えば func(param1 As String, param2 As Object) の様な引数を持った関数はVBでは呼べません
言い切ってしまえば VB で関数ポインタは扱えません
関数ポインタを呼び出す部分をCでDLLするしか方法は．．．(以下省略
0200デフォルトの名無しさん
NGNGいまいち意図がつかみにくいけど、要するに関数のポインタを変数に入れて、
コールバックで扱いたい、ってこと？
こんな感じかい？
Option Explicit
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Sub main()
Dim ptrFunc As Long
ptrFunc = FuncPtr(AddressOf TimerProc)
Call SetTimer(0, 0, 1000, ptrFunc) ' AddressOf TimerProc)'本来はこっちの書き方
End Sub
Function FuncPtr(ByVal AddressOfFunc As Long) As Long
FuncPtr = AddressOfFunc
End Function
Public Sub TimerProc(ByVal hwnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
Call KillTimer(0, idEvent)
Debug.Print dwTime
End Sub
0201デフォルトの名無しさん
NGNG> 例えば func(param1 As String, param2 As Object) の様な引数を持った関数はVBでは呼べません
そういう時はね、StrPtrやObjPtrでアドレス値に変換してから
呼び出し先でアドレスをローカル変数に代入すればいいんだよ。
0202デフォルトの名無しさん
NGNG0203デフォルトの名無しさん
NGNGほれ。
http://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&oe=UTF-8&q=%E3%82%BF%E3%82%A4%E3%83%97%E3%83%A9%E3%82%A4%E3%83%96%E3%83%A9%E3%83%AA%E3%81%A8%E3%81%AF
0204デフォルトの名無しさん
NGNG:::::::::::/ ヽ::::::::::::
:::::::::::| ば じ き i::::::::::::
:::::::::::.ゝ か つ み ﾉ:::::::::::
:::::::::::/ だ に は ｲ:::::::::::::
::::: | な。 ﾞi ::::::
＼_ ,,-'
――--､..,ヽ__ ＿,,-''
:::::::,-‐､,‐､ヽ. )ノ ＿,,...-
:::::_|/ ｡|｡ヽ|-i､ ∠＿:::::::::
／. ` ' ● ' ﾆ ､ ,-､ヽ|:::::::::
ニ ＿_ｌ＿_＿ノ |・ | |, -､::
/￣ ＿ | i ﾟr ｰ' 6 |:: ←>202
|(￣`' ）/ / ,.. i '-
`ー---―' / '（__ ） ヽ 、
====（ i）==::::／ ,/ﾆニニ
:/ ヽ:::i /;;;;;;;;;;;;;;;;
0205名無しさんだよもん ◆ZAYX.QGihc
NGNGフックとStrPtr思い出したんだが
過去に『TextBoxにタブが入力されたら半角スペースに変換』たる機能を作ろうとした
ペーストされた時・外部アプリからの変更も考えて フックし
① コールバックの引数(ペーストされる文字列のアドレス)をStringに MoveMemory
↓
② String のタブを半角スペースに置換
↓
③ ②の結果を①のアドレスに入れる(StrPtrを使って)
という方法でやってみたのだが
文字列のサイズが小さいと成功し大きいと失敗(異常終了)します
違うやり方があったら教えてくれ
『入力されたら半角スペースに変換』は簡単なのだが．．．
0206デフォルトの名無しさん
NGNGその方法ってAPI呼び出すときに使ってるだろ。
0207デフォルトの名無しさん
NGNGexeファイルのアイコンがForm1のアイコンになっちゃうんだけど、
Form2のアイコンをexeに表示させるにはどうすればいいの？
エクスプローラでexeを見てみるとForm1のアイコンしかexeのアイコンとしては表示できないみたい。
0208ひきプロ
NGNGオプション → アプリケーション → アイコン
で変更
0209デフォルトの名無しさん
NGNGもう入手困難？
昔の会社でＶＢ６使ってたけど、転職した会社になかったので
（ソフトハウスではないですので当然ですが）
どーせなら、ＶＢ６を買って、アップ版のVS.NETを買おうと
思ってるので。
もし、通販できるサイトがあれば教えてくださいませ
0211デフォルトの名無しさん
NGNG0212もう一度書かせて下さい。
NGNGプログラムを作ったのですが、windows2000とXPで、実行しようとすると
「コンポーネントMSWLESS．OCXまたはその依存関係のひとつが適切に
登録されていません。ファイルが存在しないか、あるいは不正です。」
とエラーが出て実行できなかったらしいです。
どうすれば解決できるでしょうか？
0213デフォルトの名無しさん
NGNGどうもありがとう！
0214デフォルトの名無しさん
NGNG0215デフォルトの名無しさん
NGNG統合アーカイバプロジェクトに行け(´ー｀)
サンプルがたくさん落ちてるぞ。
inflateまで自前で実装したいなら茨の道っていうか漏前には無理。
0216ひきプロ
NGNGアプリのフォルダにMSWLESS．OCXを開発環境からコピーすれば
動くようになると思います。
>>214
http://www.google.co.jp/search?q=zip%E8%A7%A3%E5%87%8DVB&ie=UTF-8&oe=UTF-8&hl=ja&lr=
0219デフォルトの名無しさん
NGNG0220デフォルトの名無しさん
NGNG0221デフォルトの名無しさん
NGNG0222214 zip ◆IKup9Hv/8E
NGNGzip解凍先フォルダの指定がこのときは解凍できずになやみになやんだ。
Outdir = App.Path
だがしかし、unzip32.dllで大事なのは、解凍先フォルダの指定でフォルダ文字列の最後に\をつけることだ。
Outdir = App.Path & "\"
とすれば見事に解凍できる。
覚えておくといいぞ、これからVBでzipを扱うのに興味を持ったヤシは。
0223デフォルトの名無しさん
NGNGそのソースだとダメな場合がある（だろう）ってのを覚えておいたほうがいいぞ。
どういう場合にダメなのかは自分で考えるように。
0226デフォルトの名無しさん
NGNGまともなプログラマはそんなソース書かないから大丈夫だｗ
自分で考えろって言ってるのに２分で即レスとはすげーﾔｼだな。
ちなみにRight関数は”あまり”関係ない。
0228デフォルトの名無しさん
NGNGいちいち面倒だってば。
0230デフォルトの名無しさん
NGNG断る
>>228
たしかに・・・
俺は最近は手抜きして、その手の処理にはFSO使うことが多い。何かと便利だし。
0231デフォルトの名無しさん
NGNG0232214 zip ◆IKup9Hv/8E
NGNGいいソフトにも拒否反応を示すというのは事実だ。
0233デフォルトの名無しさん
NGNGC:\hoge\ で実行すると、App.Path は C:\hoge になる。
ルートで実行するやつなんかｼﾗﾈ、って考えなら問題なし。
0234デフォルトの名無しさん
NGNG*い ろ ん な と こ ろ で* App.Path
以上。
0235234
NGNGぎゃふん
0236214 zip ◆IKup9Hv/8E
NGNGおれはApp.Pathの戻り値の右端に\があるかどうかを求めればいい。
という考えで上記事にRight関数の名を出したわけだから、なにげにもうこちらも解決してたってわけだな。
0238デフォルトの名無しさん
NGNG∧＿∧
.:' ': :..,, .（ ´A` ） ､_,..ノ⌒ヽ、,
ﾞ::...::ﾞ" （ヾ.,,三,.彡'_,,... -‐､.,, 彡
ヽ くV > ヽ､ ＼ ﾞ"
ヽ<iゝ l> ）
〉・ ・ / .／
/ ・ ・ ＼ｲ ､
∧ 'i, 〈ｷ〉
/ 人 'i, ｀'
,/ / /'i, ヽ
ｌ' i'ヽ（ ヽ >
/ ,|⌒l |'i, ／
ヽﾉ l ! レ''. ,-､,
| ｜ く_ツ
｜ .｜
_/ l
,.-'l （＿__/
ゝ '
0239デフォルトの名無しさん
NGNGまだ間違ってるようだが、本人納得してるようなので放置しよう・・・
0240デフォルトの名無しさん
NGNGいくつか重要な事実をおしえてくれてるね。おれは感謝してるよ。
0241デフォルトの名無しさん
NGNGIf Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
AddBackSlash = strPath
End Function
0242デフォルトの名無しさん
NGNG0244デフォルトの名無しさん
NGNG0245デフォルトの名無しさん
NGNG>238
この流れで話はおわりとおもたのに・・・・。
0246214再び ◆IKup9Hv/8E
NGNGみんなもそうだろうか？
0247214 ◆IKup9Hv/8E
NGNGUnzipするときにパラメータを渡すが、パラメータはスペースで区切っていたな。
つまりパラメータ用デリミッタのスペースとフォルダ名のスペースが混ざったいると。
さてどうしたものか。
0248214 ◆IKup9Hv/8E
NGNG0249214 ◆IKup9Hv/8E
NGNG■ このスレッドは過去ログ倉庫に格納されています