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

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

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

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

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

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

>>964
一人称に「様」、普通にむかつきました。

モモ · NG

ごめんなさい。
訂正してお詫びします

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

>>962
ImageMagick の convert を使って変換するとか。
Windows 版もあるし。
http://www.melt.kyutech.ac.jp/~ueno/HowTo/imagemagick.html
ftp://ftp.eos.hokudai.ac.jp/pub/graphics/ImageMagick/windows

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

旧スレあげんな。>モモモ

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

１０００ゲットしるまではあげまくるぞ！

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

1000予約。

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

>>970
Err.Number = 17
Err.Description = "要求された操作は実行できません。"

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

（´・ω・｀）999予約

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

973 げっとぉっ～～

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

次スレの1000予約

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

インターネットの履歴を完全に消したいんだけど
インターネットのお気に入りとかの横にある履歴を消したただけで
インターネットの履歴は完全にけせますか？

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

>>975
無理

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

「インターネットの履歴」

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

え？無理なの。じゃあ後どこを消せばいいの？

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

履歴消したつもりのやつのPC見るの楽しい。

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

どっかにのこってんの？>>979

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

のこってるよ

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

どこにのこってますか？

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

そんなＰＣ見てどこが楽しいんや？

どこかちゃんと言え（ｗ

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

　　　　　　　　まもなくここは　乂1000取り合戦場乂　となります。

　　　＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞﾙｧ！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ（:::::::::::）　　,,､,､,,,　　　　　　　　　＼オーーーーーーーッ！！／
　　　　//三/|三|＼　　　　　∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　∪　 ∪　　　　　　（　　　　）　　　（　　　　）　　　（　　　　）　　　）
　,,､,､,,,　　　　　　　,,､,､,,,　　∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　,,､,､,,,　　　　　　（　　　　）　　　（　　　　）　　　（　　　　）　　　（　　　　）

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

　　　　　　　　まもなくここは　乂1000取り合戦場乂　となります。

　　　＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞﾙｧ！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ（:::1000::::）　　,,､,､,,,　　　　　　　　　＼オーーーーーーーッ！！／
　　　　//三/|三|＼　　　　　∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　∪　 ∪　　　　　　（　 992　）　　　（　 993　）　　　（　 994　）　995 ）
　,,､,､,,,　　　　　　　,,､,､,,,　　∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　,,､,､,,,　　　　　　（　 996　）　　　（　 997　）　　　（　 998　）　　　（　 999　）

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

　　　　　　　　まもなくここは　乂1000取り合戦場乂　となります。

　　　＼∧＿ﾍ　　　　　／￣￣￣￣￣￣￣￣￣￣￣￣
　,,､,､,,,　/ ＼〇ノゝ∩ ＜　1000取り合戦、いくぞｺﾞﾙｧ！！　　　　　　　,,､,､,,,
　　　　/三√ ﾟДﾟ)　/　　＼＿＿＿＿＿＿＿＿＿＿＿＿　　,,､,､,,,
　　　　/三/| ﾟＵﾟ|＼　　　　　　,,､,､,,,　　　　　　　　　　　　　　　　　　　　　　　,,､,､,,,
　,,､,､,,,　Ｕ（:::1000::::）　　,,､,､,,,　　　　　　　　　＼オーーーーーーーッ！！／
　　　　//三/|三|＼　　　　　∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　∪　 ∪　　　　　　（　 992　）　　　（　 993　）　　　（　 994　）　995 ）
　,,､,､,,,　　　　　　　,,､,､,,,　　∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
　　　　　　,,､,､,,,　　　　　　（　 996　）　　　（　 997　）　　　（　 998　）　　　（　 999　）

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

おまえらこのスレタイトル恥ずかしくありませんでしょうか?

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

ｵﾁｹﾂ
http://ime.nu/homepage2.nifty.com/rohizuka/ka/pa_003_a.htm

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

>>988
おまいは最低なやし。ぼけ。

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

いまいちもリア柄ーんの王（ｗ

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

よいしょ

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

えいさ

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

ハッ

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

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