(´д`)ウッ…　VB初心者質問スレ Part15

**エロチカセブン** · NG

**834** · NG

>>845 さん
ご忠告ありがとうございます。
ダイヤルアップ関連については初めてでしたので、つい何も考えずに質問してしまいました。
これからは気をつけたいと思います。

少し調べたところRASというAPIがなにやら使えそうなので、もう少し調べてみようと思います。

**834** · NG

ホントすいません。

**デフォルトの名無しさん** · NG

VBScriptですが

フォームのドロップダウンリストの値を取得するには
form.name.options.value

では、ラジオボタンの値を取得する場合はどうすれば良いですか？

**デフォルトの名無しさん** · NG

>>849
それは質問ではなく、問題ですか？

**デフォルトの名無しさん** · NG

よろしくお願いします。

１．ListBox上で、項目が選択されていない状態で右クリックしたとき、
項目が選択されて、かつ右クリックメニューが表示されるようにするのはどうしたら言いのでしょうか。
（右クリックメニュー表示は実装しています。）

ListBoxのクリックイベントと、MouseDownのイベントどちらかに記述するのでしょうか。

MSDNで引いても、ググってもわかりませんですた。
ご教授よろしくおながいします。

**デフォルトの名無しさん** · NG

ふつう右クリックのメニューがポップアップするのはMouseUp時だろ。

**>>851** · NG

>>852
>>718-720
だったもんで・・・・・

すみませんね。

引き続き回答おまちしております。

**デフォルトの名無しさん** · NG

すみません、型の違いがよくわからないので教えてください。

**デフォルトの名無しさん** · NG

>>864
それぞれの型によって入れられる値の種類が違います。

**デフォルトの名無しさん** · NG

ふつうWM_CONTEXTMENUが来たときだろ。

**デフォルトの名無しさん** · NG

>>856
わざわざコンテキストメニューを出すためにサブクラス化したりするの？

**デフォルトの名無しさん** · NG

うわVBってこんなのもできないんだ

**デフォルトの名無しさん** · NG

>>858
何を出来ないと思っているかＣ言語を用いて述べよ。

**デフォルトの名無しさん** · NG

>>833
>クラスに開始メソッドと停止メソッドを追加したいんですが
>予約語で命名出来ません。この場合何てつけますか？

旧VBの楽しいところだね。

>ダメな例 start stop, start end, begin end, open close
Prev(ious)とNextとか、ReadとWriteとかもあるね。

例えば、時間を扱うクラスとして、
StartTime、StopTimeとかにしてるよ。
オブジェクト指向的には冗長かつ邪道なネーミングだけど。

**デフォルトの名無しさん** · NG

VBでゲームソフトを作っていて、ヘルプの所に
自分のホームページへのリンクを貼りたいのですが、
こういう場合にはどのようにすれば良いのでしょうか？

**デフォルトの名無しさん** · NG

ShellExecute

**デフォルトの名無しさん** · NG

>>862
ありがとうございます。調べてみたら使う事が出来ました。

もう一つお伺いしたいのですが、Labelの上にマウスカーソルが来た時、
マウスカーソルを手の形にし（ブラウザのハイパーリンクのように）、
Labelの上から離れたら元に戻したいのですが、
これはどのような処理をしたら良いのでしょうか。
Screen.MousePointer = vbなんとかでカーソルの形を変えられることは分かったのですが、
どんなイベントの所でこれを書けばいいのか分からず困っています。

**デフォルトの名無しさん** · NG

>>863

Formのマウスムーブのイベントでラベルのところに x,y が入ったらポインタを手に変えたら
いいんじゃないのか？
それで、それ以外は、元に戻すとかする。

**デフォルトの名無しさん** · NG

>>863
ラベルのプロパティをデザイン時に変えるだけ。

**デフォルトの名無しさん** · NG

ああそれが一番カンタンだった。
label1.MousePointer = 15
とかＦｏｒｍＬｏａｄ時にやっとけ。

**デフォルトの名無しさん** · NG

WritePrivateProfileString　を使ってINIファイルに書き込むと、
空白が入ってしまいます。

回避方法を、教えてください。

**デフォルトの名無しさん** · NG

>>867
すみません、自己解決しました。m(_ _)m

**デフォルトの名無しさん** · NG

>>867
Nothingで書き込んで、セクションを削除してから
再度書き込む。

**デフォルトの名無しさん** · NG

>>867
Killステートメントでファイルまるごとあぼーん。

**超初心者かも** · NG

VisuualBasic6.0で質問です。

DoEvents以外ウィンドウズに制御を渡すってどうするんでしょうか？
DoEventsは遅い気がするので。

**デフォルトの名無しさん** · NG

制御を渡すって、具体的に何がしたいの？

**デフォルトの名無しさん** · NG

>>871
if (PeekMessage(&msg, NULL, 0, 0, PM_REMOVE)){
TranslateMessage(&msg);
DispatchMessage(&msg);
}

**デフォルトの名無しさん** · NG

VBで実行中のアプリケーションがアクティブかどうかって
どうやって判断するのですか?
アクティブじゃない時は処理を中断させたいのですが。

**デフォルトの名無しさん** · NG

>>873
85点。

**デフォルトの名無しさん** · NG

>>874
GetForegroundWindow()

**デフォルトの名無しさん** · NG

>>875
１００点の回答を教えてくれ。

**デフォルトの名無しさん** · NG

>>875
教えを乞う態度とは思えん
（答えを求めておいて、結果を採点か？）

**デフォルトの名無しさん** · NG

>>878
5/100点

**デフォルトの名無しさん** · NG

よくVB製ソフトはダサイとか遅いとか糞とかVB製と知ったら落とすきダウンロードする気無くすとか言われてるけどどう思う？

**デフォルトの名無しさん** · NG

>>880
お前の日本語のほうが糞だと思う

**デフォルトの名無しさん** · NG

>>880
仕方ないと思う

**デフォルトの名無しさん** · NG

俺の場合は（オンラインソフトね）セットアップ形式だとダウンロードしようか迷うな
いや、落とすのが決まってる場合はいいけど、Vectorでいろいろ探す場合ね。

**デフォルトの名無しさん** · NG

(ﾟДﾟ≡ﾟДﾟ)

◆5VLaSsH.hA · NG

InetでGetChunkしてるんですけど(VB6)
1024バイトごとに取得しているので丁度区切りの所に漢字が来ると
化けてしまいます。
これどうにかならないんですか？

◆5VLaSsH.hA · NG

age

**デフォルトの名無しさん** · NG

>>880
VB製は糞の割合がかなり高いと思う。
つまり、Vectorで同一カテゴリで手当たり次第DLして試してみる時、
VB製だとなんじゃこりゃ、というレベルのまで掲載されている可能性が高い。

しかし、そのような糞ソフトを除けば、特にVBが重いとかダサいとかいうことは無いかと。
つまりそれなりに定評があるなら言語は何だって関係ないというか。
糞が多すぎるからVB全体のイメージが糞に引っ張られるのだろうな。

**デフォルトの名無しさん** · NG

>>885
第２引数をicByteArrayにしてバイト配列として取得し、
あとから結合するなりするといいんでないかい？
1024バイトごとにデコードしたいなら、最後の文字が２バイト文字か
どうか判別するルーチン作ってなんとかするとか。

**デフォルトの名無しさん** · NG

>>885
もしかしてこれ？

' 最初のチャンクを取得します。
vtData = Inet1.GetChunk(1024, icString)
DoEvents
Do While Not bDone
DoEvents
strData = strData & vtData
DoEvents
' 次のチャンクを取得します。
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop

txtData.Text = Replace$(strData, vbLf, vbCrLf)

私も今までこのまま（MSDNどおり）にやってたけど、そんなだとは気づかなかったよ。

**デフォルトの名無しさん** · NG

>>889
あちらさんは2バイトコードなんて
地球外言語だと思ってるよ（藁

**デフォルトの名無しさん** · NG

バイナリで取得してくっつけてStrConvすれ。

**デフォルトの名無しさん** · NG

>>889
私なら、
Do While 1
にして、
If Len(vtData) = 0 Then Exit Do
にするけど、上記のMSDNに書いてあるやりかたの方が効率いいの？

**デフォルトの名無しさん** · NG

>>892
If Len(vtData) = 0をWhileの条件文にしないのはなんか意味あるの？

**デフォルトの名無しさん** · NG

>>863ですが、>>865さんのやり方で思い通りの結果が得られました。
ありがとうございました。

**デフォルトの名無しさん** · NG

>>893
その方がよかった。
では変えます。
そうしないでMSDNではああいう記述にしているのはなにかその方が効率がよかったりするのでしょうか？

**デフォルトの名無しさん** · NG

>>895
MSDNは見てないけど、もしも変数bDoneが
静的な変数(モジュールレベル or Static)だったら
893のコードとは意味が違ってくるわな。

**デフォルトの名無しさん** · NG

ボタンとかを自分で作りたいと思います
とりあえずPictureコントロールにLineを描画しているんですがどうでしょうか？
もっとスマートな方法があるんでしょうか？

**デフォルトの名無しさん** · NG

>>897
なんでそんな事したいの？
ユーザーが画面デザインの設定で見た目かえてても同じボタンになっちゃうじゃん。
そんなの不親切でしかないと思うけど・・。

**デフォルトの名無しさん** · NG

>>898
まぁいいじゃないですか。
オリジナルデザインのソフトっていくつかあると思いますし。

**デフォルトの名無しさん** · NG

送られてきたデータを画面に表示させる場合に
（例１）Winsock.GetData strData
Text1.Text = Text1.Text & strData & vbNewLine

（例２）Winsock.GetData strData
Picture.ForeColor = RGB(0,0,255)
Picture.Print = strData

（例３）Winsock.GetData strData
List.AddItem strData
List.ListIndex = List.CountIndex - 1　'データが下に隠れないように

出力する場所(テキストボックスなど)、出力方法、知識が足りないためか以下でや
りたいことができません。
まず、例１、例３だと送られてきたデータごとにフォントカラーが変更できない。
例１、例２ともに最後に送られてきたデータを画面内に表示させたいのです
が、古いデータがたまると、新しい行はスクロールバーで下に行かないと文
字が見れなくなる。
データごとにフォントが変更でき、最後に表示するデータがスクロールバー
で隠れることがないようにする方法教えてください。

**デフォルトの名無しさん** · NG

だからVBのソフトはグロテスクな見た目とか言われるんだよな。

**デフォルトの名無しさん** · NG

>>897
俺も同じような方法を使ってまつ。

**デフォルトの名無しさん** · NG

>>897
Pictureコントロールならそのまま画像はればいいじゃん。

**897** · NG

>>903
いえ、picture1.paintで真ん中にテキストを表示させて、
周りをラインを描画させてるんです。
あとMouseDownの時の描画とかも

と、ここまでは出来たんですが、上の動作をモジュール化させたいのですが
その辺がよくわかりません

D · NG

>>900
最新の状況を表示するログのようなものならRichTextBox使って

Dim Buff As String
For i = 0 To 100
Buff = CStr(i)
Me.RichTextBox1.SelStart = 0
Me.RichTextBox1.SelText = Buff & vbCrLf
Me.RichTextBox1.SelStart = 0 '保存したテキストの選択
Me.RichTextBox1.SelLength = Len(Buff)　’同上
Me.RichTextBox1.SelFontSize = i　　　　’フォントサイズの変更
Next i

こんな感じでいいんじゃない？
保存も簡単だし

D · NG

>>904
コントロール自作しちゃえば？

**仕事でVB不幸者** · NG

おそろしく初心者質問だということはわかっているのですが
検索しても出てこなかったので質問させてください。

2次元配列の宣言と初期化はVBではどのように記述したらいいのでしょうか？
C言語でいうところの

int PosArray[5][5] = {
{1,2},
{2,3},
...
};

このようなものです。

**デフォルトの名無しさん** · NG

>>907
宣言時の初期化はできません。

**デフォルトの名無しさん** · NG

>>907
昔のbasicならdata文とかあったけどねえ。
関数作って代入させるとかかな。

sub setArray(,array, x, y, val) とかしてなかで代入。

D · NG

>>909
READ～DATAナツカシー。無くなったのが大変痛い。
&Bも使えませんねえ。

**897** · NG

>>906
ActiveXコントロールですか？
配布時に面倒なので・・・
クラス化とかいうのやればよいのでしょうか。
クラスって一度も作ったこと無いけれども

**デフォルトの名無しさん** · NG

>>911
その前にお前作れんのかと。

**デフォルトの名無しさん** · NG

>>911
なぁ、自分の趣味で他人のアドバイス蹴りまくるのなら自分の力で解決すれば？
人に迷惑かけてまでやることでもあるまいて。
用語はわかってるみたいだから後は検索するだけだろ打て。

**897** · NG

は～いわかりますたよぶぅ～。

**デフォルトの名無しさん** · NG

>897
ユーザーコントロールって知ってるか？
あと氏ねよ

**897** · NG

ああこれなら配布時問題ないのね。
ありあと～。

**デフォルトの名無しさん** · NG

>>860
レスありがとうございます。参考になりました。
自分の場合待ち受け開始、停止ということで
StartWaiting, StopWaiting
と名付けることにします。

**897** · NG

>>915
言うに事欠いて
氏ねはないでしょ？
キモオタ風情がいきがりやがって。

**エロチカセヴン** · NG

おまいら新スレ

(*´д`*)ﾊｳｧｯ…　VB初心者質問スレ Part16
http://pc3.2ch.net/test/read.cgi/tech/1034302532/l50

**デフォルトの名無しさん** · NG

[氏ね]

悪名高い掲示板サイト「２ちゃんねる」内でよく使用される用語。
語源は単純に「死ね」だが、あいさつや相槌など、コミュニケーション
の潤滑油として使用される事も多い。
例　つーか氏ねよおめーら

**デフォルトの名無しさん** · NG

オタク用語みたいなもんだな。だせぇ。

**デフォルトの名無しさん** · NG

>>921
なにか勘違いしてるようだね。初心者君。

**デフォルトの名無しさん** · NG

これってどうよ？マジ？

http://www.dream-express-web.com/space-trust.htm

**897** · NG

>>918
偽者いるし（ｗ

NG

漏れら極悪非道のageブラザーズ！
今日もネタもないのにageてやるからな！
￣￣∨￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　 ∧＿∧ 　 ∧＿∧ 　　　age
　（・∀・∩）（∩・∀・）　　　　age
　（つ　　丿（　　⊂）　 age
　（　ヽノ　　ヽ/　　）　　　age
　し（＿）　　（＿）Ｊ

**デフォルトの名無しさん** · NG

潤滑油だったっけか
↓氏ねよザーコ

**926** · NG

あ、↑失敗

**デフォルトの名無しさん** · NG

↑氏ねよザーコ(^o^)
氏ねよザーコ(^o^)↓

**デフォルトの名無しさん** · NG

┏━━━━━━━━━━━━┓
┃　　　　　　　マホカンタ　　　　　┃
┗━━━━━━━━━━━━┛

**デフォルトの名無しさん** · NG

>>929
あなあいてる。

**VB房** · NG

もしよかったら教えて下さい。
質問です～。

内側のIF文で外側のIF文を抜けたいんですYO！
そんな命令ありますか？

a = 0
b = 0

If a = 0 Then '外側

If b = 0 Then　’内側
'ココから外に抜ける
　　'なんか脱出する命令。
End If

MsgBox ("NG")
End
End If

MsgBox("OK")
End

**デフォルトの名無しさん** · NG

>>931
goto

**デフォルトの名無しさん** · NG

>>931

> 内側のIF文で外側のIF文を抜けたいんですYO！
> そんな命令ありますか？

End

**VB房** · NG

>932
すんません…

お客様がGOTO恐怖症なんですYO～。
GOTO以外でお願いしやす～。

**デフォルトの名無しさん** · NG

>>934

GoSub ～ Return

**デフォルトの名無しさん** · NG

>>934
関数にする

**VB房** · NG

>933
>935
>936
なるほど…。
やはり、一つ外側のIF文の外に出る命令は
ないんですね…。

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

**デフォルトの名無しさん** · NG

>>931
goto がイヤなら関数にして

exit sub(function) をうまく使う。

>お客様がGOTO恐怖症なんですYO～。
金取ってるのか？このレベルで

**デフォルトの名無しさん** · NG

現在ログインいているユーザのグループ名を取得するには
どのようにしたらよいでしょうか？

**デフォルトの名無しさん** · NG

つーか、旧スレageるなよ

**デフォルトの名無しさん** · NG

>>931
仕事で使ってる？
だとしたら、かなりレベル低いよ。
Else使えばそんな作りにならないって。

**デフォルトの名無しさん** · NG

そんなコード書くのがそもそもの間違い。

**デフォルトの名無しさん** · NG

その通り。If文から抜け出さないと・・・という考えが既に間違い。

**デフォルトの名無しさん** · NG

ご存知のかたがいましたら、教えてください。

VBのImageにTIFF画像を読み込みたいのですが、
直接読み込めないので、TIFF画像を選択したら、
裏でJPEGに変換して変換したJPEGファイルを表示
しようと思っています。
TIFFからJPEG変換の方法はどのようにしたらよいですか？

**デフォルトの名無しさん** · NG

>>944
Imaging使えば、TIFF読み込めるよ。(WinXPを除く)

**デフォルトの名無しさん** · NG

SUSIEプラグイン使ったら？

**931** · NG

馬鹿にするんじゃねえよ！！ｸｿ虫どもが！！！

(*´д`*)ウッ… VB初心者質問スレ Part15

(´д`)ウッ…　VB初心者質問スレ Part15