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

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

**デフォルトの名無しさん** · 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

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

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

DOにしるっ！

a = 0
b = 0

do while a = 0 '外側

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

MsgBox ("NG")
End
loop

MsgBox("OK")
End

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

あ、
最後のloopの手前にも Exit do が必要だに。

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

a = 0
b = 0

If a = 0 AND b <> 0 Then '外側

MsgBox ("NG")
End
End If

ここに処理

MsgBox("OK")
End

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

>>948-949
本来の目的以外に制御構文使うなよ・・・

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

見にくいコードだな。
VBばかり使ってるからこんなコード書くようになるんだ。

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

>>951

条件に見合ったら、一回だけループさせる。

本来の目的に沿ってるが（ｗ

ループの回数が１回だけでは本来の目的に沿わないというのか？
ならば、Ｅｘｉｔ　Ｄｏするときに a=1 とかしてやればいいだけの話。

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

>>953
まぁ、アホに反論した俺もたいがいアホなんだが。
絶対に0～1回しか実行されないと言うのは反復ではなく選択だと思うが。

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

VB厨を象徴する糞コード

VB · NG

VB一人で勉強中の者です。
トグルを利用したいのですが、VBで使用することは可能でしょうか？
今のところofficeのトグルボタンを参照して使用してますが、
officeがインストされてない環境だともちろんエラーがでてしまうので。
どうかご回答のほどよろしくお願いします。

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

トグルって何だっけ？
チェックボックスのプロパティ変えるとできるやつ？

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

トグルボタン＝へこんだり、もどったりするボタン。

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

ACCESS VBAをやってる奴にはなじみのコントロール。

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

>>958
やっぱそれやね。チェックボックスのStyleプロパティを
1-グラフィックスにすればできるよ>>956

VB · NG

>>960
大感謝！！ありがとうございます。
でもこれいざやってみると基本中の基本みたいっすね。
確認能力不足、痛切に感じます

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

>> 944
で書き込んだ、TIFFを変換するという内容なのですが、
レスいただいた内容のSusieプラグインでピクチャーボックス内に
表示することはできたのですが、
結局、JPEGに変換する必要がでてきました･･･

どうにかして、変換できないものでしょうか？
(市販のOCXなどでできそうなのですが、高いので･･･)

また、レスいただいている内容でImagingとありますが、
環境がXPなので使えそうにありません。

お願いします。

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

ImagingってＸＰで使えないのかなぁ？

**モモ様** · NG

助けてください
データフォームウィザードを使ってアクセスのデータベースに接続したい
のですがデータベースファイルを選択するとき、ファイルの名前をいれても
｢認識できません」ってでます。私はどうすれば、、、

ソフトはｖｂ６、アスセス２００２です。

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

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