[pear_error: message="Success" code=0 mode=return level=notice prefix="" info=""]
[機能] 一定時間ごとに動くプログラムをつくる(Timer:タイマー制御) [ソース] FormにTimerを配置する。 TimerのプロパティでIntervalを指定する。 当初はTimerのEnabledをFalseにしておいて、処理実行ボタンが押されたら、EnabledをTrueにして 一定時間間隔ごとに処理を実行させる。 ------------------- Public Structure myuuron Public lot As Integer Public uuron_id As Integer End Structure Public task_que2() As myuuron 'タスクキュー --------------------- Private Sub Timer1_Ti...
vb2008スクリプトメモ | 2010.02.09 Tue 13:26
[機能] サイズ0のファイルを作成する方法 [ソース] System.IO.File.Create(ファイルパス) [メモ] 失敗しないので、エラーハンドリングしない。^^; そのかわり、ファイルパスが事前に存在するかや(したらエラーになる)、存在しなディレクトリ上のファイルでないか、(なければエラーになる)等はしっかりつくっておく必要あり。 JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 13:08
[機能] 配列からランダムに1件取り出すサンプルスクリプト [ソース] uronids = "a,b,c,d,e,f,g" Dim uron_arr() As String uron_arr = uronids.Split(",") Dim u_imax As Integer = UBound(uron_arr) Dim rnd = New Random(DateTime.Now.Millisecond) For i=0 to 10 msgbox(uron_arr(rnd.Next(u_imax))) Next i [メモ] 元データを与えておいて、ランダムに文章などをつくりたいときに、重宝する。 rnd.Next(最大値)は、0以上、最大値以下の整数値を取得するので、配列からとりだすには、 配...
vb2008スクリプトメモ | 2010.02.09 Tue 13:02
[機能] Sqliteデータベースをvb2008で作成する方法 [ソース] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim csvDir As String = Application.StartupPath Dim dbpath As String = csvDir + "¥test.db" Dim connectString As String = "Driver={SQLite3 ODBC Driver}; Database=" + dbpath If System.IO.File.Exists(dbpath) Then System.IO.File.Delete(dbpat...
vb2008スクリプトメモ | 2010.02.09 Tue 12:34
[機能] ファイルを削除するコード [ソース] Kill(ファイル名) [メモ] vb2008でもKill関数は健在。ゴミ箱にも移動せずさくっと消えるので注意すること。 JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 12:11
[機能] vb2008での関数の戻り値の渡し方 [ソース] Function test関数() As boolean 'test関数=戻り値 '以前のvbの世界の方式 return 戻り値 'vb2008で有効になった方式 End Function [メモ] ようやく、return 戻り値 の形がvb2008でサポートされました。祝^v^ ちなみに、関数名に値を代入するってやり方でも動きます。(でも変な仕様でしたもんね〜^v^) JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 12:07
[機能] vb2008でのDoEvents [ソース] System.Windows.Forms.Application.DoEvents() ’えらーく長くなったものだ。 Application.DoEvents() '実はこれだけでも大丈夫^v^v [メモ] VBの世界でループ処理など時間がかかる処理のときに、DoEventsをしないとアプリケーション表示が固まってしまう、パソコンのリソースめいっぱいになってしまうという問題は、OSがマルチタスクになってかなり解消されたが、vb2008でもやはり、画面描画が真っ白になってしまうので、Doeventsは必要。 JUGEMテー...
vb2008スクリプトメモ | 2010.02.09 Tue 12:04
[機能] vb2008で、Formをモーダル表示、モードレス表示する [ソース] Form1.Show 'モードレス表示(すぐ次のコードが実行される) Form2.ShowDialog 'モーダル表示(Form2が閉じるまで次ぎのコードは実行されない) [メモ] 以前のvbでの Show 1 と Show 0 のかわりに、Show とShowDialogになった。 探すのにちょいと手間がかかったのでメモ。 JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 12:00
[機能] 短いコードを1行にまとめて書く方法 [ソース] aaaaaaa : bbbbbbb : cccccc [メモ] あまりに短い処理で、何行にもわかれていてみずらいので行数を縮めたいときは、 :で式をつなぐ。 細かい条件分岐が多いときなどに使うと全体が見渡しやすくなる。 JUGEMテーマ:プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 11:56
[機能] vbで長くなったコードを途中で折り返す方法 [ソース] aaaaaaaaaaaaaaaaaaaaaaaaaaa _ bbbbbbbbbbbbbbb [メモ] ただ改行してしまうと、別々のコードとコンパイラに判断されてしまうので、 長くなってみずらくてしょうがないコードを改行したい場合は、行の末尾に_を書く。 沢山の引数をもった関数を宣言する場合など、パラメーター1つ1つが見やすいように、 変数名1 as 型,_ 変数名2 as 型,_ ・・・・ と書いたりするひともいる。 (確かにあとで、見やすくなります。^^;) JUGEMテーマ...
vb2008スクリプトメモ | 2010.02.09 Tue 11:53
全1000件中 961 - 970 件表示 (97/100 ページ)