- JUGEM を楽しむ
-
- 投稿する・みんなとつながる
- ブログテーマ
- ブログのお題
- その他のコンテンツ
- 芸能人・有名人のブログ
- スペシャルインタビュー
- JUGEM を楽しむ 一覧
プログラミング
このテーマに投稿された記事：1017件 | このテーマのURL:https://jugem.jp/theme/c97/10155/
- プログラミング全般
-
作者のブログへ：「nanamiharuhit」さんのブログ
その他のテーマ：「nanamiharuhit」さんが作成したテーマ一覧(1件)
メッセージボックスの表示
[機能] ｖｂ２００８でメッセージボックスの表示 [ソース] Msgbox("メッセージ") '一番簡単なのはこれ。 Dim ret As MsgBoxResult = MessageBox.Show("メッセージ", "タイトル", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) If ret MsgBoxResult.Ok Then 'OKじゃなかった時の処理 Else 'OKのときの処理 End if [メモ] ただ、メッセージを表示したいだけなら、MsgBox関数呼び出しが簡単。 タイトルやボタンの種類やマークを指定して、ユーザーがどのボタンを押したかみたい場合...
vb2008スクリプトメモ | 2010.02.09 Tue 11:43
文字列の置換
[機能] ｖｂ２００８での文字列の置換。 [ソース] Imports System.Text.RegularExpressions ------------------------ outbuff = System.Text.RegularExpressions.Regex.Replace(outbuff, "[/a-zA-Z_-]+¥.css", my_css) [メモ] 任意のcssを、my_cssで指定したcssファイル名に置換をかけている例。 htmlページを生成するプログラムで、用意したテンプレートに置換をかけて個々のページをつくるときには、このような正規表現を用いた置換処理を頻繁に使う必要がでてくるので、 System.Text.RegularExpres...
vb2008スクリプトメモ | 2010.02.09 Tue 11:37
数字から文字列への変換
[機能] ｖｂ２００８で、数字を文字列に変換する方法 [ソース] mojiretu = CStr(suuji) mojiretu = suuji.ToString ----------------------------- suuji = CInt(mojiretu) [メモ] どっちでもOK。 でも、ToStringはあるけど、ToIntegerはないのです。＾＾ JUGEMテーマ：プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 11:31
DataGridViewの手動編集結果を確実に反映させる方法
[機能] DataGridViewの手動編集結果を確実に反映させる方法 [ソース] Form1.DataGridView1.EndEdit() [メモ] DataGridViewは、編集(鉛筆マーク)が出ている状態を終わらせる(別の行にフォーカスを移す等)しないと、 表中にユーザが値を入力しても、まだ変更が確定されていない状態となっている。 その状態のまま、画面を閉じたり、プログラム側つくった更新ボタンを押すと、編集したつもりなのに、前の状態のまま更新処理が動いてしまったりするので、上記のEndEdit()をプログラム内で必ず呼ぶようにするよう...
vb2008スクリプトメモ | 2010.02.09 Tue 11:25
HTTP POST
[機能] HttpWebRequestで、WebページにPOST処理を行う関数。 [ソース] Imports System.IO ----------------------------- Function MyPOST(ByVal url As String, ByVal postdata As String, ByVal str_encode As String) As String On Error GoTo Label_err If url.Length
vb2008スクリプトメモ | 2010.02.09 Tue 11:18
HTTP GET
[機能] HttpWebRequestで、Webページの内容を読み込む。 [ソース] Imports System.IO ---------------------------- Function myGET(ByVal url As String, ByVal str_encode As String, ByVal timewaite As Long) As String On Error GoTo Label_err If url.Length
vb2008スクリプトメモ | 2010.02.09 Tue 11:09
サマリー関数を使ったクエリー
[機能] CountやMaxやSumなどのサマリー関数を使ったクエリー [ソース] conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbpath & ";" conn.Open() cmd = conn.CreateCommand cmd.CommandTimeout = 15 SQL = "SELECT subword, Count(subword) AS cnt FROM myresult GROUP BY subword ORDER BY Count(subword) DESC;" cmd.CommandText = SQL reader = cmd.ExecuteReader() While reader.Read() xlsheet.Cells(i, 1).value = CStr(reader("subword")) xlsheet.Cells(i, 2)....
vb2008スクリプトメモ | 2010.02.09 Tue 11:02
ディレクトリ中のファイル一覧の取得
[機能] ディレクトリ中のファイル一覧の取得してDataGridViewに表示するサンプルスクリプト [ソース] Imports System.IO --------------------------------------------------------------- 'mdbファイルの一覧を生成表示 Dim mypath As String = System.IO.Directory.GetCurrentDirectory() Dim mdblist As String() mdblist = System.IO.Directory.GetFiles(mypath, "*.mdb") For i = 0 To mdblist.Length - 1 Me.DataGridView1.Rows.Add() Me.DataGridView1(1, i + 1).Value = mdblist(i) Me.Data...
vb2008スクリプトメモ | 2010.02.09 Tue 10:55
パスからディレクトリ名だけを取り出す
[機能] パスからディレクトリ名だけを取り出す [ソース] Function ディレクトリ名(ByVal temp As String) As String Dim i As Integer i = InStrRev(temp, "¥") If i > 0 Then Return Microsoft.VisualBasic.Left(temp, i) Else Return "" End If End Function Function ファイル名(ByVal temp As String) As VariantType Dim i As Integer i = InStrRev(temp, "¥") If i > 0 Then Return Microsoft.VisualBasic.Right(temp, Len(temp) - i) Else ...
vb2008スクリプトメモ | 2010.02.09 Tue 10:44
multilineのテキストボックスの内容をリストに取り込む
[機能] multilineのテキストボックスの内容をリストに取り込むサンプルスクリプト [ソース] Public keylist As String() ---------------------------------------------- Dim tempstring As String = Form1.textboxキーワードリスト.Text If tempstring.Length 0 Then rc = rc + 1 Next [メモ] 複数行入力できるテキストボックスに入れた文字列を１つ１つ読み込んで処理を行いたかったので こういうコードを書いた。改行の判定がちょっといやらしくて、上記のようにSplitには、vbcrを指定して、 余分な...
vb2008スクリプトメモ | 2010.02.09 Tue 10:37
全1000件中 961 - 970 件表示 (97/100 ページ)
