(*´д`*)ｱﾊｧ… 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。
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
NGNG0251214 ◆IKup9Hv/8E
NGNG0252デフォルトの名無しさん
NGNG同一人物か?
0253デフォルトの名無しさん
NGNGある文字列○○○の右から数個目のアルファベットを
アルファベットよって任意の数字をあたえる
プログラムってどうすればいいんですか？
例
○○○○○（単語）の右から3つ目のアルファベットが
A、b、c…１
ｄ、e、ｆ…２
その他…３
にしたい場合
本当お手数かけてすみません
0254デフォルトの名無しさん
NGNGrightOne = Left(Right(str, 3), 1)
あとはてめえでやれ。
0255デフォルトの名無しさん
NGNG0256デフォルトの名無しさん
NGNG素直にコードにするとこうなるわけだが
Select Case Mid$("ここに対象となる文字列", 3, 1)
Case "A", "b", "c"
hoge = 1
Case "d", "e", "f"
hoge = 2
Case Else
hoge = 3
End Select
0258デフォルトの名無しさん
NGNG性器表現と同じお方のようだ
0259デフォルトの名無しさん
NGNG0260デフォルトの名無しさん
NGNGトイレでブツがぼっとんすればはねかえりがある、それがイベントだ
0261デフォルトの名無しさん
NGNG余計意味がわからなくなりそうなのですが・・・。
0262デフォルトの名無しさん
NGNGForm1 が 表示 された
Command1 が クリック された
こういうのがイベント
0263デフォルトの名無しさん
NGNGお前が「トイレでブツがぼっとん」しても
俺には「はねかえり」を感知できない。
よってそれはイベントではない。
0264デフォルトの名無しさん
NGNGオブジェクトでクライアントに有益な事象が発生したときに、クラスからクライアントへ通知する方法のこと
0265デフォルトの名無しさん
NGNG0266デフォルトの名無しさん
NGNG0267デフォルトの名無しさん
NGNGアキュームレータがインクリメントされるのもイベントが？
0268デフォルトの名無しさん
NGNG0270デフォルトの名無しさん
NGNG0271２５３
NGNGある単語（例えば「opendata」）という言葉から
あるアルファベット（例えば「o、a」）の数の合計を数えるプログラムってどうすればいいんですか？
本当２回もすみません！！
0272デフォルトの名無しさん
NGNG0273デフォルトの名無しさん
NGNGあなたの近くに何十人もわかる人がいるが、回答者は、自分以外の誰かが答えるだろうと思って自分では回答を見合わせている状態なのだ。
0274デフォルトの名無しさん
NGNG本当簡単な質問ですみません
独学でプログラム作り始めたんですけど
参考書のここまでのってなく詰まってしまって…
0276デフォルトの名無しさん
NGNG>FSOはノートンに実行許可を与えないと使えないぜ。
というのは、VB6.0で作った標準EXEの中で
FSO使うのもダメですか？
それともVBSの話でしょうか？
0277232
NGNGコンパイル後のexeファイルに関しては、
exeのバイナリパターンをノートンが危険だと感じたときだけ反応する。
vbsなんかだと
Dim FS
Set FS = CreateObject("Scripting.FileSystemObject")
FS.deletefile "aaa.txt"
これだけで警告画面が出ちゃうけど、
スクリプトでなくコンパイルしたファイルシステムオブジェクトならよっぽどのプログラム以外は反応しない。
何しろ頻繁に反応するのはノートンのオプションのスクリプト遮断機能だからコンパイルしたファイルは
DeleteFileメソッド程度では反応しない。
0278デフォルトの名無しさん
NGNG'Len関数をつかって単語の文字数を求める Len("opendata") = 8 この8を単語内の一文字ずつを比較するときのループプログラムで使う。
'o p e n d a t a
'のそれぞれの文字がoまたはaに一致するかどうかを比較する。
Dim i As Integer 'ループカウンタ
Dim n As Integer 'opendataに含まれているoとaの合計数
Dim S As String '一時的に文字を入れておく文字用変数
'Mid関数で一文字ずつ取り出していく。
'Mid("opendata",a,b)というのはopendataのa文字目からb文字取り出すという意味。
'だからMid("opendata",1,1)はopendataの1文字目から1文字だけ取り出すという意味で、1文字目から1文字目だけ取り出すとそれはoという文字になる。
'したがってS=Mid("opendata",1,1)となっているときは文字列変数Sにはoという文字が入っている。
'変数Sがoまたはaであるかどうかは
'If UCase(S)="o" or UCase(S)="a" then
'n=n+1
'End if
'のようにIF文を使って文字が同じかどうかを比較する。
'LCaseは大文字を小文字に変換する関数で、OpenDataというような大文字小文字が混じっている場合に対処する。
'大文字のAと小文字のaは違うものだからだ。
'大文字小文字の区別をつけたいときはLCace関数やUCase関数は使わないようにする。全角文字対処については省略。
For i = 1 To Len("opendata")
S = Mid("opendata", i, 1)
If LCase(S) = "o" Or LCase(S) = "a" Then
n = n + 1
End If
Next
Form1.Caption = n
'この方法のほかにInStr関数を使ったり正規表現を使ったりする方法がある。
0279276
NGNG返答どうもありがとうございます。
これで安心して寝れます。
（ちょうど最近仕事で、FSOを使ったプログラムを書いたので。）
0281105
NGNGWinsock.dllのAPIをコールする必要があるということですね。
それがわかっただけでも大収穫です。ありがとうございました。
0284デフォルトの名無しさん
NGNGVB6.0のData Reportですが自分のマシンでレポート込みのEXEを作成し
配布しようとした所別のマシン（VBはインストールされていません）で
「実行時ｴﾗｰ713
アプリケーション定義、またはオブジェクト定義のｴﾗｰです。」
と表示されたのですが、
Runtimeか何かをインストールしなくてはいけないのでしょうか。
すみませんが教えて頂けないでしょうか。
0285デフォルトの名無しさん
NGNG初心者は余計。
ちゃんとディストリビューションウィザードとか使ってセットアップした？
EXEだけ持っていっても、そりゃ動かんよ。
0286デフォルトの名無しさん
NGNGEnableWindowってのだとキーボードもだめになっちまう
0287デフォルトの名無しさん
NGNGサブクラス化でマウス関係のメッセージを全部握りつぶす
0289デフォルトの名無しさん
NGNGそれでできると思ってたなら最初から手間を惜しまずに書きんさい。
無駄な解答しなくて済むから。
0291デフォルトの名無しさん
NGNGスクリーンセーバアみたいにマウスポインタ消す。じゃだめかな
0292デフォルトの名無しさん
NGNGマウスを抜け
0295284
NGNGありがとうございます！試してみます。
0296デフォルトの名無しさん
NGNG0297デフォルトの名無しさん
NGNG0298デフォルトの名無しさん
NGNG「パブリックオブジェクトモジュールで定義されたパブリックユーザー定義型に限り、
クラスモジュール内のパブリックプロシージャの引数または戻り値、
またはパブリックユーザー定義型の要素として使用することができます。」と
エラーメッセｰジが出てしまいました。
今は標準モジュール内にPublicで構造体を定義しているのですが、
クラス内に定義しても
「プライベートオブジェクトモジュール内ではパブリックのユーザー定義型は
定義できません」
とエラーが出てしまいます。
クラスのPublicなプロシージャの引数に構造体を使うのは無理なのでしょうか？
0299デフォルトの名無しさん
NGNG標準モジュールのOption Explicitのすぐ下あたりに記述してみ
0300デフォルトの名無しさん
NGNGActiveXのパブリッククラスに記述してみ
0301デフォルトの名無しさん
NGNGFriendキーワードを調べよ。
■ このスレッドは過去ログ倉庫に格納されています