VBプログラマ質問スレ（6.0以前） Part52

1 名前：デフォルトの名無しさん mailto:sage [2007/05/19(土) 17:33:37 ] ここは 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/ ※「まず自分で調べる」クセを身につけよう。 116 名前：デフォルトの名無しさん [2007/06/06(水) 10:38:02 ] >>114 モーグってサイト見ろ 117 名前：デフォルトの名無しさん [2007/06/06(水) 12:12:19 ] >>116さん いい情報をありがとうございました。 >>115は亀梨和也とアナルｾｯｸｽをして死ねばいいのさ。 118 名前：デフォルトの名無しさん [2007/06/06(水) 12:49:58 ] >>117 むしろお前がｼﾈﾖ？カス せめてググってからこい　無能者が 119 名前：デフォルトの名無しさん [2007/06/06(水) 13:04:53 ] >>118 m9(^Д^)ｶｯｺﾜﾙｗｗｗｗｗ 120 名前：デフォルトの名無しさん [2007/06/06(水) 13:12:31 ] Private Sub MSFlexGrid1_Click() MSFlexGrid1.SelectionMode = flexSelectionByRow End Sub これでどこのセルをクリックしても行全体が反転されるはずなのですが 一番最初の行が反転されません。 一番最初の行も反転させるためにはどうしたらよいでしょうか？ 121 名前：デフォルトの名無しさん [2007/06/06(水) 13:56:34 ] 一番最初がヘッダーの事だったら死なす 122 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:13:28 ] エスパーレス (´･ω･`)つ【FocusRect】 123 名前：デフォルトの名無しさん [2007/06/06(水) 14:28:13 ] >>122 ありがとうございます .FocusRect = flexFocusNone を追加すると クリックしたときには綺麗に一行反転するのですが クリックしていない状態でも 左上のセルが一つ反転してしまいます。 初期状態で反転させない方法はありますか？ 124 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 14:42:29 ] >>123 その様子だと次々と出てきそうだから先に言っておくけど MSFlexGridのプロパティと動作ぐらいは自分でテストしな なぜ初期状態で反転してるか考えれば答えが出るでしょ 125 名前：デフォルトの名無しさん [2007/06/06(水) 21:01:53 ] VB6.0で暗算を行なうシステムを作りたいんですが 全く初心者なため勝手が全然分からなくて、ネットで 調べてもそれらしきものが見当たりませんでした・・・ 例えば、一つ計算式がでてきたら自分でその答えを入力し 正誤に関らず次の式が表示されまた答えを入力する・・・ というのを繰り返すようなものを作りたいのですが もし可能ならばヒントでも頂けると助かります よろしくお願いします 126 名前：デフォルトの名無しさん mailto:sage [2007/06/06(水) 21:14:18 ] >>125 その与えられる数式を解析すれば行けるだろうけど どのレベルまでを求めるかによると思うけどなぁ…・ 単純な四則演算レベルならまぁ…・　小数点とかはいると少し難しいんじゃないかな？ とりあえずどんな数式が出てきて　どんな動きすればいいかを 自分の求めるレベルでサンプルを書き込んでみては？ いっちゃん簡単なので行けば ****** ●＋１＝５ という数式があり　●には数字が入る 最終てきに ●=４という答えがほしい ***** こんな感じで 127 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 00:48:57 ] >>125 時間がある人なら、とりあえずテキストエディタとか作ってみるといいんじゃない？ システムの設計の方法とか方針とか少しは見えてくると思うよ 逆に設計についてサッパリな状況なら何も作れないってことが分かるだろうし 128 名前：デフォルトの名無しさん [2007/06/07(木) 06:22:20 ] Rnd関数か何かを使って任意の計算式を創出できるようにしたらいいかも。 VBの達人なら、この程度のプログラミングなど簡単すぎて興味も湧かないでしょうが、 いかに、短くてエレガントなコードを書くかには興味を持つかも知れん。 129 名前：デフォルトの名無しさん [2007/06/07(木) 09:47:53 ] >>128 確かにアルゴリズムは考えるのが楽しい が・・・・ある程度いったら飽きるんだよorz 130 名前：デフォルトの名無しさん [2007/06/07(木) 10:14:13 ] ESCキーで終了させるにはどうしたらよいですか？ 131 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:15:39 ] ほんの一瞬、「VBで暗算を行う」の意味がわからんかったわ。 132 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:35:32 ] >>130 よく知らんが フォームにでもKey Pressのせて if key asciiがEsc End 'Unload me end if じゃだめですか 133 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:51:55 ] >>125 式作成部分だけ造ったが、こんな感じか？ 134 名前：デフォルトの名無しさん mailto:sage [2007/06/07(木) 10:53:09 ] 張リ 忘レタ ヨー ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/joyful.cgi?mode=thr&no=3606 135 名前：デフォルトの名無しさん [2007/06/07(木) 12:02:30 ] >>133 おまっ・・・・Cかよｗｗｗｗ 式は自動作成なのかな? 俺が予想してるのはこんな流れ 前提：式のリストがある（いわゆる算数の穴埋め問題集的な） X＋２＝５　Xを求めよ　みたいな 流れ １．式のリストから式を取得（あとはユーザが選択したりとか） ↓ ２．その式を分析して解を求めるような値を算出（方程式解くような感じで） 　　（例だと：X=5-2　X=3） ↓ 1に戻る 136 名前：デフォルトの名無しさん [2007/06/07(木) 19:42:07 ] >>135 予め式のリストが用意されてるんなら、 リストインデックスから解を出力すりゃいいだけじゃね？ 解も配列で内部的に持っとけばいいだけだし。 137 名前：デフォルトの名無しさん [2007/06/07(木) 22:04:08 ] >>135 >125を見た感じ、延々と繰り返すってことは、 有限な感じがするその前提は使えないんじゃね？ つか、式を自動生成する時ついでに、 内部的に解を求めとけばいい気がする。 暗算すんのはユーザなんだろ？ システム的にはただ淡々と計算してけばいいだけ。 悩む点は特に無さげ。 138 名前：125 [2007/06/08(金) 00:01:50 ] 遅くなってすいません 134をコピーしてみたんですが、エラーが出まくって上手くいきません 多分フォーム内に全部直接貼り付けただけで、変数を宣言する場所とか が自分でよく分かってないからだと思いますが・・・ 全く素人すぎてすいません・・・ 139 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 00:17:32 ] >>138 Ｃでもいいわけか？ ＶＢじゃなくって？ あのソースはＶＢではないぞ・・・・・ 140 名前：125 [2007/06/08(金) 00:23:13 ] >>139 そうなんですか？ 自分はVB作りたいです 今日乱数を発生させてどうのこうのとかやってたけど 全く上手くいきませんでした・・・ 141 名前：デフォルトの名無しさん [2007/06/08(金) 00:28:25 ] Ｃを全く知らない俺が変換してみたｗ Private Function fmotome(n As Integer) As Integer Dim Res As Integer Select Case n Case 0 Res = 0 Case 1 Res = 1 Case Else Res = fmotome(n - 1) + fmotome(n - 2) End Select fmotome = Res End Function Private Sub Form_Load() Dim Temp As String Temp = InputBox("Ｎの値を(　ﾟдﾟ)ｸﾚ", "数値入力") If IsNumeric(Temp) = False Then MsgBox "数値入れろ", "カス" Unload Me End If Dim Res As Integer Res = fmotome(CInt(Temp)) MsgBox "Fnの値は'" & CStr(Res) & "'" End Sub もすこしやりたいことを具体的におしえてはくれんか？ 乱数を発生させるのは簡単だがそれを使ってどうするのか　とかさ 142 名前：デフォルトの名無しさん [2007/06/08(金) 00:35:52 ] ちなみに上限と下限決めて乱数作る場合こんな感じだったとおもう 使い方はあってると思うけど… 下限1　上限10 dim hi as integer dim Lo as integer Hi = 10 Lo = 1 Ransuu = Int((hi - Lo + 1) * Rnd + Lo) 143 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 00:38:06 ] ていうか、いまさらVB6〜を始めるな。 せめてC#かVB.NETにしろ。 144 名前：125 [2007/06/08(金) 09:12:07 ] >>141 ありがとうございます 実は具体的に実現したい機能としては 画面上に2桁の加算を行なう数式が2つ表示されて、ユーザー側が計算して値が大きい方の式を選ぶと その正誤がすぐに画面上でフィードバックされ、すぐにまた同じような暗算課題が画面上に表示され 同じことを30分とか決められた時間ひたすら繰り返されていくようなものです 考えて作ろうとはしてるんですが、まだ暗算機能されまともに作れなくてやばいと いった状況ですね・・・ 145 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 09:15:40 ] hp.vector.co.jp/authors/VA009756/prog/lab/ ここの十字カーソルのように、デスクトップ（というかスクリーン）の最前面に 文字や画像を描画するにはどうすればいいのでしょうか？ 146 名前：133 mailto:sage [2007/06/08(金) 09:21:42 ] 勘違いさせてしまった様だが、俺が創ったのは ttp://kansai2channeler.hp.infoseek.co.jp/cgi-bin/joyful/joyful.cgi?mode=thr&no=3606 のレス21な 147 名前：デフォルトの名無しさん [2007/06/08(金) 09:47:19 ] >>145 見てないから分からんのだが、 ひょっとしてAPIのSetWindowPosのことか？ 148 名前：デフォルトの名無しさん [2007/06/08(金) 13:28:14 ] >>144 ふむふむ・・・ 俺設計力とかはあんまないから今一歩かもしれんけどさ １．　2桁の（+-の）数値の和・差の式をランダムで自動生成して ２．　その自動生成された式を自分の内部で計算して　大きいほうの数を持つ式を選べば正解として処理 １．２を決められた時間ないひらすら繰り返す で点数とか正誤率表示するような感じなのかな？ 149 名前：デフォルトの名無しさん [2007/06/08(金) 13:47:37 ] >>146 ここまで作ってあげてる優しさに俺は脱帽した 質問者が理解できるかどうかはしらんがｗ 150 名前：145 mailto:sage [2007/06/08(金) 14:54:37 ] >>147 SetWindowPosはウィンドウの位置やサイズを変更するAPIですよね。 もしかして常に最前面にしてウィンドウを完全に透明にすればできるということでしょうか？ やりたいことは、↓これと同じようなことなのですが… www.forest.impress.co.jp/article/2007/04/10/crosshair.html 151 名前：デフォルトの名無しさん mailto:sage [2007/06/08(金) 15:21:40 ] そのソフトの事は知らないが、簡単に作るのであれば、 ・二つウインドウを作り最前線にもってくる ・一つは縦が1ドットx横がデスクトップの横サイズで。もう一つは(ry ・マウスカーソルの位置に二つのウインドウを位置合わせ こんな感じでできるべ？ 152 名前：125 [2007/06/08(金) 19:59:32 ] >>148 だいたいそんな感じですね 正確には １．　2桁の正の数のみの数値の和の式をランダムで二つ自動生成して ２．　その自動生成された式を自分の内部で計算して　大きいほうの数を持つ式を選べば正解として処理 １．２を決められた時間ないひらすら繰り返す で一回1ポイントとして終了後に合計得点と正答率を示す ついでに可能だったら合計得点の今までチャレンジした人の中でのランキングも示す というところまで作りたいんですが、プログラムの基礎もさっぱりな段階なので 全くダメといった感じです・・・ 可能ならばどなたかに参考になりそうなアドバイスを頂きたいです よろしくお願いします 153 名前：デフォルトの名無しさん [2007/06/08(金) 20:01:14 ] >>152 まずは>>133 が作ってくれてるのうごかしてみ？ 154 名前：125 [2007/06/08(金) 20:11:54 ] >>153 やってみたんですけどエラーが出て実効できないです・・・ 多分自分が変数を宣言する場所とかを間違ってるのがいけないと思うんですが・・・ 155 名前：デフォルトの名無しさん [2007/06/08(金) 22:07:20 ] >>154 ＶＢ６環境ないんでEXCEL2003のＶＢＡでやってみたがちゃんと動いてくれたぞ？ あれをモジュールにはっつけて Private Sub CommandButton1_Click() Call Eq_Sample1 End Sub Private Sub CommandButton2_Click() Call Eq_Sample2 End Sub これでちゃんと数式ができてるいいサンプルだと思うけどなぁ？ どんなエラーがでてどこでエラーが起きてるか出来るだけｋｗｓｋ書いて ちょっとそっちで動かないソースここにはりつけてみないか？ 貼り付けたのはもちろん>>146の言うとおり21レス目のVBソースが直書きしてあるやつだよな？ 156 名前：125 [2007/06/08(金) 23:05:39 ] 今146のやつを標準モジュールに全部貼り付けて 実行するフォームにコマンド１，２を用意して155のソースを書いて実行したら エラーは出なくなりましたが、画面に何の変化もないといった感じです・・・ 標準モジュールに貼り付けるのが何か間違ってますか？ 157 名前：デフォルトの名無しさん [2007/06/09(土) 00:04:57 ] >>156 なにも表示されないよ ヒント　Debug.Print 適当にラベルにでも表示してみれば？ 158 名前：125 [2007/06/09(土) 07:34:35 ] >>157 Debug.Print というものを調べてみたらファイル操作というもので色々なことに 使われてるみたいだってことは分かったんですが 146のソースにどういう役割で導入すればいいかというのは分からないです・・・ 可能ならばもう少しヒントを頂きたいです 159 名前：デフォルトの名無しさん [2007/06/09(土) 09:23:11 ] >>158 根本的に基礎を勉強しなきゃ話にならないとは思うけど ”イミディエイトウィンドウ”という所に文字を表示する機能がDebug.Print >>146のソースの中にDebugPrintてあるのは確認用で実際のフォーム内には表示されない なので表示するためにはラベルやテキストボックスに表示させる必要がある ぶっちゃけどれ位かけるの？ ボタン押してラベルの文字と色を変更することくらいはできるの？ 160 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 11:19:36 ] むしろ今からVB6を「基礎から」勉強してどうする。 161 名前：デフォルトの名無しさん [2007/06/09(土) 14:50:50 ] >>160 会社によっては未だにVB5使ってるところもあるんだし、 勉強するのに時代遅れもなにもないんじゃない？ 必要だから習得する。 必要なければ習得しない。 こんなもんでしょ？ 162 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 15:13:25 ] むしろこのスレの住人なら もうバージョンアップしない「　完　成　さ　れ　た　」この言語を 一生使い続けるぐらいの気持ちで 163 名前：デフォルトの名無しさん [2007/06/09(土) 15:22:47 ] >>162 そこまでは愛せない俺ガイル 164 名前：125 [2007/06/09(土) 15:36:26 ] >>159 遅くなってすいません 下の二行に書かれていることはできると思います 本当に簡単なことは多分できるのですが、例えば Option Explicit Public Enum ELEVEL LV_PLS = 1 LV_MIN = 2 LV_MUL = 3 LV_DIV = 4 End Enum Public Type TMATH Level As ELEVEL Max As Long Min As Long Length As Integer Brackets As Byte End Type などのソースはいきなり見たことない書き方の連続で 何が何を意味してるとかが全く分からない状況です・・・ 165 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 15:49:48 ] >>164 そんな事すらいちいち教えなきゃいけないのか？ 自分で調べる気は毛頭ないのか？ トイレまで他人が手伝ってもらわないといけないのか？ ふざけんなこの野郎 166 名前：デフォルトの名無しさん [2007/06/09(土) 15:51:25 ] >>164 基礎を勉強してからアプリなり何なり作るといいと思うよ。 処理云々以前の問題。 167 名前：デフォルトの名無しさん [2007/06/09(土) 15:58:10 ] EnumもTypeも調べられない程度の人間にプログラムは向いてないんだってばっちゃが言ってた！ 168 名前：デフォルトの名無しさん mailto:sage [2007/06/09(土) 18:09:57 ] >正誤に関らず ・・ という部分が非常に気持ちわりいな 誰か、正誤判定出来るよう修正キボンヌ 169 名前：デフォルトの名無しさん [2007/06/10(日) 01:04:18 ] >>168 正誤判定はしてるんだろ？ 指定された時間が経過したら正解率出すんだし。 答える度に毎回ヴィジュアル的に軽く表現させる程度なら 普通にやるもんだろーと思うが。 質問者が言ってるのは、 正解でも不正解でも次々と問題が表示されていくってことだと思うんだが。 170 名前：デフォルトの名無しさん [2007/06/10(日) 11:31:53 ] ＳＭＴＰでメール受信するプログラムをＶＢで作成しようとかんがえているのですが、受信したメールをポップアップで表示するのは可能ですか？ 171 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 11:42:18 ] >>170 ＳＭＴＰでメールを受信とは、サーバを作りたいと言ってるの？ 172 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 11:50:28 ] >>170 受信したメールは貴方がメールだと思っているだけで、実はタダの文字列なんじゃないか？ 173 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 12:00:44 ] いい感じに荒れてきた 174 名前：デフォルトの名無しさん [2007/06/10(日) 12:50:39 ] BSMTPの話？ 175 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 12:53:29 ] >>173 つ　アロエ 　　肌にいいらしいぞ 176 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 13:14:50 ] このスレにSMTPは送信用のプロトコルだと勘違いしてるやつがいる。 177 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 14:03:02 ] あげあしとり出現ｗ 178 名前：１２５ [2007/06/10(日) 16:15:19 ] 取りあえず今自分なりの書き方でプログラムを作っていて 一個一個順を追って１５２に書いたことに近づけていっている感じなんですが 取りあえずフォームが開いたらランダムで一つの数式を表示しようということを やろうとしていて Randomize Dim a As Integer Dim b As Integer a = 99 b = 10 Label1.Caption = CInt(Rnd(a) * 100) Label1.Caption = CInt(Rnd(b) * 100) Label1.Caption = CStr(a) & "+" & CStr(b) と書いたんですが、これだとaとbの値が変化せずに９９＋１０と表示されてしまい 値が固定化されてしまいます・・・ ランダムの効果を利かせるには何かソースが足りないんでしょうか？ 179 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 16:24:35 ] ﾜﾗﾀ なんかこうなってくると釣りｸｻｲよなwww 180 名前：デフォルトの名無しさん [2007/06/10(日) 17:08:23 ] 初心者の俺でも分かる。 1行ずつ追っていけよww 181 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:10:27 ] 相手にするから付け上がる 182 名前：１２５ [2007/06/10(日) 17:23:20 ] いや１４２さんのをヒントにやってみたつもりだったんですが・・・ ２桁同士の加算にしたいから上限９９、加減１０に設定して その値をランダムかしてa+bのところに表示 みたなイメージで書いたつもりです 183 名前：デフォルトの名無しさん [2007/06/10(日) 17:29:48 ] うるさい だまれ 184 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:35:17 ] （´・ω・） 185 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 17:42:30 ] >その値をランダムかして ってランダム化表示してるだけだろ？aとbは元の値のままぢゃん 186 名前：１２５ [2007/06/10(日) 18:42:37 ] a = 99 b = 10 のすぐ下の Label1.Caption = CInt(Rnd(a) * 100) Label1.Caption = CInt(Rnd(b) * 100) でランダム化して、その下の Label1.Caption = CStr(a) & "+" & CStr(b) でランダム化したa、bをa+ｂの形式で出力できると思ったのですが どの辺がおかしいですか？ プログラムを色々前後させてやっても値が０になったりしてしまいます・・・ 187 名前：デフォルトの名無しさん [2007/06/10(日) 18:48:48 ] ヘルプ使えよカス Rnd()でググるなりしてもすぐ解決するだろうに いちいちその程度のことを人に聞くなよタコ助が 188 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 18:49:12 ] >>186 >>165 189 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 19:35:21 ] >ランダム化したa、bを ランダム化してねぇぇぇぇぇぇぇぇ! ...それともRnd()は呼び元で用意しているパラメータの値を書き換えるのか？ 190 名前：１２５ [2007/06/10(日) 19:49:48 ] すいません、調べてもあまり出てこないし ヘルプも自分はインストールしてなかったし今手元にCDもないんです・・・ Dim a As Integer Dim b As Integer をDim arandom As Integer とか色々書き換えてみましたが違うみたいで Label1.Caption = CInt(Rnd(a) * 100) Label1.Caption = CInt(Rnd(b) * 100) でa、ｂをランダムかしてるのかなと思ったんですが Rnd(a)とかの表現がおかしいですか？ 191 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 19:56:51 ] 質問は手元にCDがある状態になってからにしてくれ このままではお前のくだらない質問だらけでスレがいくつあっても足りない はっきりいって迷惑なんだよ 192 名前：デフォルトの名無しさん [2007/06/10(日) 20:13:14 ] くだらないはないんじゃないか？ もともとVBに関する質問をするスレなんだから 初心者はホントに簡単なプログラムでも微妙なとこ どうすればいいとかわからんもんだよ お前も慣れるまではそうだっただろ？ 何なら俺が１２５の実現したい機能全部書いてやってもいいけどね 193 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 20:17:01 ] > Rnd(a)とかの表現がおかしいですか？ いいえ。 a,bの値を書き換えるようにしていないのがダメなだけです。 194 名前：デフォルトの名無しさん [2007/06/10(日) 20:18:56 ] >>192 125とあなたでメールでやり取りしてくれ せいぜい125の辞書にでもなればいい 195 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 20:32:38 ] とりあえずマニュアルを入手するのが第一。 これはVBScriptのだけど、VB6でも同じだからよく読んでみろ。 www.mhl.janis.or.jp/~winarrow/vbscript/htm/vbs176.htm 196 名前：デフォルトの名無しさん [2007/06/10(日) 20:33:34 ] だからF8キーで1行ずつやってどういう動きをするか見ればいいのに。 Label1.Caption = CInt(Rnd(a) * 100) で、 たとえばLabel1は５５と出たとする。 その時のaの値は？？？　　９９だろ？ いい加減気づいてよ…。 197 名前：125 [2007/06/10(日) 20:48:58 ] すいません、１９３さんのコメントで数式はランダムで 上手く出てくるようになりました 明日以降からはしっかりとMSDNをインストールして来れると思うので 最後に今日中にもう一つだけ教えていただきたいのですが ２桁の整数同士を加算したいから１４２をヒントにして Ransuu = Int((hi - Lo + 1) * Rnd + Lo) をa、bに置き換えてみたんですが 一桁の整数がまだ出てきてしまいます 多分ここがポイントになってると思うんですが、この式は何を行うための 式なんですか？ 198 名前：デフォルトの名無しさん [2007/06/10(日) 20:59:45 ] >>197 ステップ実行すりゃいくらでも分かるだろ 何故それをしない？ >>142の式はRansuuに1〜10の値をランダムに代入してるだけだ 199 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 21:01:03 ] 上限と下限の間の乱数を得る式 200 名前：125 [2007/06/10(日) 21:01:57 ] >>198 ステップ実行って何ですか？ 201 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 21:03:58 ] やってみればわかる 202 名前：デフォルトの名無しさん [2007/06/10(日) 21:31:01 ] 例えばコマンドがクリックされるたびに 数字が一つ増えていくといったような機能は VBで作ることは可能ですか？ 203 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 21:32:23 ] はい 204 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 21:46:41 ] Wubi - Ubuntu installer for Windows pc11.2ch.net/test/read.cgi/software/1181387720/l50 205 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 22:07:53 ] あまりにも初歩的な質問はこっちの方が親切に答えてくれるぞ くだすれVB6.0以前（超初心者向け） pc11.2ch.net/test/read.cgi/tech/1165574205/ 住人は共通化もしれんが 206 名前：デフォルトの名無しさん mailto:sage [2007/06/10(日) 22:10:36 ] このスレだって、相手のためになるように親切に答えてるじゃないか。失礼だな。 207 名前：デフォルトの名無しさん [2007/06/11(月) 00:42:45 ] １から全部教えるのは可能だが、 それじゃ人に教えられたことしか出来なくなるからな。 理解せずに"書き方"としてコードを覚えて貰っても意味がない。 同じことの繰り返しになるだけ。 208 名前：デフォルトの名無しさん [2007/06/11(月) 09:16:10 ] これ一度わんくまで質問してもらいたいな どんな素晴らしい回答が帰ってくるのか いや・・・それすらないかもしれんｗ >>125 現在全てのソースで現状何処までできて何処がどう理解できないのか 折角だからｋｗｓｋ書いてみ？ それの判らない事は教えないと思うけど調べる為の術はきっと優しいお兄さん方が教えてくれるかもしれないｗ でも・・・・判らない事を適切に調べることができるのもPGとしてのスキルだと思うぜ 209 名前：デフォルトの名無しさん [2007/06/12(火) 11:01:28 ] >>202 こんな感じか？ このくらいVBでなくとも余裕だと思うが。 Private m_lCnt As Long Private Sub Command1_Click() m_lCnt = m_lCnt + 1& Label1.Caption = CStr(m_lCnt) End Sub Private Sub Form_Load() m_lCnt = 0& Label1.Caption = CStr(m_lCnt) End Sub 210 名前：デフォルトの名無しさん mailto:sage [2007/06/13(水) 14:24:13 ] VB6でテキストボックスからフォーカスを他へ移さないようにしたいのですが、どうしたらいいんですか？ 後、カーソルを左端じゃなくて右端に固定したいのですが… 211 名前：デフォルトの名無しさん [2007/06/13(水) 15:41:21 ] なんのためのプロパティだ。 212 名前：デフォルトの名無しさん mailto:sage [2007/06/13(水) 15:54:20 ] どうして複数のスレで聞くんだろうな 答える人間は一緒なのに 213 名前：デフォルトの名無しさん mailto:sage [2007/06/13(水) 16:56:23 ] スペシャルヒント ろすとふぉーかす せっとふぉーかす あらいんめんと 214 名前：デフォルトの名無しさん mailto:sage [2007/06/13(水) 22:01:45 ] ご冗談を。 215 名前：デフォルトの名無しさん mailto:sage [2007/06/14(木) 08:29:36 ] validateでいいんでね 216 名前：デフォルトの名無しさん [2007/06/14(木) 19:37:29 ] エクセルのデータを読込むために以下のスクリプトを作りました。 Set pExlApp = CreateObject("Excel.Application") Set pExlBook = pExlApp.Workbooks.Open(strFileName) １段目は正常に動くのですが ２段目が OfficeXP時は正常に動き Office2000時にエラーがでてしまいます。 どのような理由が考えられますか？

---

---

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

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