(*´д`*)ウッ… VB初心者質問スレ Part15
■ このスレッドは過去ログ倉庫に格納されています
0001エロチカセブン
NGNGPart 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
0708687
NGNGTKatjushaMainForm
0709デフォルトの名無しさん
NGNG0711デフォルトの名無しさん
NGNG是非やり方教えて下され。（ｗ ＞かちゅ～しゃ
0712デフォルトの名無しさん
NGNG悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。
0713デフォルトの名無しさん
NGNGそのコピペうざい。
が、このｽﾚ見ているとその意見自体に当てはまる人は腐るほどいる。
そういった人たちが、職業がプログラマでないことを切に願う。
0714デフォルトの名無しさん
NGNG> どうもかちゅだとタイトルバーは変わるもタスクバーがそのままみたい
タスクトレイのことではないよね？
WM_SETICONでは大小両方のアイコンを変えてみた？
0715デフォルトの名無しさん
NGNGVCL製のアプリケーションではアプリケーションウィンドウというサイズ0の見えないウィンドウが存在している。
タスクバーの文字はこのアプリケーションウィンドウのタイトルなのでそれを変えればよい。
0716デフォルトの名無しさん
NGNGフォーム上でのマウスの右クリックメニューを作りたいのですが
ｻﾊﾟｰﾘ分かりません。
MSDNで引いても分かりませんでした。
（検索語が悪いのかな？）
教えていただけないでしょうか。
0717687
NGNGスマソ
後述の通り解決しますた
>>715
できました！確かにありました
クラス名：TApplication
タイトルバーのテキスト：かちゅ～しゃ
ナルホド目からうろこです
どうもでした
0718デフォルトの名無しさん
NGNG検索が悪い。
右クリックのイベントのとり方が分からないのか、メニューの作り方が分からないのか。
どちらにしろVBなら5分もあれば実装可能だな。
0719デフォルトの名無しさん
NGNGはい、メニューの作り方すら分かりません。
イベントのとり方はマウスクリックのイベントを追えばいいんでしょうか？
0720デフォルトの名無しさん
NGNGはい MouseDown ででも
検索なら 'PopupMenu メソッド' で探してみてください
てーかその程度ならMSDNでなくぐぐれば一発かと
0721デフォルトの名無しさん
NGNG(ﾟдﾟ)肛門から宿便が出ますた。
ありがとうございますた。
メニューエディタで作れんのかよ・・・・・・・
0722デフォルトの名無しさん
NGNG0723デフォルトの名無しさん
NGNG0724デフォルトの名無しさん
NGNGＶＢコマンドボタンを押すと選択したPDF文章を印刷する方法を教えてください。
0725デフォルトの名無しさん
NGNGこりゃまた豪快な質問だな。
0726デフォルトの名無しさん
NGNGVBコマンドボタンを押すとネット上からエッチな写真を収集する方法を教えてください。
0727デフォルトの名無しさん
NGNG0728デフォルトの名無しさん
NGNGということで、早速質問させて頂きます
今、Inetコントロールを使ってHTTPでアクセスするツールを作っているのですが
その際、User-AgentやRefferを変えることは可能なのでしょうか？
それらしきものは全く見当たらないのですが・・・
0729デフォルトの名無しさん
NGNGいきなりですが、質問させてください。
動作中のVBアプリがタスクマネージャのアプリケーションの項目に表示されないようにしたいのですが、可能でしょうか？
可能でしたら、方法を教えてもらえないでしょうか？ヒントだけでもありがたいです。
過去ログにあるようでしたらあると言って貰えると助かります。
よろしくお願いします。
0730デフォルトの名無しさん
NGNGWebbrowserコントロールをでブラウザを作ろうとしてるのですが
Ctrl + Nを押すとIEが立ち上がってしまいます。
IEが立ち上がらないようにするにはどうすればいいのでしょうか。
よろしくお願いします。
0731デフォルトの名無しさん
NGNGばーか
0732デフォルトの名無しさん
NGNG0733デフォルトの名無しさん
NGNG0734デフォルトの名無しさん
NGNG20 print suuji
30 end
これをVBで書いたらどうなるの？教えて偉い人！
0735デフォルトの名無しさん
NGNGＶＢに ｉｎｐｕｔに なるものは ない。
代わりに テキストボックスがある。
まず コマンドボタンと テキストボックスを貼り付けて
コマンドボタンをダブルクリックして 出てきたところに
msgbox text1.text
と 書けば よい。
0736デフォルトの名無しさん
NGNGＶＢにあるinputは ファイル等から読みこむものだ。
0737デフォルトの名無しさん
NGNG10: suuji = InputBox("suuji ..... ")
20: MsgBox suuji
30: End
0738デフォルトの名無しさん
NGNG改行コードの長さを求めると1が帰ってくる関数はあるの？
0739デフォルトの名無しさん
NGNG悪いことは言わないから（ｗ）、転職、または他部門への異動を真剣に
検討して頂きたい。技術のない技術者（言葉が矛盾しているが ｗ）の
存在は、顧客にとっても、同業者にとっても、迷惑（足手纏い）以外の
何者でもない。
0740デフォルトの名無しさん
NGNGCRで1バイト、LFで1バイトだが。
CRLFの改行は2バイトであってる。
メモ帳で改行一個のファイル作ってサイズ見て見れ？
2バイトだろ。
0741デフォルトの名無しさん
NGNG0744デフォルトの名無しさん
NGNGバイトじゃなく単に文字数ですよ
0746738
NGNGFor i=0 to 100
picture1.visible=false
next
のようにたくさんのピクチャボクスvisibleをいっぺんにfalseにできるけど、
picture1
picture2
picture3
のように独立したピクチャをいっぺんにいじりたい場合はどするの？
For i=0 to 100
(picture & i).visible=false
next
だとエラーがでる・・
0748デフォルトの名無しさん
NGNGControls("Picture" & i).Visible = False
くだらん質問ばかりすんなよ
0749デフォルトの名無しさん
NGNG0751デフォルトの名無しさん
NGNGくだらないのはお前自身
0752デフォルトの名無しさん
NGNGｵﾏｴﾓﾅｰ
0753738
NGNG気持ちはとても嬉しいですから(*^ _ ^*)
0754デフォルトの名無しさん
NGNG便乗質問ですが、
strTmp1
strTmp2
という変数があり、
For lngCnt = 1 To 2
strTmp & CStr(lngCnt) = ""
Next lngCnt
みたいなのをやりたいんですが、この場合はどうしたらいいんでしょうか？
0755デフォルトの名無しさん
NGNG配列にするのがベストかと。
0756デフォルトの名無しさん
NGNGシングルコーテーションで囲まれた
CSV形式のテキストファイルを作りたいのですが
どうやればいいのでしょうか？
お願いします。
0757デフォルトの名無しさん
NGNGやってみて分からない個所だけ聞けよ
丸投げはヤメレ
0759754
NGNGもちろん普通は配列にするのはわかってますが、
こういうのもできるのかなと思っての質問です。
0760746、738
NGNGFor 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デフォルトの名無しさん
NGNGPrintで一行分の文字列書けばいいんじゃ
0762756
NGNGってこと？
0763デフォルトの名無しさん
NGNGパブリックな変数なら CallByName で出来るかも。
試してないのであくまでも「かも」ですが。
0764デフォルトの名無しさん
NGNGそれでダメなのか？
0765デフォルトの名無しさん
NGNGobject.Execute [url[, operation[, data[, requestHeaders]]]]
MSDEのここのページを見ると詳しく書いてある。
requestHeaders の部分に必要なHttpヘッダを入れる。
0766デフォルトの名無しさん
NGNG文字列中にシングルクォーテションが入っていた場合が考慮されていない。
どのみち、CSVに書き出すのは簡単だが、取り出すのがめんどい。
0768765
NGNGInet1.Execute , , , "Referer: maeno.page" & vbCrLf & _
"User-Agent: Mybz/1.00" & vbCrLf
0769デフォルトの名無しさん
NGNGすいません、できれば、User-Agentとかを変える方法の
ヒントとかお願いできないでしょうか
0770738、746
NGNG-------------------------------------------------
実験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デフォルトの名無しさん
NGNG１０時５０分から １４時２７分まで 考えてたのか。
ヒマだね～～～。
0772デフォルトの名無しさん
NGNG暇そうだな。お前。
0773デフォルトの名無しさん
NGNG0774デフォルトの名無しさん
NGNG0775 デフォルトの名無しさん
NGNG0776デフォルトの名無しさん
NGNG使う言語の指定が なければ Ｄｅｌｐｈｉを使いたいぜーーー。
ホント ＶＢしか しらねぇやつばっかで 困っちまうぜ。
0777デフォルトの名無しさん
NGNG0778738
NGNG0780777
NGNG0781776.5
NGNG0782デフォルトの名無しさん
NGNGDataGridをクリックした場合、その行のレコードの内容を取得したいのですが、
どうしたらいいのか教えてください。
0783>782
NGNG"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デフォルトの名無しさん
NGNG本当のプロもいるのよね
0785デフォルトの名無しさん
NGNG0786デフォルトの名無しさん
NGNGマジレス。どの辺がプロ？
0787デフォルトの名無しさん
NGNG0788デフォルトの名無しさん
NGNGデータベースをやってるとプロの気配がただようんだ。
0789769
NGNG>>765
めっちゃどうもありが㌧
0790デフォルトの名無しさん
NGNGVBって、とっつきやすいから他言語を使っている人から見れば想像を
絶するような初心者が多い。
このスレの趣旨であり大部分を占める初心者質問からみれば十分まと
もなコードだと思うよ。
0791デフォルトの名無しさん
NGNGつーかこれあきらかにMS系のサンプルコードだと思うんだが。
0792デフォルトの名無しさん
NGNGDataGridコントロールにRecordSetを連結しているという事は、
そのレコードの内容は既にグリッドに表示されてると思うのだが。
0793デフォルトの名無しさん
NGNG0795デフォルトの名無しさん
NGNG0796デフォルトの名無しさん
NGNG0797デフォルトの名無しさん
NGNGftp接続したサーバー(linux)のディレクトリを
表示することはできますか？
0798デフォルトの名無しさん
NGNGこのままＶＢを頑張るか、他の言語へ乗り換えるか･･･。
なんか色んなスレＲＯＭってると、
ＶＢでは難しいこと出来ないみたいなことばっかかいてあったし。
どうなんでしょう？
0799デフォルトの名無しさん
NGNG0800デフォルトの名無しさん
NGNGVBで出来ないことも実際あるけどそれが難しいこととは別の話しだし。
0801デフォルトの名無しさん
NGNGそこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
setattr関数を使って属性を変更してまた戻しています。
で、質問なのですが、
「最近使ったファイル」を調べたいのですが、これは「隠しフォルダ」になっています。
MSDNで調べてみると。setattr関数って、ファイルしか属性変更できないみたいなんですけど、
どのように、フォルダの属性を変更すればよいのでしょうか？
あるいは、属性変更せずに隠しフォルダの中身を参照することはできるのでしょうか？
どなたか分かる方ご教授願います。
0802デフォルトの名無しさん
NGNG参照ってなにで参照してんのよ？
> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
> setattr関数を使って属性を変更してまた戻しています。
つか、やめれ。
0803801
NGNG>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。
>> そこで、getattr関数を使って、ファイルの属性を調べ、隠しファイルであれば
>> setattr関数を使って属性を変更してまた戻しています。
>つか、やめれ。
申し訳ございませんが、なぜ駄目なのか教えていただけないでしょうか？
0804追記@801
NGNG>参照ってなにで参照してんのよ？
フォルダの中身を調べて、中のファイルのパス名を取り出したいのです。
ですから、Dir関数を使おうかなと
0805デフォルトの名無しさん
NGNGハードウェアよりのことはCやアセンブラ。
データベース系はVB。
VBやってるとVBscriptが使えるASPの習得も楽で、
ASP + SQL Server を運営して2ちゃんのようなサイトを作ることもできる。
0806デフォルトの名無しさん
NGNG0807デフォルトの名無しさん
NGNG
■ このスレッドは過去ログ倉庫に格納されています