VBプログラマ質問スレ（Ver.6.0 まで） part57

1 名前：デフォルトの名無しさん mailto:sage [2011/04/30(土) 01:50:27.76 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 101 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 01:34:08.95 ] 99に期待 102 名前：97 mailto:sage [2011/05/25(水) 07:51:55.31 ] >>98 連想配列でぐぐってきた！ 連想配列が何か分かったけど、どうアルゴリズム化していいかわかんねw >>99 uniqueの逆の関数があれば1番良かったんですけど、なさそうなのでアルゴリズムです 103 名前：97 mailto:sage [2011/05/25(水) 12:53:49.58 ] 自己解決 l = Ubound(hogeArray) For i=0 TO l For j=i+1 TO l If hogeArray(i) = hogeArray(j) Then '同値の場合の処理 end if next next msgbox hoge 104 名前：97 mailto:sage [2011/05/25(水) 12:59:17.07 ] >>103 最後のmsgboxはゴミです 105 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 18:19:25.53 ] それだけだと､A,B,A,B,A,A,C,F,Cの場合 BやCみたいに2つの場合はいいけど､Aみたいに4つの場合は6回(3+2+1回)実行されちゃうよ 3つの場合は3回(2+1回)､5つの場合は10回(4+3+2+1回)だ つまり､「A,B,A,B,A,A,C,F,C」が「A,A,A, B, A,A, A, C」になってしまうので､ それで問題ないなら構わないけど､「A,B,C」にしたいという最初の条件とは違うよね 106 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 19:45:31.84 ] perlだと１行で簡単にできる式があったような気がしたｗ 107 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 19:53:16.45 ] で？ 108 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 19:54:26.43 ] そういや7年くらい前にperlの連想配列と同じことができるVBのクラスを作った記憶があるｗ 109 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 20:05:42.48 ] >>107 で？じゃないだろ？ Private data As Object Set data = CreateObject("Scripting.Dictionary") For i = 0 To l 　data(hogearray(i)) = data(hogearray(i)) + 1 　If data(hogearray(i)) = 1 Then 　　'新しい配列に追加 　End If Next i 110 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 20:42:36.81 ] 何､この子？ 111 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 23:23:18.20 ] ほうほう。それでそれで？ 112 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 01:59:56.98 ] Private data As Object Set data = CreateObject("Scripting.Dictionary") For i = 0 To l 　data(hogearray(i)) = data(hogearray(i)) + 1 Next i For Each k In data.Keys 　if k>1 then 　　'処理 　end if Next k 113 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 02:06:32.87 ] >>97 >>103を見るかぎりhogeArrayの中身は 114 名前：97 mailto:sage [2011/05/26(木) 08:41:35.84 ] >>105 重複処理でuniqueします 115 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 13:00:44.16 ] VBで動的連想配列ってできるんですか？ ググっても見付かりません 116 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 13:12:22.09 ] ttp://7ujm.net/VB/VB6MAP.html 117 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 15:41:14.52 ] x^3-7*x+1の式でニュートンラフソン法を用い、初期解と繰り返しの回数を入力したら 近似解が求められるプログラミングを作りたいんですが、どう作ればよいですか？ もしスレチでしたらすみません 118 名前：デフォルトの名無しさん mailto:sage [2011/05/26(木) 20:51:24.73 ] >>117 hibari.2ch.net/test/read.cgi/tech/1276873238/ 119 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 15:26:54.34 ] VB6でマルチスレッド作るの無理だよね・・？ 120 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 15:47:14.47 ] 複数プロセス起動すれば良い 121 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 18:11:35.77 ] >>119 実用的じゃないけど、可能だよ。 122 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 18:50:02.37 ] 訂正 可能だけど、実用的じゃないよ。 123 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 19:11:31.96 ] >>122 ちょｗｗｗ 訂正って、それじゃ意味変わってないだろ。 訂正するなら「不可能だけど、実用的だよ」か 「可能だし、実用的だよ」のどちらかだろｗｗｗ 124 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 22:00:55.94 ] A = 実用的 B = 可能 元の文章は not A and B 訂正するなら not A and not B A and B A and not B もっとも日本語として強調したい部分というのは後にもってくるという のもあるので、 not A and B を B and not A と言い換えるのも無い事は無いか。 125 名前：デフォルトの名無しさん mailto:sage [2011/05/28(土) 22:17:24.05 ] >>123 「表現」を「訂正」してるだけだろ。 まあ、いちいち訂正するほどのコトとは思えないけど。 126 名前：デフォルトの名無しさん mailto:sage [2011/05/29(日) 01:46:44.64 ] もっと賢いやりかたったらおせーて Public Function ToStringB__v2(v As Variant) As String Const PREFIX$ = " KMGTPEZY" Dim s$, p#, n&, i&: p = CDbl(v): n = 1 For i = 2 To Len(PREFIX) If p >= 1000 Then p = p / 1000: n = n + 1 Else Exit For Next i s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00"))) ToStringB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "B" End Function Public Function ToStringIB__v2(v As Variant) As String Const PREFIX$ = " KMGTPEZY" Dim s$, p#, n&, i&: p = CDbl(v): n = 1 For i = 2 To Len(PREFIX) If p >= 1024 Then p = p / 1024: n = n + 1 Else Exit For Next i s = Format(p, IIf(p >= 100, "0", IIf(p >= 10, "0.0", "0.00"))) ToStringIB__v2 = s & " " & IIf(n > 1, Mid(PREFIX, n, 1), "") & "iB" End Function 127 名前：デフォルトの名無しさん mailto:sage [2011/05/29(日) 01:53:17.35 ] 簡単なエラートラップなら Cdbl(v)する前に If Not IsNumeric(v) Then Exit Function を入れる 128 名前：デフォルトの名無しさん mailto:sage [2011/05/29(日) 01:59:09.34 ] On Error Goto ErrorLabel とかして End Functionの手前にErrorLabel:って入れればＯＫ 129 名前：デフォルトの名無しさん mailto:sage [2011/05/29(日) 09:10:26.34 ] >>126 n = Int(Log(p)/Log(1000#)): p = p / (1000# ^ n) # 元のプログラムと n の値が 1 違うので注意 (0 ベースになる) # v = 0 の時に Log() がエラーになるので、そのケースがあるなら事前に場合分けが必要 130 名前：デフォルトの名無しさん mailto:sage [2011/05/30(月) 03:20:52.74 ] なるほど 勉強になります ありがとうございました 131 名前：デフォルトの名無しさん mailto:sage [2011/05/31(火) 15:32:01.70 ] ActiveX DLLでCOM作ってるんだけど、ADOのRecordSetやFieldが持ってる 連想配列みたいにアクセスするインターフェースってどうやって作るん？ 132 名前：131 mailto:sage [2011/05/31(火) 16:27:12.11 ] プロシージャIDを0にすると既定になって、省略可能になったわ。 133 名前：デフォルトの名無しさん mailto:sage [2011/05/31(火) 17:00:57.81 ] ? 134 名前：デフォルトの名無しさん mailto:sage [2011/06/01(水) 12:34:59.02 ] VB4なんですがWIN87EM.DLLで一般保護違反が出るのですが、 なかなか再現しません。このエラーを故意に起こすには、どのようにコーディングすればいいですか？ OSはNT4です。 135 名前：デフォルトの名無しさん mailto:sage [2011/06/02(木) 21:10:23.48 ] すいません、質問させてください。 今下記のような感じでテキストファイルを読み込んで excelに出力するものを作っています。 Array1と10に降順でソートを掛けたいと思っています。 ですが、どう記述するのかわかりませんでした・・・・ どなたかお力お貸しください。 136 名前：デフォルトの名無しさん mailto:sage [2011/06/02(木) 21:12:42.14 ] こんな短期間にたくさん質問くるということは どこかの大学バカ教授が授業でVB6で課題でも出したのか？ 137 名前：135 mailto:sage [2011/06/02(木) 22:14:17.50 ] すません、こんなの使ってます。 .Workbooks.OpenText _ FileName:=strFileNm, _ StartRow:=1, _ DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, _ Tab:=True, _ Semicolon:=False, _ Comma:=True, _ Space:=False, _ Other:=False, _ FieldInfo:=Array( _ Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2)）〜 138 名前：デフォルトの名無しさん mailto:sage [2011/06/03(金) 00:35:50.94 ] VB6.0で作ったソフトですがディスプレイをブラウン管（１０２４，７６８）から液晶（１９２０，１０８０）に替えたら ソフトが動かなくなってしまいました。なぜ？ ブラウン管に戻すと動きます。 139 名前：デフォルトの名無しさん mailto:sage [2011/06/03(金) 01:10:39.61 ] ソース出せや 140 名前：デフォルトの名無しさん [2011/06/03(金) 02:17:22.81 ] VBで作ったアプリって モニタのど真ん中に可視な属性を持ってるのに大きさがないという ウインドウというかプロセスがあるね キャプションで探したウインドウがGetWindowRectでサイズが０でずっと悩んじゃったよ まるで民主党の朝鮮人たちに騙された気分だよ 141 名前：デフォルトの名無しさん [2011/06/03(金) 02:27:53.82 ] >>138 あー、それ>>140と関係してるかもね プロセス列挙してウンドウを探すときにLeftが512だったら弾く、とかやってると モニタサイズが変わったら弾けなくなる LeftじゃなくてWidthが０だったら弾くようにすればおｋ 142 名前：福盛俊明 [2011/06/03(金) 09:09:29.66 ] 23 名前：福盛俊明 ：2011/06/02(木) 23:51:15.53 俺はDarkBASICの天才♪” 俺に答えられない質問はない 質問はこちらへ www.geocities.jp/courant_de_console/main_street/index.html アハアハ〜♪” 143 名前：デフォルトの名無しさん mailto:sage [2011/06/03(金) 18:43:25.43 ] >>137 エクセルを開いてから、オートフィルタで手作業でソート 144 名前：デフォルトの名無しさん mailto:sage [2011/06/05(日) 20:08:58.70 ] VBSで質問です 5分後にシャットダウンするプログラムを作ってます。 MsgBox "5分後にシャットダウンします。" WScript.Sleep(300000) 'ここにシャットダウンの処理 これで一応シャットダウンできますが、終了一分前にメッセージを出そうとして下記のように変えると、 「1分後に(ry」のメッセージボックスのOKを押すまで処理が止まってしまうので、正確な5分になりません。 MsgBox "5分後にシャットダウンします。" WScript.Sleep(240000) MsgBox "1分後にシャットダウンします。" WScript.Sleep(60000) 'ここにシャットダウンの処理 メッセージボックス出しつつ処理を止めない方法ってありますか？ 同じことができれば代用法でもなんでも構いません 145 名前：デフォルトの名無しさん mailto:sage [2011/06/05(日) 20:24:31.18 ] >>144 メッセージボックスやモーダルのフォームではなく、 モードレスのフォームを出せばいい。 146 名前：デフォルトの名無しさん mailto:sage [2011/06/05(日) 20:52:18.41 ] >>145 レスどーも でも色々調べてたら自己解決してしまった(・_・;) コマンドラインで shutdown -s -t 300 って書くと自動で2分前に警告だしてくれたらからこっち使います 147 名前：デフォルトの名無しさん mailto:sage [2011/06/06(月) 18:48:24.52 ] >>146 2分前？ 148 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 22:01:47.41 ] ここでいいんかな・・・？ imdate(inputManのやつ)で日付を取ってそれに+1日したいんだが どうしたらいいんでしょうか。 Date　+　1に出来たらいいかなと思ったんだが imdate.Numberで数字で取得するからなんともいかんのかな？ 149 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:24:54.45 ] VBのバージョンを言え 150 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:25:57.17 ] inputManだったらinputManのヘルプみればいいんじゃないか？ 151 名前：デフォルトの名無しさん mailto:sage [2011/06/09(木) 23:27:30.00 ] ｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘ ｼﾞｬﾝｼﾞｬﾝﾊﾞﾘﾊﾞﾘ InputMan 152 名前：148 mailto:sage [2011/06/09(木) 23:35:56.07 ] すいません6.0です。 153 名前：デフォルトの名無しさん [2011/06/11(土) 00:08:05.03 ] 偉そうにVBのバージョンを言え！ だって VBのバージョンなんか関係ないのに その１行しか言えないレベルの奴なんだ 154 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 09:44:32.95 ] ４行も内容のないこと書いてるやつよりましじゃね？ 155 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 14:01:36.47 ] で、バージョン聞いといてそれで終わり？ 大抵関係ない情報聞くやつは 使いものにならないんだよねｗ 156 名前：デフォルトの名無しさん [2011/06/11(土) 17:48:24.37 ] 俺だったら「VBのバージョンは？」って優しく聞く それを「VBのバージョンを言え」と字数多くしてまで乱暴に言うのは まさに超初心者ならではの頭の悪さ で、imdate.Numberが日付型ならDateAdd、文字ならCDateしてから 157 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 19:38:30.77 ] > 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 > 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 というのがルールなんだから､質問内容がバージョン関係有る無しに関わらず まずは郷に入っては郷に従えってだけのことだろ 158 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 19:55:06.35 ] もう黙れば？ 159 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 21:31:12.16 ] .NETの質問の可能性もあるやろ 160 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:13:06.76 ] まあ、スレタイちゃんと読んでりゃ .NET はないはずだが、 バージョンも書かないような奴は >>1 もろくろく読んでな いような奴だから、スレタイも読んでない可能性高いかもね。 て言うか、質問者は後出しながらバージョン答えてるし、 >>153 は一体なにと戦ってるんだ？ 161 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:17:29.22 ] 命令口調ｸﾝ 162 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:23:01.63 ] ところで>>149は必要だったのかい？ いらないよね。赤っ恥かかされたからって、必死こいて戦うことないよね。 163 名前：デフォルトの名無しさん mailto:sage [2011/06/11(土) 23:31:29.55 ] .NETの質問の可能性もあるやろ！（ｷﾘｯ 164 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 05:18:06.48 ] >>162 顔真っ赤にして､そんなに悔しかったの？ 165 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 09:48:19.38 ] >>164 敗北宣言乙 166 名前：デフォルトの名無しさん [2011/06/12(日) 09:49:17.07 ] ウェブサイト作成協力して頂けませんか？ jpcity.lolipop.jp/phpBBq/viewtopic.php?f=29&t=957#p1595 167 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:03:10.15 ] >>165 一人相撲で勝利宣言？ 168 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:41:59.64 ] 　発　者　同　　　　　　　　 .　｡_　　 ____　　　　　　　　　　 争 　生　同　.じ　　　　 .　　　　/´ |　 (ゝ___)　　　　　　　　　　い 　.し　士　.レ　　　　　　.__／'r-┴<ゝi,,ノ　 　ro､　　　　　　は、 　.な　で　.ベ　　　 　 ∠ゝ　(ゝ.／/｀　　 ./｀|　 }⌒j　　　　　 　.い　し　.ル　　　　　 　　} ⌒ ／｀ヽ､_∠l,ノ　・ヽ´ 　.! !　か　の　　　　　　 /　　´..:.} ＞､､___,　 .r､ ｿ､｀＼ 　　　　　　　　　　　　　/　　　..:.:.}　　　/　　　|∨　｀￣ 　　　　　　　　　　　 ／　　　..:.:./　　　 |　　　丶 　　　　　　　　　　 /　＿､　..:.:.:.{　　　 .{.:.:.　　　＼ 　　　　　　　　　　{　　　..:Y　　.ゝ､　　 {.:.:.:.:.　　　 ヽ 　　　　　　　　　　|､　　..:/　丿　.:〉　　 >.- ⌒ 　. 　ヽ 　　　　　　　　　 / {.　..:./　ｿ　..:./　 .(　　　　..:.:.:｀ 　..:} 　　　　　　　　 ./..:.:}.:.:./ ヘ､ ..:./　　 .＼　..:.:r＿,ノ､.:.:} 　　　　　　　　./..:.:/|.:/　　 {.:./　　　　　X.:.:}.}　　 X X 　　　　　　　 /..:.:/ .}.:| 　　 }:/ 　　　　　　.Y丶ヽ　　Y.:Y 　　.　＿＿／.:／　{　}　　《.〈､　　　　 ＿,,__>.:》丶 　 Y.:＼ 　　／.:.:.:.:.::／　　 !.:.:ゝ　　ゝ.:.￣ヾ　´:.:.:.:.:.:.:.:.:ヾゝ　 　＼.:￣＞ 169 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:46:29.27 ] いや争ってる (と思ってる) のは、１人だから (w 170 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 10:52:23.61 ] 争いにもなってないよな まったく関係のないバージョンの話なんて聞くような馬鹿だしｗｗｗ 171 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:02:12.26 ] ルールは守ろうねって言われたことが余程気に入らなかったようだな 反抗期なのかもしれないが､そんなんじゃ社会に出てから困ることになるぞ 172 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:10:17.42 ] なぜバージョンを聞いたんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？ 社会人としてのルールとして、そこの所を答えてくれないか？ 173 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:18:56.10 ] 　 　 　　　＿＿＿_ 　 　　　／⌒　　⌒＼ 　　　／（ ●） 　（●）＼ 　 ／::::::⌒（__人__）⌒::::: ＼ 　 |　　　　　|r┬-|　　　　　| 　 ＼ 　　 　 `ー'´ 　 　 ／　このスレ香ばしいNE！ 　　 /｀ ‐-　＿_　- ‐‐ ´ ＼ 　 / .l　　　　　　　　_,,ヽ ___ 〉､ 　 |　l　　　　　　　/ ,' 3　`ヽｰっ 　 ヒﾄ- ＿　　　　l　　 ⊃　⌒_つ .　　 !__　　￣,￣ `'ｰ-┬‐'''''" 　　　L ￣７┘l-─┬┘ 　 　 ﾉ ￣/　　.!￣ ヽ 　　└‐ '´　　　｀　-┘ 174 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 11:53:03.08 ] >>172 なぜ理由を聞いてるんだい？ルールだからか？必要あったか？空気読まずに聞くほどに？ 175 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:06:46.28 ] そこまで追い詰めるつもりはなかったんだが 鸚鵡返しするような状態になっちゃお終いですね こんな人が社会に出てからとか言ってんだからお笑いです 176 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:34:17.84 ] 一体誰を追い詰めた気になってるんだろう… まあ、本人満足してるみたいだからいいか (w 177 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:38:25.19 ] 総理大臣のようだNE！ 178 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 12:40:40.77 ] 道化を装う総理ならいいが 近年の人は愚かにしか見えない 179 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 18:39:16.06 ] スレ伸びてると思ったら 質問があったとかそれに対する返事だとかそういうのじゃないので伸びてたのか 残念だ 180 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 18:55:49.70 ] 気づけばもう3日前からずっとこの流れなんだなｗ 181 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 19:10:39.68 ] >>179 同じく。 そもそも、このスレでバージョンは○○ですって書いてる人あんま見ないけどな。 ところで、COM使った開発とか新規でまだやってたりする？ この間.NETじゃないただのASPで動かさなきゃいけない案件があって、 バッチでも使う共通処理があったから、COMで作る事にしたんだが、VB.NET でも簡単にCOM作れるのな。 中身はマネージドだから、VB6.0で作った方が動作は早かったかな。 182 名前：デフォルトの名無しさん mailto:sage [2011/06/12(日) 19:18:18.05 ] 終わった言語なんだし、ひっそりしていたほうが健全なんだ。 183 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 17:10:31.72 ] 未だに終わった言語で開発させられている俺に謝れｗ 184 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 17:41:27.35 ] フヒヒ 185 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 20:30:45.05 ] なんかwordにＶＢエディタが入ってるんだけど まさかこれってコンパイラＤＬしなくでもＶＢできる？ ＶＢはじめようと思ってんだけど 誰かコレについて教えてくれ 186 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 20:51:09.21 ] それは別物です 187 名前：デフォルトの名無しさん mailto:sage [2011/06/13(月) 23:10:28.61 ] >>185 まあ VB と似たようなもんだけど、Word がないと動作しないよ。 まずは word vba あたりでググレ。 188 名前：デフォルトの名無しさん mailto:sage [2011/06/14(火) 06:26:34.17 ] みんなツンデレだなぁｗ助かってるけど＾＾ 言い方きっついレスポンスは幼馴染みが 照れ隠しで怒っている感じに変換して 読んでる 189 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 10:20:39.97 ] 質問です。 Set xlBook = xlApp.Workbooks.Open(xlTestFile)で開いた場合 Arrayって使えますか？ 読込んだTextを文字列か標準かを指定してデータをExcelに挿入したいのですが・・ 190 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 11:00:48.32 ] VB6言語すらまともに使えない奴には 日本語での質問もまともに出来ない奴が多い件 191 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 11:19:07.01 ] VB6言語？ 192 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 12:23:24.38 ] WinXP､VB6､SP6です｡ Controls.Addで動的に作成したTextBoxのMultiLineプロパティをTrueにする方法を教えてください｡ 普通にコードで設定しようとすると「値の取得のみ可能なﾌﾟﾛﾊﾟﾃｨに値を設定することはできません。」というエラーが出ます｡ デザイン時にMultiLine=TrueにしたTextBoxをコントロール配列にしてLoadすれば､ MultiLine=TrueのTextBoxを動的に作ること自体は出来るのですが､都合によりコントロール配列ではダメなので｡ 最悪､デフォでMultiLine=TrueなTextBoxをユーザーコントロールとして作って､それをControls.Addで動的に作成するという 手法も考えてますが､もっと簡単な方法があればご教示ください｡ 193 名前：デフォルトの名無しさん mailto:sage [2011/06/15(水) 14:40:03.68 ] VB6LEじゃActiveX作れんからプラグイン作れないんだな…orz 194 名前：デフォルトの名無しさん [2011/06/17(金) 00:34:45.03 ] >>183 うらやましい 次の言語はなんですか 195 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 03:39:58.92 ] VB6のランタイムライブラリってぶっ壊れることあるんだな 家族の誰かが何かインストールしたらしくその際にVB6ランタイムが上書きされたかで VB6およびVB6製アプリが正常動作しなくなった ベクターにあったVB6ランタイムをインストールしたら直ったけど ウィルス感染かと思ったわ 196 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 08:37:41.49 ] >>195 それは壊れるとは言わない。 古いライブラリに入れ替わっただけ。 そんなのはVB関係ないし、OSだって関係なく 起こり得る話。 197 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 13:07:36.93 ] どうせインストーラ型のVB6製アプリ入れる時にシステムに既に同じのあるけど上書きする？って聞かれて、 「なにこれわかんない。とりあえずはいでいいよね」って選択していったんだろ 198 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 15:32:50.01 ] spの古いランタイムに変わるとVB起動時およびVB製アプリ動作時にmsiとか起動するもんなの？ 199 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:00:17.40 ] 3文字ごとに[,]を打つのに作った↓コレが不具合の原因で OutputBox.Text = Format(CDec(OutputBox.Text), "#,###.##############") '[2.0]で持ってくると 'CDecで文字列を数値にしているので 'ただの[2]として認識されて[2]だけが出力される '[2.03]だとそのまま[2.03]で認識してくれる 別の書き方ってあります？ 200 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:30:29.57 ] OutputBox.Text = FormatNumber(OutputBox.Text) 201 名前：デフォルトの名無しさん mailto:sage [2011/06/17(金) 17:33:52.00 ] Oh…小数第二位までしか表示されないけどこんな方法が。 ありがとうございます

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef