(*´д`*)ｱﾊｧ… VB初心者質問スレ Part23
■ このスレッドは過去ログ倉庫に格納されています
0001名無しさんだよもん ◆ZAYX.QGihc
NGNGﾌﾞﾋﾞﾀﾝがどんな厨房疑問でもやさしく答えるﾌﾞﾋﾞ。
ﾌﾞﾋﾞﾀﾝは時に私であり、時には別の人ﾌﾞﾋﾞ。
関連スレは>>2ﾌﾞﾋﾞ。
Part12 http://pc3.2ch.net/tech/kako/1026/10266/1026642565.html
Part13 http://pc3.2ch.net/tech/kako/1029/10292/1029241786.html
Part14 http://pc3.2ch.net/tech/kako/1030/10309/1030947162.html
Part15 http://pc3.2ch.net/tech/kako/1032/10327/1032706491.html
Part16 http://pc3.2ch.net/tech/kako/1034/10343/1034302532.html
Part17 http://pc3.2ch.net/tech/kako/1036/10361/1036154952.html
Part18 http://pc3.2ch.net/tech/kako/1038/10381/1038103769.html
Part19 http://pc3.2ch.net/tech/kako/1039/10398/1039859691.html
Part20 http://pc2.2ch.net/tech/kako/1041/10418/1041879465.html
Part21 http://pc2.2ch.net/test/read.cgi/tech/1044028945/
Part22 http://pc2.2ch.net/test/read.cgi/tech/1046354784/
VB.net関連スレ
【老若】VB.net質問ｽﾚ【男女】 (Part2)
http://pc2.2ch.net/test/read.cgi/tech/1043629429/
心得
壱．質問する前に過去ログにも目を通してみる。
弐．質問する前に MSDN などで調べてみる。
参．VBScript もこのスレでOK。
四．インストーラーなどの質問もOK。
五．下ネタもたまにならOK。
六. ﾌﾞﾋﾞﾀﾝ情報募集中。
0232デフォルトの名無しさん
NGNGメニューの内容をドラッグ&ドロップできるようにするにはどうしたら良いのですか？
0234デフォルトの名無しさん
NGNGほほぅ、WINとMACの両方の環境にBASP21ねえ。流石ですな。
02371 ◆ExGQrDul2E
NGNG0238デフォルトの名無しさん
NGNG02391 ◆ExGQrDul2E
NGNGオレも彼にはWindows用とMac用の2つのソフトを作った方がいいといいたいのだが。
>>231
バイナリをテキスト文字列にデコードしたり、それをエンコードする技もあるな。
それならフォーム送信でもクエリーストリングでもおくれる。
が、たしかPostには〜文字以内でないと送信できないという決まりがあったようなきがする。
0240デフォルトの名無しさん
NGNG＞たしかPostには〜文字以内でないと送信できないという決まりがあったようなきがする。
GETじゃない？
じゃないとあぷろだ系が成立しない予感・・・ってあれは分割して送ってるんだっけか？
02411調べてみた ◆ExGQrDul2E
NGNG分割送信かどうかはまだ知らないけど、
GETは環境依存の制限（アパッチェやIISによって異なる）があり、
POSTは無制限とのこと。
0242デフォルトの名無しさん
NGNGおれがマクでもらった唯一のウィルスは、Officeのマクロウィルスだったっぽい。
0243デフォルトの名無しさん
NGNGWebアプリならVB系よりPHPとかPerl, Ruby, Python っちゅーフリーな方からい
けや
0244デフォルトの名無しさん
NGNGC言語ぐらい簡単に書ければよいのですが。
0245デフォルトの名無しさん
NGNGdim a(5) as integer;
0246デフォルトの名無しさん
NGNG0247デフォルトの名無しさん
NGNGVBでは配列は無条件で初期化される。
0248デフォルトの名無しさん
NGNG0251デフォルトの名無しさん
NGNG？
0252デフォルトの名無しさん
NGNGIE で、認証ダイアログがポップアップするページにログインするには
どんな感じでやればよいのでしょうか？
ポップアップが、読み込み完了以前のイベントなのでどうしたものかと
思ってます。
0253デフォルトの名無しさん
NGNGGETしようと考えてるんですが、Execute->GetChunkの流れで
非同期にダウンロードしながらGetChunkされたデータをいぢりたいのです。
でも、Shift-jisに代表されるようなマルチバイトな文字セットの場合、
必ず文字の途中でブッタ切られる場合が存在しますよね。
そのまま無視して文字列型に突っ込むと、そのままUnicodeに変換されて
データの最後がヌルになってしまいます。（ヌルとは限らないかもしれないが）
すべての元凶は文字列をUnicodeで扱うString型にある訳ですが、スマートな対策方法はありませんか？
つまり、文字列が完成した状態でデータを受け取りたいのです。
一度バイナリファイルに書き込んでしまえばとりあえずは回避できますが、
その方法を取った場合、ダウンロードが完了するまで触れません。
バイト配列を利用すると、小回りが効かなくなってしまいますし。
ぁぁもうぬるぽ
0254デフォルトの名無しさん
NGNG0255デフォルトの名無しさん
NGNGMSって突然仕様変更したりするから、「現在の言語仕様を前提とする実装」は
避けた方が無難では？
0256デフォルトの名無しさん
NGNGで、それで何が書けるというのだ。
0257デフォルトの名無しさん
NGNGProperty Get をつかって二次元配列っぽく見せるとみためがきれいかも
0258デフォルトの名無しさん
NGNG40個の要素の配列だと、Hairetu(0)="Isikawa" Hairetu(1)="Inoue"...と40個
書かないといけないでしょ。H(0)="Isikawa" H(1)="Inoue"...だと楽かなと
単純に思いました。CだとHairetu[][40]={"Isikawa","Inoue"...};と書けるので。
>>257
Googleでちょっと調べてみたのですが、それ以外も初めて見る単語がたくさんあり
分かりませんでした。ブランク後のVB暦数日なので。修行します。情報ありがとう
ございました。
0259デフォルトの名無しさん
NGNG'A1:配列の型がVariantで構わない場合
Sub a()
Dim a, i As Long
a = Array("0", "...", "39") '初期値の設定
For i = 0 To UBound(a)
Debug.Print i, a(i)
Next
End Sub
'A2:配列の型をStringにしたい場合
Sub a2()
Dim str(39) As String
DimArrStr str, Array( _
"0", "...", "39" )
Dim a
For Each a In str
Debug.Print a
Next
End Sub
Sub DimArrStr(str() As String, var As Variant)
Dim i As Long
For i = 0 To UBound(var)
str(i) = var(i)
Next
End Sub
0260デフォルトの名無しさん
NGNGSub a2()
Dim str() As String
DimArrStr str, Array("0", "...", "39") '配列へ初期値を設定
Dim a
For Each a In str
Debug.Print a
Next
End Sub
Sub DimArrStr(str() As String, var As Variant)
Dim i As Long
ReDim str(UBound(var))
For i = 0 To UBound(var)
str(i) = var(i)
Next
End Sub
0261デフォルトの名無しさん
NGNG理由はVBだと馬鹿にされるし限界を感じてきたからです。
以前VC++の本を4、5冊買って勉強したけどさっぱり解りませんでした。
でも今なら出来そうな気がします！
無理ですか？
0262デフォルトの名無しさん
NGNG無理。あきらめろ。
0263デフォルトの名無しさん
NGNG他の言語をやってなければやってないほど無理ってことで。
最終的には根性。
0264デフォルトの名無しさん
NGNG>スレ違いかもしれませんが、
違っているわけではないと思う。
>VBからVCに移行したいと思っています。
がんばってください。
>理由はVBだと馬鹿にされるし
こんなんを理由にするような奴は使いもんにならん。
>限界を感じてきたからです。
あなたがVBの限界まで使いこなしているとは到底思えません。
あなた自身の限界です。
>以前VC++の本を4、5冊買って勉強したけどさっぱり解りませんでした。
アホすぎ。
>でも今なら出来そうな気がします！
そうですか、がんばってください。
>無理ですか？
大丈夫です。がんばってください。
0265デフォルトの名無しさん
NGNG0266デフォルトの名無しさん
NGNG>理由はVBだと馬鹿にされるし限界を感じてきたからです。
ひとそれぞれなんだろうけど、漏れはVB使いだからといって、人に馬鹿にされた
ことはないよ。むしろ、一目おかれていると思う。
まぁ、陰で何を言われてるかはわからないけどね。
あくまで言語なんてのは道具なんだから、重要なのは使い方でしょ。馬鹿なC/C++/Java
使いより、しっかりしたVB使いのほうがよっぽど使える場面もあるさ。
0267デフォルトの名無しさん
NGNGありがとうございました。Debug、Print、UBoundが分からなかったのですが、Arrayは分かりました。
Privata Sub Form_Road()
classChara=Array("Isikawa","Inoue","Ueda","Enomoto")
Label1.Caption=classChara(1)
End Sub
ついでにお教えいただきたいのですが、2次元配列はどうすればよいのですか？
classChara(0)=Array("Isikawa","Inoue","Ueda","Enomoto")
classChara(1)=Array("Tarou","Zirou","Saburou","Sirou")
Label1.Caption=classChara(3)(2)
見たいにやったのですができませんでした。
0268デフォルトの名無しさん
NGNGPrivate Sub a3()
Dim classChara(3, 1)
DimStrArr2 classChara, Array( _
"Isikawa", "Tarou", _
"Inoue", "Zirou", _
"Ueda", "Saburou", _
"Enomoto", "Sirou")
'確認
Dim i, j
For i = 0 To UBound(classChara, 1)
For j = 0 To UBound(classChara, 2)
Debug.Print "classChara("; i; ","; j; ")="; _
classChara(i, j)
Next
Next
End Sub
Sub DimStrArr2(str, var As Variant)
Dim iCol As Long, iRow As Long, i As Long
i = 0
For iRow = 0 To UBound(str, 1)
For iCol = 0 To UBound(str, 2)
str(iRow, iCol) = var(i)
i = i + 1
Next
Next
End Sub
0269デフォルトの名無しさん
NGNGあと、イミディエイトウィンドウを表示させて。
Ctrl+G か メニューから表示→イミディエイトウィンドウを選択。
それでdebug.printが出力されるから。
0270デフォルトの名無しさん
NGNG0271261
NGNG以前会社の面接で
『VBは誰でも使えるから…』
っていわれました。
やっぱり馬鹿はVBを使っていろって事ですね！
0272デフォルトの名無しさん
NGNG0273デフォルトの名無しさん
NGNG0274デフォルトの名無しさん
NGNG0275デフォルトの名無しさん
NGNG言語に関係ないんだから、VBだから簡単ってことにはならないね。
簡単って言ってる奴が馬鹿なだけでしょ。面接官レベル。
0276デフォルトの名無しさん
NGNG0277デフォルトの名無しさん
NGNGお前VBしか使えないだろ？
0278デフォルトの名無しさん
NGNGおまえ素人だろ。
0279デフォルトの名無しさん
NGNG何が言いたいのかよくわからんが。
オブジェクト指向がオブジェクト指向言語以外では役に立たないとか言ってる奴は低脳。と言いたいのなら同意。
0280デフォルトの名無しさん
NGNG低脳は>>277ですね？
0281デフォルトの名無しさん
NGNGhttp://pc.2ch.net/test/read.cgi/prog/1044381618/
0282デフォルトの名無しさん
NGNG藁た。
0283デフォルトの名無しさん
NGNG書いてあることに間違いは無いし、反論ももう無いんだけど。
まさか、本気でネタだと思っているの？
だとしたらあんたの技術力はものすごく低いことになるんだけど。
0284デフォルトの名無しさん
NGNGと、言うか君はもうちょっとユーモアを解しなさい。
0285デフォルトの名無しさん
NGNGと思ってた。でも、中にはMFCがないと何もできないやつもいるんだね。
0286デフォルトの名無しさん
NGNGVCL使いはそれに依存したりはあんまりしないけどな。
0287277
NGNG0288デフォルトの名無しさん
NGNG動画くん使いたいのですが、
ＶＢあんまり理解できません。
認証（？）が必要になるそうでコマンドプロントから
打ち込んでみたりなんですけど
一気にインストールできたりしないんでしょうか？？
当方ＸＰホームエディションです★
0289デフォルトの名無しさん
NGNGVBユーザはバカばっかり。
0290デフォルトの名無しさん
NGNG0291デフォルトの名無しさん
NGNGＶＢまったく理解できてないです。
つーか意味がわかりません。
詳しいサイト見つからなくて・・・・
0292デフォルトの名無しさん
NGNG0293デフォルトの名無しさん
NGNG∧＿∧
（ ´∀｀）＜ぬるぽ
0294デフォルトの名無しさん
NGNG動画くん使いたいくらいで手を出すべきできではない？
0295デフォルトの名無しさん
NGNG中途半端な気持ちでこの世界に入ると、VBしかできないアフォになる事が多々あるので、
手を出すべきではないかと思われます
0296デフォルトの名無しさん
NGNGその「動画くん」つーのは、http://hp.vector.co.jp/authors/VA022444/ ←これ？
これで何をしたいの？
0297デフォルトの名無しさん
NGNGなるほど。
アホにアホに重ねて申し訳ないんですが
ＶＢ→アフォ
ほかにも賢いのがあるっツーことですね。
0298デフォルトの名無しさん
NGNGＡＰＩ使っててＡＰＩが何か解って無い人多いし。
0299デフォルトの名無しさん
NGNGMPGから静止画切り出したいんです。
動画くんはそれです。
0300デフォルトの名無しさん
NGNGやっぱＣが基本てこてですか？？
0301デフォルトの名無しさん
NGNGそれが無理だからVB使ってるんだろ
0302デフォルトの名無しさん
NGNG0303デフォルトの名無しさん
NGNGいちおうプロントからできるってことなんで
やってみたりなんですけど
あってるか不安で
0304デフォルトの名無しさん
NGNGそう思う。
>>303
レジストリ云々の話なら、それは認証登録じゃないよ。レジストリにOCXを
登録するだけ。VBとは関係ない話だね。
0305デフォルトの名無しさん
NGNG〜32ってやつを使って登録するんで間違ってないですか？？
0306デフォルトの名無しさん
NGNG分かりませんでした。基本が全然できてないと思うので、理解できるように
勉強してきます。ありがとうございました。
0307デフォルトの名無しさん
NGNG板違いなんですけど
プロン「プ」トね
0308デフォルトの名無しさん
NGNGMCIWNDX.OCX
MCI32.OCX
MCIJP.dll
これ探してます
↑これも板違い？？
0309デフォルトの名無しさん
NGNGお世話様でした
0310デフォルトの名無しさん
NGNG| | ｶﾞｯ
（ ・∀・） | |
と ） | |
Ｙ /ノ
/ ） .人
＿/し' < >_Λ∩
（＿フ彡 Ｖ｀Д´）/
/ ←>>293
0311デフォルトの名無しさん
NGNGもちろん。
0312デフォルトの名無しさん
NGNG0313磯野
NGNG↑俺のHPパソコンのことなら俺に聞いて！
BBSに書いてくれれば何でも答えるよ
ヨロシク♪
0314デフォルトの名無しさん
NGNGしますよ。いくつか制限があるので、その点には注意する必要がありますけど。
0315デフォルトの名無しさん
NGNGできれば制限について教えてくれませんか?
ググろうと思ってもいいキーワードが思い浮かびません
0316デフォルトの名無しさん
NGNGWindows XP 上での Format 関数の動作について
http://support.microsoft.com/default.aspx?scid=kb;ja;418691
特定の操作を実行するとアプリケーションの応答が無くなる
http://support.microsoft.com/default.aspx?scid=kb;ja;436081
Windows XP で実行される Visual Basic IDE 内で COM+ アプリケーションをデバッグできない
http://support.microsoft.com/default.aspx?scid=kb;ja;312280
などなど。
0317デフォルトの名無しさん
NGNGどうしてもってんなら、互換モードで動かした方がいいだろ。
0318デフォルトの名無しさん
NGNGなんで？ 別に問題なく使えてるけど？
0319デフォルトの名無しさん
NGNG0320デフォルトの名無しさん
NGNGこの業界では禁句です＞○グマ
0321デフォルトの名無しさん
NGNG…で そういう関数、ありますか？
0322デフォルトの名無しさん
NGNGなぜ!?
0323320
NGNGネタだけじゃまずいんで、
関数はないけど自分で作るのは難しくないと思うよ>>319
ParamArray とか Array あたりが便利かも。
0324319
NGNGありがとうございますぅ！
シグマプロジェクトは今やってる仕事が片付いたらゆっくり見てみます〜
0325デフォルトの名無しさん
NGNG0326319
NGNG0327デフォルトの名無しさん
NGNG【失業】ＶＢってなくなるんだってよ【廃止】
http://live2.2ch.net/test/read.cgi/news/1048254896/
0328デフォルトの名無しさん
NGNGPictureBoxに自動にサイズを合わせることはできますか？できるなら教えてください。
0329デフォルトの名無しさん
NGNGListViewコントロールのlvwReport形式で
列のプロパティを右揃えにすると、
FullRowSelectの描画に異常が出るのはバグ？
その列に何も入力されてないアイテムだと、
その列だけ非選択の白いまま残るんだが、しかも描画ゴミ残るし…
0330329
NGNGフォームにListViewだけ貼り付けて
これをコピペすればいいから
Private Sub Form_Load()
Dim i As Long
ListView1.FullRowSelect = True
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add = "Left"
ListView1.ColumnHeaders(1).Alignment = lvwColumnLeft
ListView1.ColumnHeaders.Add = "Right"
ListView1.ColumnHeaders(2).Alignment = lvwColumnRight
ListView1.ColumnHeaders.Add = "Center"
ListView1.ColumnHeaders(3).Alignment = lvwColumnCenter
For i = 1 To 5
ListView1.ListItems.Add = "test" & CStr(i)
Next i
End Sub
0331デフォルトの名無しさん
NGNG自動ではできない。
ImageBoxならできる。
■ このスレッドは過去ログ倉庫に格納されています