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

[0001 エロチカセブン NG NG]

　　Part 1 http://piza.2ch.net/tech/kako/968/968328471.html
　　Part 2 http://piza.2ch.net/tech/kako/990/990793224.html
　　Part 3 http://piza2.2ch.net/tech/kako/1000/10005/1000523122.html
　　Part 4 http://pc.2ch.net/tech/kako/1006/10069/1006922992.html
　　Part 5 http://pc.2ch.net/tech/kako/1010/10106/1010624646.html
　　Part 6 http://pc.2ch.net/tech/kako/1013/10138/1013844542.html
　　Part 7 http://pc.2ch.net/tech/kako/1015/10158/1015836357.html
　　Part 8 http://pc.2ch.net/tech/kako/1018/10187/1018794901.html
　　Part 9 http://pc.2ch.net/tech/kako/1020/10208/1020830472.html
　　Part10 http://pc.2ch.net/tech/kako/1022/10221/1022127528.html
　　Part11 http://pc.2ch.net/tech/kako/1024/10243/1024380249.html
　　Part12 http://pc3.2ch.net/test/read.cgi/tech/1026642565/
　　Part13 http://pc3.2ch.net/test/read.cgi/tech/1029241786/l50
Win32 API関連スレ
　　Win32API 質問箱 Build4
　　http://pc.2ch.net/test/read.cgi/tech/1023361418/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
４．インストーラーなどの質問もOK。
五．下ネタもたまにならOK

[0698 -- NG NG]

>>697
これ僕じゃないです

[0699 --679 ◆ExGQrDul2E NG NG]

あのー
>>697は
わたしじゃないです。トリップつけてみました。

[0700 --679 ◆ExGQrDul2E NG NG]

これ僕じゃないと言ってる
>>698
も僕じゃないです。というより僕の書き込みを予想して先に698のようなカキコをしたんでしょうね。
だいぶ前のスレの伝説の177さんもだいぶにせものにやられてたようですが。

[0701 デフォルトの名無しさん NG NG]

いやどうでもいいし。

[0702 デフォルトの名無しさん NG NG]

っていうかコテハン　いらないよ。
名前書かなくてもいいしね。
誰が　どの発言でもいいのだ。
問題が　解決されれば。

[0703 687 NG NG]

解決して

[0704 デフォルトの名無しさん NG NG]

＞＞687
SetWindowText

[0705 デフォルトの名無しさん NG NG]

>>687
WM_SETICON

[0706 デフォルトの名無しさん NG NG]

友達いない君がここにも出没しているようだね。

[0707 687 NG NG]

>>704-705
と私も思ったんですがダメでした

申し遅れましたが変えたいアプリとはかちゅ〜しゃです
どうもかちゅだとタイトルバーは変わるもタスクバーがそのままみたい
フツーのアプリだとちゃんと変わりますのでご回答としはバッチリなのですが
ホント申し訳ないです

つーワケでよろしくおながいします

[0708 687 NG NG]

あっ！かちゅ〜しゃのクラス名はこれでいいと思います
TKatjushaMainForm

[0709 デフォルトの名無しさん NG NG]

みんな会社や学校でかちゅ〜しゃ使おうと必死だな（ｗ

[0710 687 NG NG]

>>709
その通りです (w

[0711 デフォルトの名無しさん NG NG]

興味津々デスワ。
是非やり方教えて下され。（ｗ　＞かちゅ〜しゃ

[0712 デフォルトの名無しさん NG NG]

>>711
悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。

[0713 デフォルトの名無しさん NG NG]

>>712
そのコピペうざい。


が、このｽﾚ見ているとその意見自体に当てはまる人は腐るほどいる。
そういった人たちが、職業がプログラマでないことを切に願う。

[0714 デフォルトの名無しさん NG NG]

>>707
> どうもかちゅだとタイトルバーは変わるもタスクバーがそのままみたい

タスクトレイのことではないよね？
WM_SETICONでは大小両方のアイコンを変えてみた？

[0715 デフォルトの名無しさん NG NG]

>>707
VCL製のアプリケーションではアプリケーションウィンドウというサイズ0の見えないウィンドウが存在している。
タスクバーの文字はこのアプリケーションウィンドウのタイトルなのでそれを変えればよい。

[0716 デフォルトの名無しさん NG NG]

ご教授賜りたく。

フォーム上でのマウスの右クリックメニューを作りたいのですが
ｻﾊﾟｰﾘ分かりません。
MSDNで引いても分かりませんでした。
（検索語が悪いのかな？）

教えていただけないでしょうか。

[0717 687 NG NG]

>>714
スマソ
後述の通り解決しますた

>>715
できました！確かにありました
クラス名：TApplication
タイトルバーのテキスト：かちゅ〜しゃ
ナルホド目からうろこです
どうもでした

[0718 デフォルトの名無しさん NG NG]

>>716
検索が悪い。


右クリックのイベントのとり方が分からないのか、メニューの作り方が分からないのか。
どちらにしろVBなら5分もあれば実装可能だな。

[0719 デフォルトの名無しさん NG NG]

>>718
はい、メニューの作り方すら分かりません。
イベントのとり方はマウスクリックのイベントを追えばいいんでしょうか？

[0720 デフォルトの名無しさん NG NG]

>>719
はい MouseDown ででも
検索なら 'PopupMenu メソッド' で探してみてください
てーかその程度ならMSDNでなくぐぐれば一発かと

[0721 デフォルトの名無しさん NG NG]

>>720
(ﾟдﾟ)肛門から宿便が出ますた。
ありがとうございますた。



メニューエディタで作れんのかよ・・・・・・・

[0722 デフォルトの名無しさん NG NG]

かちゅ〜しゃといえば、二重起動防止してあるけどこれ解除する方法はないの？

[0723 デフォルトの名無しさん NG NG]

ｿｰｽいじれよ

[0724 デフォルトの名無しさん NG NG]

質問させてください。
ＶＢコマンドボタンを押すと選択したPDF文章を印刷する方法を教えてください。

[0725 デフォルトの名無しさん NG NG]

>>724
こりゃまた豪快な質問だな。

[0726 デフォルトの名無しさん NG NG]

質問させてください。
VBコマンドボタンを押すとネット上からエッチな写真を収集する方法を教えてください。

[0727 デフォルトの名無しさん NG NG]

フォームに自爆ボタンを付けてください。

[0728 デフォルトの名無しさん NG NG]

こんなスレがあったとわっ

ということで、早速質問させて頂きます
今、Inetコントロールを使ってHTTPでアクセスするツールを作っているのですが
その際、User-AgentやRefferを変えることは可能なのでしょうか？
それらしきものは全く見当たらないのですが・・・

[0729 デフォルトの名無しさん NG NG]

こんばんは。初めまして。
いきなりですが、質問させてください。

動作中のVBアプリがタスクマネージャのアプリケーションの項目に表示されないようにしたいのですが、可能でしょうか？
可能でしたら、方法を教えてもらえないでしょうか？ヒントだけでもありがたいです。
過去ログにあるようでしたらあると言って貰えると助かります。
よろしくお願いします。

[0730 デフォルトの名無しさん NG NG]

こんばんわ

Webbrowserコントロールをでブラウザを作ろうとしてるのですが
Ctrl + Nを押すとIEが立ち上がってしまいます。
IEが立ち上がらないようにするにはどうすればいいのでしょうか。
よろしくお願いします。

[0731 デフォルトの名無しさん NG NG]

こんばんは

ばーか

[0732 デフォルトの名無しさん NG NG]

こんばんわんこ

[0733 デフォルトの名無しさん NG NG]

こんばんま

[0734 デフォルトの名無しさん NG NG]

10 input "suuji ..... ",suuji
20 print suuji
30 end

これをVBで書いたらどうなるの？教えて偉い人！

[0735 デフォルトの名無しさん NG NG]

>>734
ＶＢに ｉｎｐｕｔに なるものは ない。
代わりに テキストボックスがある。

まず コマンドボタンと テキストボックスを貼り付けて
コマンドボタンをダブルクリックして 出てきたところに
msgbox text1.text

と 書けば よい。

[0736 デフォルトの名無しさん NG NG]

あ もちろん ７３４に 書かれている 意味合いのｉｎｐｕｔが ないということだよ。

ＶＢにあるinputは ファイル等から読みこむものだ。

[0737 デフォルトの名無しさん NG NG]

これでいいだろ？ (w
10: suuji = InputBox("suuji ..... ")
20: MsgBox suuji
30: End

[0738 デフォルトの名無しさん NG NG]

Len(vbCrLf)を実行するとなんと2が返ってくるけど1じゃないのはなぜ？
改行コードの長さを求めると1が帰ってくる関数はあるの？

[0739 デフォルトの名無しさん NG NG]

>>738
悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。

[0740 デフォルトの名無しさん NG NG]

>>738
CRで1バイト、LFで1バイトだが。
CRLFの改行は2バイトであってる。
メモ帳で改行一個のファイル作ってサイズ見て見れ？
2バイトだろ。

[0741 デフォルトの名無しさん NG NG]

>>739 コピペウザイ

[0742 738 NG NG]

>>740
うおーそうだったのか。1+1で2バイトだったなんて。
ありがとうございます。感激。

[0743 738 NG NG]

>>740さんですた

[0744 デフォルトの名無しさん NG NG]

>>740 間違ってるよ
バイトじゃなく単に文字数ですよ

[0745 738 NG NG]

>>740さん >>744さん
1文字+1文字で2が返ってくるということですね。了解っす。

[0746 738 NG NG]

Pcture1(i)のようにピクチャーボックスが配列になってたら
For i=0 to 100
picture1.visible=false
next
のようにたくさんのピクチャボクスvisibleをいっぺんにfalseにできるけど、
picture1
picture2
picture3
のように独立したピクチャをいっぺんにいじりたい場合はどするの？
For i=0 to 100
(picture & i).visible=false
next
だとエラーがでる・・

[0747 738 NG NG]

>>746
3行目
picture1(i).visible=false
ですた

[0748 デフォルトの名無しさん NG NG]

>>746-747
Controls("Picture" & i).Visible = False
くだらん質問ばかりすんなよ

[0749 デフォルトの名無しさん NG NG]

くだらなくねえだろ

[0750 738 NG NG]

>>748さん
VB極めた気配がしまつ。。
ちょっとやってみて報告します。
>>749さん
私は初心者に超がつくのかもしれません。超初心者スレができないかな。

[0751 デフォルトの名無しさん NG NG]

>>748
くだらないのはお前自身

[0752 デフォルトの名無しさん NG NG]

>>751
ｵﾏｴﾓﾅｰ

[0753 738 NG NG]

みなさん、私なんかの為にけんかしないでください。
気持ちはとても嬉しいですから(*^ _ ^*)

[0754 デフォルトの名無しさん NG NG]

>>748
便乗質問ですが、

strTmp1
strTmp2

という変数があり、
For lngCnt = 1 To 2
strTmp & CStr(lngCnt) = ""
Next lngCnt

みたいなのをやりたいんですが、この場合はどうしたらいいんでしょうか？

[0755 デフォルトの名無しさん NG NG]

>>754
配列にするのがベストかと。

[0756 デフォルトの名無しさん NG NG]

質問です。
シングルコーテーションで囲まれた
CSV形式のテキストファイルを作りたいのですが
どうやればいいのでしょうか？
お願いします。

[0757 デフォルトの名無しさん NG NG]

>>756
やってみて分からない個所だけ聞けよ
丸投げはヤメレ

[0758 デフォルトの名無しさん NG NG]

>>728
可能

>>739
同様の質問が過去ログにある

[0759 754 NG NG]

>>755
もちろん普通は配列にするのはわかってますが、
こういうのもできるのかなと思っての質問です。

[0760 746、738 NG NG]

Dim i As Integer
For i = 1 To 2
Controls("Picture" & i).Visible = False 'いったん消して
Next

Dim Str1 As String
Str1 = "Picture" 'こんなこともできるのか？
For i = 1 To 2
Controls(Str1 & i).Visible = True '再び表示
Next

ありがとうございました。
見事にできました。
Contorolsも知らなかったので検索キーワードも思いつきませんでした。
やはり分厚い本を最初から最後まで読まないとこういったことは覚えられないか。

[0761 デフォルトの名無しさん NG NG]

>>756
Printで一行分の文字列書けばいいんじゃ

[0762 756 NG NG]

Print #1,"'" & Test1 & "','" & Test2 & "'"
ってこと？

[0763 デフォルトの名無しさん NG NG]

>>759
パブリックな変数なら CallByName で出来るかも。
試してないのであくまでも「かも」ですが。

[0764 デフォルトの名無しさん NG NG]

>>762
それでダメなのか？

[0765 デフォルトの名無しさん NG NG]

>>728
object.Execute [url[, operation[, data[, requestHeaders]]]]
MSDEのここのページを見ると詳しく書いてある。
requestHeaders　の部分に必要なHttpヘッダを入れる。

[0766 デフォルトの名無しさん NG NG]

>>764
文字列中にシングルクォーテションが入っていた場合が考慮されていない。

どのみち、CSVに書き出すのは簡単だが、取り出すのがめんどい。

[0767 756 NG NG]

>>764
なんか簡単な方法あるのかなと思ったのよ
長くなると面倒くさくて
ありがとう

[0768 765 NG NG]

そぉりぃ。MSDNでした。
Inet1.Execute , , , "Referer: maeno.page" & vbCrLf & _
"User-Agent: Mybz/1.00" & vbCrLf

[0769 デフォルトの名無しさん NG NG]

>>758
すいません、できれば、User-Agentとかを変える方法の
ヒントとかお願いできないでしょうか

[0770 738、746 NG NG]

オレが738の書き込み時間から今の時間までに試したり思ったりしたこと。
-------------------------------------------------
実験1
Dim i As Integer
Dim Ary() As Integer
i = 1
ReDim Ary(i) '動的配列のサイズ指定に変数iを使うことができた。
Dim sAry(i) As Integer '静的配列の宣言にはこの便利な方法は使えなかった。
------------------------------------
実験2
Dim j=5 '変数の宣言と同時に値を代入することはできなかった。
------------------------------------
思ったこと1
>>754のようなかんじのプログラム。
For i=1 to 10
Dim BaseName & i as integer'たぶんエラーがでるけど、こんなかんじで変数を宣言できたら便利
Next

754やこのようなことは配列やコレクションでないとできないのかも。
---------------------------------------
初心者がほえてるのは見苦しいが
まあ勝手にムカついてくれ

[0771 デフォルトの名無しさん NG NG]

>>770
１０時５０分から １４時２７分まで 考えてたのか。
ヒマだね〜〜〜。

[0772 デフォルトの名無しさん NG NG]

>>771
暇そうだな。お前。

[0773 デフォルトの名無しさん NG NG]

VB使うくらいならDelphi使いたいよな

[0774 デフォルトの名無しさん NG NG]

>>773 使えばいいだろ

[0775 デフォルトの名無しさん NG NG]

いいよね

[0776 デフォルトの名無しさん NG NG]

>>773
使う言語の指定が なければ Ｄｅｌｐｈｉを使いたいぜーーー。

ホント ＶＢしか しらねぇやつばっかで 困っちまうぜ。

[0777 デフォルトの名無しさん NG NG]

こまるよね

[0778 738 NG NG]

そうでもないよ

[0779 ◆ExGQrDul2E NG NG]

↑にせものをにせものと見抜けないとレスを返すのも難しい。

[0780 777 NG NG]

そうだよ

[0781 776.5 NG NG]

そうかな

[0782 デフォルトの名無しさん NG NG]

DataGridコントロールにRecordSetを連結させたあと、
DataGridをクリックした場合、その行のレコードの内容を取得したいのですが、
どうしたらいいのか教えてください。

[0783 >782 NG NG]

Private Const SELECT_STRING As String = _
"SELECT * FROM Contacts ORDER BY LastName, FirstName"
Private Const CONNECT_STRING As String = _
"Data Source=Bender\NETSDK;Initial " & _
"Catalog=Contacts;User Id=sa"

Private m_DataSet As DataSet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As _
System.EventArgs) Handles MyBase.Load
Dim data_adapter As SqlDataAdapter

data_adapter = New SqlDataAdapter(SELECT_STRING, _
CONNECT_STRING)

data_adapter.TableMappings.Add("Table", "Contacts")

m_DataSet = New DataSet()
data_adapter.Fill(m_DataSet)

dgContacts.DataSource = m_DataSet.Tables("Contacts")
End Sub

[0784 デフォルトの名無しさん NG NG]

>>783みたいに
本当のプロもいるのよね

[0785 デフォルトの名無しさん NG NG]

この程度でプロなら自称素人の私はプロ中のプロだな

[0786 デフォルトの名無しさん NG NG]

>>784
マジレス。どの辺がプロ？

[0787 デフォルトの名無しさん NG NG]

弱い犬ほどよく吠える

[0788 デフォルトの名無しさん NG NG]

>>786
データベースをやってるとプロの気配がただようんだ。

[0789 769 NG NG]

ぼけぼけですた

>>765
めっちゃどうもありが�d

[0790 デフォルトの名無しさん NG NG]

>>786
VBって、とっつきやすいから他言語を使っている人から見れば想像を
絶するような初心者が多い。

このスレの趣旨であり大部分を占める初心者質問からみれば十分まと
もなコードだと思うよ。

[0791 デフォルトの名無しさん NG NG]

>783
つーかこれあきらかにMS系のサンプルコードだと思うんだが。

[0792 デフォルトの名無しさん NG NG]

>>782
DataGridコントロールにRecordSetを連結しているという事は、
そのレコードの内容は既にグリッドに表示されてると思うのだが。

[0793 デフォルトの名無しさん NG NG]

たぶんこのスレ、気が弱い人は質問できない。

[0794 VB信者 NG NG]

>>793がｲｲ事逝った

[0795 デフォルトの名無しさん NG NG]

そもそも気の弱い人は２ちゃんに来ない。

[0796 デフォルトの名無しさん NG NG]

ひろゆきが好きでないと2ちゃんに来れない

[0797 デフォルトの名無しさん NG NG]

vb6のdirlistboxやfilelistbox等を使用して
ftp接続したサーバー(linux)のディレクトリを
表示することはできますか？