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/ ※「まず自分で調べる」クセを身につけよう。 52 名前：デフォルトの名無しさん mailto:sage [2011/05/08(日) 19:09:44.58 ] 必要なメソッドは必要な時に記述 53 名前：デフォルトの名無しさん mailto:sage [2011/05/09(月) 00:15:16.20 ] まずプロパティが100あるっていう前提からしてアホっぽいが ＞addHogeでは「Hogeを足す」 まさにそういうメソッドだろう 54 名前：デフォルトの名無しさん mailto:sage [2011/05/09(月) 00:25:56.79 ] いい歳こいて日本語の「てにをは」が使えないのは恥ずかしいよ。 「Hogeに足す」と「Hogeを足す」の違い分かる？ 55 名前：デフォルトの名無しさん mailto:sage [2011/05/09(月) 00:37:15.56 ] んなもんHogeが実際なんなのかによるだろうと思うが 気にいらんかったらaddHogeValueでもaddHogeCountでも 好きに作ったらええがな 56 名前：デフォルトの名無しさん mailto:sage [2011/05/10(火) 13:59:16.81 ] VB2003の質問はここでよろしいでしょうか？ 57 名前：デフォルトの名無しさん mailto:sage [2011/05/10(火) 15:32:38.22 ] ここはVB6まで 58 名前：デフォルトの名無しさん mailto:sage [2011/05/13(金) 21:57:56.25 ] プロパティに自由にアクセスできてしまうっていうのはどうかと思うぞ。 59 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 01:39:31.35 ] >>58 それは、ゲッターとセッターの両方をつけるのと何が違うんだ？ 60 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 06:46:10.74 ] >>59 ゲッター/セッターなら、変な値を設定できないようにしたり、 読み出された回数数えたりできるよ。 61 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 09:34:59.88 ] フレックスグリッドコントロールを使ってるんですが、 エクセルみたいにセルの下や右だけ罫線の色を変える、みたいなことはできないんですか？ 62 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 10:15:51.49 ] 付属のMSフレックスグリッドでは出来ないけど フレックスグリッド系コントロールの中には､それが出来るものもある 当然､無料じゃないけどな あとはラインとかピクチャーコントロールとかに色つけて重ねて 擬似的に実装するとかな 63 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 16:42:05.71 ] >>60 プロパティプロシージャでもできるやろ 64 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 18:15:27.31 ] >>63 >>59 65 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 18:23:24.27 ] >>58以降の流れはどれも何が言いたいのかさっぱり分からん。 特に>>64 個人的にはこういうのは他人がエスパーだと思ってるとしか思えん。 66 名前：デフォルトの名無しさん mailto:sage [2011/05/14(土) 18:55:36.41 ] 理解したくなければ放置しとけば言いし、 理解したいなら「どういうこと？」って聞けばいいのに。 67 名前：デフォルトの名無しさん mailto:sage [2011/05/16(月) 13:19:30.97 ] ファイルサイズ取得ってこんな感じで問題ない？問題ある？ With New FileSystemObject filesize = .GetFile(filepath).Size End With 68 名前：デフォルトの名無しさん mailto:sage [2011/05/16(月) 13:33:41.86 ] 実装してみて実際のファイルサイズを取得してみて合ってるならそれでいいのでは？ 69 名前：デフォルトの名無しさん mailto:sage [2011/05/16(月) 13:53:05.69 ] okわかった。ありがと 70 名前：デフォルトの名無しさん mailto:sage [2011/05/16(月) 17:31:59.11 ] ちゃんと8Gオーバーくらいのサイズで試さないとね 71 名前：デフォルトの名無しさん mailto:sage [2011/05/16(月) 19:44:45.24 ] >>67 またWithでNewか。いいけど。 72 名前：デフォルトの名無しさん mailto:sage [2011/05/17(火) 00:06:52.59 ] えー、With Newって書き方は初めて見た。 これって、End Withで解放されるの？ ガーベジコレクション的にも大丈夫？ ところで皆さんはガーベジコレクションって言いますか？ ガーベッジコレクションって言いますか？ 73 名前：デフォルトの名無しさん mailto:sage [2011/05/17(火) 18:55:36.37 ] >>72 End Withの後、アクセスしようが無くなって、たぶんメソッド抜けた時点で開放されるかな。 74 名前：デフォルトの名無しさん mailto:sage [2011/05/17(火) 22:21:37.18 ] そういうメモリから解放されたかどうかって知るすべあるの？ 75 名前：デフォルトの名無しさん mailto:sage [2011/05/18(水) 07:15:17.07 ] >>74 自作クラスでやるなら、簡単だよな？ 76 名前：デフォルトの名無しさん mailto:sage [2011/05/18(水) 17:14:53.76 ] おせーてくらさい 77 名前：デフォルトの名無しさん mailto:sage [2011/05/18(水) 19:38:30.99 ] >>76 terminateイベントプロシージャにDebug,Print "hoge"とでも書けば 78 名前：デフォルトの名無しさん mailto:sage [2011/05/19(木) 01:03:58.16 ] �d�d なるほど 79 名前：デフォルトの名無しさん mailto:sage [2011/05/19(木) 01:08:41.62 ] 'Class1 Public Sub Hoge() Debug.Print "hoge" End Sub Private Sub Class_Initialize() Debug.Print "initialize" End Sub Private Sub Class_Terminate() Debug.Print "terminate" End Sub 'Form1 Private Sub Command1_Click() Debug.Print "click" With New Class1 Debug.Print "call hoge" .Hoge Debug.Print "aftre call hoge" End With Debug.Print "end sub" End Sub 'Result click initialize call hoge hoge aftre call hoge terminate end sub 80 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 15:31:26.12 ] VBを今のところ、ただ勉強目的で始めたいのですが、VBの何をまずダウンロードすればいいのか、わかりません。教えてください。 自宅でWindows7を使っています。インターネット接続環境はありません。そのため、ネットカフェでダウンロードして、自宅でそれをインストールしたいのですが、オフラインの自宅でインストールは可能でしょうか？ また何というものをダウンロードすればいいのですか？ いろいろ調べたら、単なる勉学者は、Express Editionとかいうのをダウンロードすればいいみたいですが、詳しくはわかりません。 以上を踏まえ、どなたか何とぞ、お教えねがいます。 81 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 16:06:07.83 ] >>80 スレ違い ダウンロード出来るのは､VBではなくVB.NET VB.NET質問スレ(Part36) hibari.2ch.net/test/read.cgi/tech/1301828549/ 82 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 16:15:50.20 ] ftp://ftp.microsoft.com/softlib/ このサイトのMSLFILESにあるVB6用のサンプルプログラムってVB6やるからには見ておいたほうがいいの？ 83 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 17:55:11.04 ] ftp://ftp.microsoft.com/のdeveloprフォルダ 84 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 17:58:13.02 ] ftp://ftp.microsoft.com/deskapps/games/public/でゲームでも探して炉 85 名前：デフォルトの名無しさん mailto:sage [2011/05/20(金) 18:06:50.49 ] なにがしたいんだよ 86 名前：デフォルトの名無しさん mailto:sage [2011/05/21(土) 23:03:28.32 ] フォーム上のコマンドボタンを押すと１行目に『ビート』、２行目に『たけし』とリストボックスに追加されるプログラムがある。【�@】、【�A】を埋めて完成させよ。リストボックスのオブジェクト名は『List1』とする。 Private Sub Command1_Clic() List1.【 �@ 】 List1.【 �A 】 End Sub 87 名前：デフォルトの名無しさん mailto:sage [2011/05/21(土) 23:11:50.42 ] 動的配列を使い、コマンドボックスを押すたびに配列の数が増えるプログラムを【】を埋めて完成させよ。 Private Max As Long 'データ数を保存する変数 Private Hairetu() As Long '配列 Private Sub Form_Load() Max = 0 'データ数初期化 End Sub Private Sub Command1_Click() Max = Max + 1 'データ数を１つ増やす 【 】'実際に配列の範囲を変更 End Sub 88 名前：デフォルトの名無しさん mailto:sage [2011/05/21(土) 23:24:53.29 ] 先生、コマンドボックスってなんですか？ 89 名前：デフォルトの名無しさん mailto:sage [2011/05/21(土) 23:46:50.70 ] Redim Preserveだが…なんでこんな問題作ってんの？ 90 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 00:57:54.89 ] 学校の宿題なんだろ 91 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 01:13:59.00 ] 「値を保持したまま」とは書いてないから､ReDimだけで良いのでは？ 値の保持が必要ないなら､ReDim Preserveは遅いだけだし 92 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 03:21:05.03 ] Hairetu()(笑) 93 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 16:34:01.94 ] Haiyoru（笑） 94 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 17:11:34.88 ] ググればすぐわかるような基本構文問題には答えんなよｗ 95 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 20:22:20.71 ] >>86 先生！なに入れてもコマンドボタンが反応しません！ 96 名前：デフォルトの名無しさん mailto:sage [2011/05/22(日) 21:00:12.41 ] 確かにあれじゃ反応しないなw なんてマのヌケた出題なんだろう… 97 名前：デフォルトの名無しさん mailto:sage [2011/05/24(火) 23:15:18.09 ] 1つの配列の中に重複するデータが多数ある 重複するデータを抜き出したい A,B,A,B,A,A,C,F,C.... 欲しいデータは重複データなので上記の場合 A,B,Cとなります unique以外を取得したいのです 98 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 01:01:19.38 ] >>97 ソートしてから､2つ以上同一の値が連続しているものを抜粋する Filter掛けて､戻り値のUBoundが1以上のものを列挙する 連想配列を利用する いろいろ方法はあるので､お好きな物をどうぞ 99 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 01:02:11.41 ] 便利なコマンドがVB6以前に存在するのかを尋ねているのか 最速アルゴリズムを尋ねているのか 100 名前：デフォルトの名無しさん mailto:sage [2011/05/25(水) 01:30:36.51 ] じゃあ両方で 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です。

---

---

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

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