(*´д`*)ｱﾊｧ… 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。
0012デフォルトの名無しさん
NGNGやーい、バ〜カ。
0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNG俺は積極的にクラス＆ユーザーコントロール使う手法で
プログラムしてるよ
0016ひきプロ
NGNG検索したらDelphiからVBに張る方法ばっかりでてきて
0017デフォルトの名無しさん
NGNG自分の担当がDLL,OCX作成中心なので必然的にクラス・ユーザコントロール中心に設計するようになってる。
>>16
できないことはないんじゃない？ 普通のコントロールと同じように扱えば。
ただVC/DelphiでできなくてVBしかできない処理というのがきわめて少ない以上、あまり需要の無い方法なのかも。
他の環境については知らん。
0018ひきプロ
NGNGほおほ、ありがとうございます。
いつもVBで開発してるので、もしVBからしかOCXが
使えないんだったら意味ないかなーと思ってました。
確かにVBで作ったのを他の環境で使うって事はなさそうですね。
今まで気にしてなかったんですがVCでもOCX作れるんですか。
VCで作る方法を探してみます
0019デフォルトの名無しさん
NGNGおれはそうだな。複数インスタンスを作成すると効率がいいことが多いから。
0020デフォルトの名無しさん
NGNG漏れはクラス中心に設計してるよ。
クラス、ユーザーコントロール、（クラスとしての）フォーム…。
作業の切り分けやインスタンスの管理が楽だからね。
ただ、作業員で入ったおじちゃん＆おばちゃんプログラマが勝手に、
標準モジュールに書き換えられたり、フォームにベタ書きされたりすることも、しばしば。
設計は守ってくれって言うと、
「何で、フォームとモジュールでできることを、わざわざクラス・コントロール使わないかんねん！！
このド素人が！！ＶＢにはＶＢのやり方があるんや。
クラスやコントロールなんてオマケやぞ。」
と集団で一喝されました。あ〜痛い痛い（ｗ
0021デフォルトの名無しさん
NGNGどんなコードにケチを付けられたのかわからないけど
| ＶＢにはＶＢのやり方があるんや。
| クラスやコントロールなんてオマケやぞ。
クラスやコントロールを使わないのがVBのやり方だというのは賛成できないな。
16ビットVB時代の古い頭では理解できないのだろう。
0022デフォルトの名無しさん
NGNG顧客情報を表示というプログラムを作成しているのですけど
ＶＢのサンプルってどこかに落ちてないですか？
0023ひきプロ
NGNG8ページ目に仕様が
MSCommコントロールを使うと何とかなるかも知れませんね。
0024デフォルトの名無しさん
NGNG俺は ActXとかDllとかOCXを作らない場合にはクラスの使い道って知らん。
業務上ActX毎の単体処理になるんで、インターフェース以外は使ってなかった。
が
最近、内部のテーブルとして使えばパブリック引数に渡せるなぁ・・て利用中。
（メモリ展開させて）
しかし、データプールとしてのみで、処理は持たせてない。正しい使い方ってなんだろう・・
0025ひきプロ
NGNG作れますよね。
002620
NGNGクラスの処理なんか、まさにUMLのクラス図みたいなものだよ。
そのクラスをコレクションにするクラスをラップした、ごくごくフツーのクラスモジュール。
コントロールもいくつものコントロールの処理を統一化した、
インターフェース処理を含めた、またクラス図みたいなものだよ。
そりゃ、たしかに使わなくてもできるが、
何も、多次元配列とSelect〜Case〜の山に書き換えることも無いだろうに。
>>24
漏れはクラス・コントロール自体に特別すごい処理は持たせないよ。
あくまで、存在の切り分け上含まれるプロパティ・メソッド・ファンクション・イベントが乗っかるだけ。
アプリ内のDLL・OCXの配置に近い使い方もするな。
生成すべき形が明確な場合はクラス化するようにしてる。
0027デフォルトの名無しさん
NGNG0028デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNG003220
NGNGまさにオールドタイプ。
RDBもほとんど意識して無い。
昔、Accessのマスタテーブルの作成をお願いしたら、
テーブルごとに別ファイルにされた。
「CSVはこうなってるだろ。」と言われたよ。
ｵｲｵｲ、何のためのDBだよと…。
>>30
たぶん永遠に旧ＶＢマンセーのままのような気がする。
ﾄﾞﾄｰﾈﾄは駄作、使い物にならんと言い張って。
0033デフォルトの名無しさん
NGNG適当に｢つかったら｣だろ。明示的に解放するのが普通の使い方じゃないか。
おれはRecordset,XMLやFileSysmteObjectは、それ専用のラッパークラスを
作ってる。バージョンの違いもこのクラスの中で吸収できるし、エラーも
大部分吸収できる。
0034デフォルトの名無しさん
NGNG0035デフォルトの名無しさん
NGNGVB6のDTPickerはダメなん？
0036デフォルトの名無しさん
NGNG0038ひきプロ
NGNG確かに…。インスタンスの解放をVBに任せる
癖が付いてました。
ラッパークラスって良さそうですね。
何度もエラー処理とか解放とかしてると
いつか間違えてしまいそうだし。
0039デフォルトの名無しさん
NGNGこの通りのフォルダを掘るにはどうしたらいいでしょうか
0040デフォルトの名無しさん
NGNGshell("mkdir .\hoge\hoge2")
shell("mkdir .\hoge\hoge2\hoge3")
0041デフォルトの名無しさん
NGNG頭からループ回しながら、
Dirで確認して、無ければ掘る。
0042デフォルトの名無しさん
NGNG004333
NGNGですね。Recordsetオブジェクトとか、本にも適当に書かれてることが多いんで
後でリファレンス見て使い方が間違ってたーっていうときにも修正が楽です。
「VB6 Error Coding & Layering」って本からこのやり方にしました。
0045デフォルトの名無しさん
NGNGどうすればいいでしょうか？
004633
NGNGSubClass .... かな....
0047968 正規表現が完成した ◆HLRHHB4j46
NGNGあああwww.uploader.com/folder001/いいい
からアドレスらしき文字列を抽出するプログラム。
VBで実際に動かすと
www.uploader.com/folder001/
という文字列を抽出できる。
0048968 ◆HLRHHB4j46
NGNGDim RegEx As Object, Match As Object, Matches As Object
Dim StrPattern, StrSource, Str1 As String
Set RegEx = CreateObject("VBScript.RegExp")
If Err Then
MsgBox "エラー"
Else
'実験用Patternメモ
'"[^a-zA-Z0-9]""[a-zA-Z_0-9]|/""[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+""w+\...+\/.+[^!#-;=?-~]"
StrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
RegEx.Pattern = StrPattern '検索パターンを設定
RegEx.IgnoreCase = True '大文字と小文字を区別しないように設定
RegEx.Global = True '文字列全体を検索するように設定
StrSource = "あああwww.uploader.com/folder001/いいい" '検索対象の文字列
Set Matches = RegEx.Execute(StrSource) '検索を実行
Debug.Print "--------------"
Str1 = ""
For Each Match In Matches
Str1 = Str1 & Match
'Debug.Print "一致する文字列が見つかった位置は、" & Match.FirstIndex & " です。"
Debug.Print "一致した文字列は、" & Match.Value & " です。"
Next
Debug.Print "それぞれの文字を結合してURL生成" & vbCrLf & Str1
End If
0049968 ◆HLRHHB4j46
NGNG----------------------------
StrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
と
StrSource = "あああwww.uploader.com/folder001/いいい" '検索対象の文字列
をいろいろ変えると他の目的にも使える。
StrPatternの値はここを参考にする。
ttp://www.microsoft.com/japan/msdn/columns/scripting/scripting051099.asp
0050デフォルトの名無しさん
NGNG0051968 ◆HLRHHB4j46
NGNGMicrosoft VBScript Regular Expressions
を参照設定に追加する。
0053968 ◆HLRHHB4j46
NGNGStrPattern = "[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+"
に|_を追加してみた。
StrPattern="[a-zA-Z0-9]|\.|\&|\%|\=|\/|\+|_"
URLに使われそうな文字が見つかるたびに追加していく。
0054968 ◆HLRHHB4j46
NGNG_を追加したことにより、
www.vb_net/
というようなURLもひろえる。
0056968 ◆ExGQrDul2E
NGNG見てきた。その資料より抜粋。
";" | "/" | "?" | ":" | "@" | "&" | "=" | "+" | "$" | "," | "-" | "_" | "." | "!" | "~" | "*" | "'" | "(" | ")"
追加しなければならない文字がたくさんあるなあ。
0057デフォルトの名無しさん
NGNG0058デフォルトの名無しさん
NGNGまだやってるのか・・・
http://www.google.co.jp/search?num=100&hl=ja&ie=Shift_JIS&c2coff=1&q=%22VB.net%22+webbrowser&lr=lang_ja
0059デフォルトの名無しさん
NGNG誰もこたえてくれないんで・・・。
0060デフォルトの名無しさん
NGNGMakeSureDirectoryPathExists ってAPI
0061デフォルトの名無しさん
NGNGVBの線描画(Line,Pen)について
実線以外の線(点線,破線など)の
線幅を変更して描画する方法を
教えてください。
0062デフォルトの名無しさん
NGNG正攻法 -> LineDDA API
0063デフォルトの名無しさん
NGNG0064デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNG0068デフォルトの名無しさん
NGNG0069デフォルトの名無しさん
NGNG0070デフォルトの名無しさん
NGNG0071デフォルトの名無しさん
NGNGWinampをWindowsキーで操作できるプラグイン入れて、
他のPCからTCP/IPでWinampを遠隔操作できる
ソフトを作りたいんですが。
0072デフォルトの名無しさん
NGNG送れますよ。
0073デフォルトの名無しさん
NGNG0074デフォルトの名無しさん
NGNGミ田キー = "^{ESC}" と思ってたのに、、、
0075デフォルトの名無しさん
NGNG"^({ESC}F)" != Windowsキー+F
0076デフォルトの名無しさん
NGNG例：
VBKeyE
VBKeyRight
0077デフォルトの名無しさん
NGNGツールバーのボタンにwordなどのように
画像を表示したいのに、できません。
方法はわかるのですが、その画像ファイル（イメージリスト？）を
どこから持ってくるのか全くわかりません。
コンポーネントもざっと調べてみたのですが・・・。
（↑見当違いですか？）
イメージリストがどこにあるか教えてください。
馬鹿らしい質問かもしれませんが、宜しくお願いします。
0078デフォルトの名無しさん
NGNGたしか本に載ってた記憶があるが、本が見つからないのでオレには答えられない
0079デフォルトの名無しさん
NGNGgetobject(,"InternetExplorer.Application")を使って、
開いてるＩＥを扱おうとすると、
普通のＰＣ内のフォルダにつながっちゃうんですけど、
どうすればいいでしょうか、教えてください。
0080デフォルトの名無しさん
NGNGはあまり反応がイクナイ
0081デフォルトの名無しさん
NGNGイメージリストは自分でフォームに設置しないといけないです。
Windows Common Controls6.0にあります。
0082デフォルトの名無しさん
NGNGcdeclを使えますか？stdcallは使えるのですか？VBでは呼び出し規約はどういう
扱いになっていますか？
0083デフォルトの名無しさん
NGNGstdcallしか使えないと思ったが…よく覚えてない。
0085再び77ですみません…。
NGNGでもいざ画像の挿入をしようと思っても肝心の画像
（プリンタとか開いてるフォルダ等の画像）がどこにあるのか・・・
本にはそこまでは書いてなくてわかりませんでした。
一応HDD内は検索してみたのですがありませんでした。
DLとかするものなんですか？
0086デフォルトの名無しさん
NGNGCDに入ってますよ
0088デフォルトの名無しさん
NGNG開く
終了
のように縦にメニューを表示させるのはできますが、
開く 終了
のようにメニューバーの中に2つの項目を横並びに配置する方法がわかりません。
0089デフォルトの名無しさん
NGNG,イ^i
,イ:::: l
/:::::::: l
/:::::::::: ｛ ／|
／:::::::: `-､＿ ／:: {
/::::::::::: ／ ￣ __ l
./::::::::::: :::::＼:::... ＼ i
/::::::::::: ::::::::::＼:::: 、 {
|:::::::::::. :::::::::＿ゝ::: !
|::::::::::::. ）:.`ｰ..＿＿＿_' /::: |
.l:::::::::::::. ヽー─フ:: / ﾌﾟｯ
ヽ::::::::::. ＿＿＿ ,/
＼::／`ｰ---‐^ヽ ／
l::: l /
＿ ／,--､l::::. ﾉ l
,--､_ノ:: `ｰ':: ､ﾐｰ---‐,,l ＼
,/ ::: i￣￣ | ＼
/:::::::. l::: l::::::: l ＼
l:::::::::::. l::: !:: |::::::: l ＼
|:::::::::l:::: l::: |:: l::::: l l
|::::::::::l:::. }::: l:::::,r----- ｌ ｌ
ヽ::::::::l:::: ﾄ:;;;;;;;/-/＿_........... /
／＼::::`ー‐' ／ l＿＿l;;;;;;;;;;;／
／ ` ／
0090デフォルトの名無しさん
NGNGヘルプ嫁。
0091デフォルトの名無しさん
NGNG0093デフォルトの名無しさん
NGNGテクニックって、、、
たとえば
ファイル(F)
開く
終了
というようなものを
ファイル(F)
開く ｜ 終了
のような感じにするのでしょうか？
0095デフォルトの名無しさん
NGNGヘルプも真面に読めないのかｽｶﾀﾝ
0098デフォルトの名無しさん
NGNGとっつきにくいかもしれないね。
「････」がメニューの階層なのでそれを「←」ボタンで取っ払えばいいってだけ。
0100デフォルトの名無しさん
NGNG0101デフォルトの名無しさん
NGNG0102デフォルトの名無しさん
NGNGVisualではないね。
0103デフォルトの名無しさん
NGNG汎用機で作成されたデータファイルをExcelに渡す処理を考えています。
汎用機からWindows上に落としてきてきた（この間に文字コードの変換をしています）
テキストファイルの中の、指定した行のiバイト目からjバイトを抜き出す
（その後エクセルに渡す）、という処理で詰まっております。
（この"iバイト目からjバイト"というのは汎用機側の印刷パラメータです。）
対象となる行には数値、日本語が混在しています。i,jは表の項目ですので増加していきます。
Mid,MidB関数で引数にi,jを指定してやればよかろと思っていたのですが、
汎用機側では数値は1バイト、日本語は2バイトで扱っており
Windows上では全て2ﾊﾞｲﾄで扱っているのでこれだと抜き出す時に誤差が生じてしまいます。
で、バイナリで開いて先頭から順次読み込んでやればいいかなと足りない頭で考えたました。
以下、足りない頭で考えたルーチンです。
１．対象行（テキスト）をバイナリで作業ファイルに書き込む
２．作業ファイルをバイナリで指定したバイト数だけ読み込み、配列で宣言したByte型変数に格納
とここまでやったのですが、これを元の数値や日本語に戻すにはどうしたらいいでしょうか
よろしくお願いします。
0104デフォルトの名無しさん
NGNGLenBとStrConvでﾄﾞｿﾞ。
0105デフォルトの名無しさん
NGNGWith Winsock1
.Protocol = sckUDPProtocol
.Bind 20002
.RemoteHost = "233.0.0.0"
.RemotePort = 20002
End with
と設定して、他マシンからのマルチキャストを受信してるんですけど、
Winsock1_DataArrivalイベントが発生しません。
試しにVCで作ったマルチキャスト送受信プログラムで受信してみるとうまく受信できました。
VBで受信するには他に何か設定が必要なんでしょうか？
ちなみに、この設定のままWinsock1.SendDataで文字列を送信してみたら、
マルチキャストの送信は、できました。
0106デフォルトの名無しさん
NGNG誰か教えてください。
0107デフォルトの名無しさん
NGNG私の環境では完璧に動きまする…。
Win2ksp3/VB6sp5。
VBにSPはあてた？ Winsock.ocxにバグあった気がする。
あと、コード中で入れるんじゃなく、プロパティーページで
Bind以外を設定するとどうなる？
なんか別の所で変なことやってるのかもしれないし。
0108105
NGNG動きましたか。うちの環境はWin2k VB6SP5です。
ちょっといろいろ設定見直してみて、また来ます
0109デフォルトの名無しさん
NGNG「バイト型配列から日本語含めた文字列への変換」でいいのね。
バイト型配列を「byteArray()」とすると、
Dim strBuf As String
strBuf = StrConv(byteArray(),vbUnicode)
でいけるはず。何も見ないで書いたので綴り間違ってるかも。
ためしてみてちょ。
0110デフォルトの名無しさん
NGNGマウスの位置のプロパティってありますか？
0111デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています