Dim newWidth As Integer = 240 Dim newHeight As Integer = 320 Dim src As Bitmap = New Bitmap("c:\hoge.jpg") Dim dest As Bitmap = New Bitmap(newWidth, newHeight) Using g As Graphics = Graphics.FromImage(dest) g.DrawImage(src, 0, 0, newWidth,…

'全角スペースで終わっているフォルダ名があるとGetFilesでエラーが発生するのでその対応 If Right(folder, 1) <> "\" Then folder = folder & "\" End If http://dobon.net/vb/bbs/log3-8/4859.html

Dim workTable As DataTable = New DataTable("Customers") 'カラム名を追加 workTable.Columns.Add("ColumnName", Type.GetType("System.String")) 'レコードを追加 Dim workRow As DataRow = workTable.NewRow() workRow(0) = ”Value” workTable.Rows.Add(…

DataGridViewで、行を削除しようとすると、「コミットされていない新しい行を削除することはできません。」とエラーが出てしまうのを回避するには '列が自動的に作成されないようにする DataGridView1.AutoGenerateColumns = False http://detail.chiebukuro…

シート名を指定してワークシートオブジェクトを取得するサンプル Dim xlWorkBook As Excel.Workbook Dim xlSheets As Excel.Sheets Dim xlSheet As Excel.Worksheet Dim SheetName As String 'エクセルを開く xlWorkBook = xlApp.Workbooks.Open(”hoge.xls”…

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=18124&forum=7 http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200902/09020005.txt 上記によると「IMEX=1」を加えるとOKみたいな感じですが 26レコード目までが数字しか入力されていない…

DataSetを利用してコンボボックスを作成する。 http://park5.wakwak.com/~weblab/selectCombOnly.html ただ、作成したコンボボックスに1件追加 みたいなのが簡単にできないみたい。 一度クリアして再度作成するしかないのかな？

DB接続文字列一覧 http://homepage1.nifty.com/kojama/works/rdbms/conn/connstr.html#mssqloledb

フォルダのタイムスタンプを取得する http://jeanne.wankuma.com/tips/vb.net/directory/gettimestamp.html

画像を挿入し、サイズ 変更するサンプルソース Sub Main() Dim xlPictures As Excel.Pictures Try xlPictures = DirectCast(xlSheet.Pictures, Excel.Pictures) Dim xlPicture As Excel.Picture Try Dim imgPath As String imgPath = "画像のパスを指定する"…

Dim strTemp As String = "ｃｃｄ" ' 文字列を半角に変換する Dim stUpper As String = StrConv(strTemp, VbStrConv.Narrow) ' 文字列を大文字に変換する stUpper = stUpper.ToUpper() 'まとめると StrConv(strTemp & "", VbStrConv.Narrow).ToUpper()

縮小変換しないで呼び出される、アクセス可能な ’Join’ がないため、オーバーロードの解決に失敗しました： 原因は Joinする配列に問題がある。 Dim aryTemp As Array = Split( strTemp, ",") strTemp = Join( aryTemp , ",") これはエラー Dim aryTemp As S…

javascript のconfirm的な動作をしたい時は Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If MessageBox.Show("よろしいですか？", _ "確認", _ MessageBoxButtons.YesNo, _ MessageBoxIc…

VB.NETの三項演算子 Dim a As String = "～", b As String = "～" Dim sResult As String = If(a = b, "hoge", "fuga") IIFでもイケる？ http://genz0.blogspot.jp/2008/12/netvbnet.html

Excelがインストールされているかチェック If Not Type.GetTypeFromProgID("Excel.Application") Is Nothing Then MsgBox("Excelはインストールされています。") Else MsgBox("Excelはインストールされていません。") End If http://d.hatena.ne.jp/gsf_zero…

VB.NET VBScript New String("*", 10) = String(10, "*") http://www.atmarkit.co.jp/fdotnet/dotnettips/052repeatchar/repeatchar.html

追加した項目で名前がHogeHogeの項目があれば Listbox の項目を選択する While (sqlReader.Reader.Read()) ListBox1.Items.Add(sqlReader.Reader.GetString(0)) If sqlReader.Reader.GetString(0) = ”HogeHoge” Then ListBox1.SelectedIndex = ListBox1.Item…