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

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

**--679** ◆ExGQrDul2E · NG

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

**--679** ◆ExGQrDul2E · NG

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

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

いやどうでもいいし。

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

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

**687** · NG

解決して

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

＞＞687
SetWindowText

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

>>687
WM_SETICON

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

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

**687** · NG

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

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

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

**687** · NG

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

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

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

**687** · NG

>>709
その通りです (w

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

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

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

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

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

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

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

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

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

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

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

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

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

ご教授賜りたく。

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

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

**687** · NG

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

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

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

>>716
検索が悪い。

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

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

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

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

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

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

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

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

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

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

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

ｿｰｽいじれよ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

こんばんわ

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

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

こんばんは

ばーか

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

こんばんわんこ

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

こんばんま

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

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

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

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

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

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

と書けばよい。

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

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

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

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

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

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

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

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

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

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

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

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

>>739 コピペウザイ

**738** · NG

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

**738** · NG

>>740さんですた

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

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

**738** · NG

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

**738** · 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
だとエラーがでる・・

**738** · NG

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

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

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

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

くだらなくねえだろ

**738** · NG

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

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

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

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

>>751
ｵﾏｴﾓﾅｰ

**738** · NG

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

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

>>748
便乗質問ですが、

strTmp1
strTmp2

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

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

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

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

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

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

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

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

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

>>728
可能

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

**754** · NG

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

**746、738** · 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も知らなかったので検索キーワードも思いつきませんでした。
やはり分厚い本を最初から最後まで読まないとこういったことは覚えられないか。

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

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

**756** · NG

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

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

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

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

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

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

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

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

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

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

**756** · NG

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

**765** · NG

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

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

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

**738、746** · 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やこのようなことは配列やコレクションでないとできないのかも。
---------------------------------------
初心者がほえてるのは見苦しいが
まあ勝手にムカついてくれ

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

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

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

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

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

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

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

>>773 使えばいいだろ

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

いいよね

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

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

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

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

こまるよね

**738** · NG

そうでもないよ

◆ExGQrDul2E · NG

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

**777** · NG

そうだよ

**776.5** · NG

そうかな

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

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

**>782** · 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

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

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

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

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

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

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

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

弱い犬ほどよく吠える

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

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

**769** · NG

ぼけぼけですた

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

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

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

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

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

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

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

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

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

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

**VB信者** · NG

>>793がｲｲ事逝った

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

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

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

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

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

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

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

正直ＶＢを全くのド素人の状態から初めて１ヶ月チョット。
このままＶＢを頑張るか、他の言語へ乗り換えるか･･･。

なんか色んなスレＲＯＭってると、
ＶＢでは難しいこと出来ないみたいなことばっかかいてあったし。
どうなんでしょう？

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

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