- JUGEM を楽しむ
-
- 投稿する・みんなとつながる
- ブログテーマ
- ブログのお題
- その他のコンテンツ
- 芸能人・有名人のブログ
- スペシャルインタビュー
- JUGEM を楽しむ 一覧
プログラミング
このテーマに投稿された記事：1017件 | このテーマのURL:https://jugem.jp/theme/c97/10155/
- プログラミング全般
-
作者のブログへ：「nanamiharuhit」さんのブログ
その他のテーマ：「nanamiharuhit」さんが作成したテーマ一覧(1件)
現在選択されている行を削除する
[機能] DataGridViewで、現在選択されている行を削除するスクリプト [ソース] Private Sub 行削除ToolStripMenuItem_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 行削除ToolStripMenuItem.Click Me.DataGridView1.Rows.RemoveAt(Me.DataGridView1.CurrentCell.RowIndex) End Sub [メモ] DataGridView1に、ToolStripMenuを割り当てて、DataGridView上で右クリックしたときに 上記メニューが表示されて、クリックされたら、その行を削除するように組んだもの。 Ex...
vb2008スクリプトメモ | 2010.02.09 Tue 10:29
文字列の比較方法
[機能] ｖｂ２００８で文字列が等しいか比較する方法 [ソース] Private Sub DataGridView1_CellEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEnter Dim dgv As DataGridView = CType(sender, DataGridView) Dim Header As String = dgv.Columns(e.ColumnIndex).HeaderText If "検索ワード".Equals(Header) Then DataGridView1.ImeMode = Windows.Forms.ImeMode.Hiragana Else DataGridView1.ImeMode = Window...
vb2008スクリプトメモ | 2010.02.09 Tue 10:25
現在時刻の活用
[機能] 現在時刻を取得して、文字列として活用するサンプルスクリプト [ソース] Msgbox(Now().ToString("yyyy/M/d HH:mm:ss")) [メモ] Now()で現在時刻を取得してToStringメソッドに、書式を指定するだけ。 シンプル＾＾； JUGEMテーマ：プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 10:18
文字列の連結
[機能] ｖｂ２００８における文字列の連結方法 [ソース] temp3 = temp1 + temp2 temp3 = temp1 & temp2 temp3 = temp1 + CStr(temp2) temp3 = temp1 + temp2.ToString [メモ] ｖｂ２００８での文字列連結の演算子は、＋でも＆でもOK。 ＋のときは型変換エラーが出る場合があるので、Cstr関数なり、ToStringメソッドなりで、文字列にキャストしてあげること。 PHPでは.(ドット)で、Javascriptでは＋で、VBAでは＆で、・・・とごっちゃに使っているとこんがらがってくるので、念のためメモ＾＾； JUGEM...
vb2008スクリプトメモ | 2010.02.09 Tue 10:14
Windowが閉じる前に確認する処理
[機能] Windowが閉じる前に確認するサンプルスクリプト [ソース] Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Dim smsg As String Dim ans As MsgBoxResult smsg = "終了しても、よろしいですか？" ans = MessageBox.Show(smsg, "終了確認", MessageBoxButtons.OKCancel, MessageBoxIcon.Question) If ans MsgBoxResult.Ok Then e.Cancel = True End If End Sub [メモ] ユーザがWin...
vb2008スクリプトメモ | 2010.02.09 Tue 10:09
Excelファイルを開く
[機能] ｖｂ２００８からExcelファイルを開くサンプルスクリプト [ソース] Imports Microsoft.Office.Interop ----------------------------------- Public g_xlApp As Excel.Application Public g_workbook As Excel.Workbook ----------------------------------- Dim xlBooks As Excel.Workbooks g_xlApp = CreateObject("Excel.Application") g_xlApp.Visible = True xlBooks = CType(g_xlApp.Workbooks, Excel.Workbooks) 'g_workbook = xlBooks.Add g_workbook = g_xlApp.Workbooks.Open(datafile) ...
vb2008スクリプトメモ | 2010.02.09 Tue 09:00
sleep処理
[機能] ｖｂ２００８でｓｌｅｅｐする処理 [ソース] System.Threading.Thread.Sleep(200) [メモ] ０．２秒スリープする処理。 ループで回して使う場合は、そのたびに画面表示がまっさらになってしまうので、 直後にApplication.DoEvents()を入れて画面再描画をうながすことを忘れずに。 JUGEMテーマ：プログラミング
vb2008スクリプトメモ | 2010.02.09 Tue 08:39
ファイルの存在チェック
[機能] 指定されたファイルやフォルダが存在するかチェックするサンプルスクリプト [ソース] If Not System.IO.File.Exists(myFileName) Then MsgBox("ファイルがありません。") End If If System.IO.File.Exists(myFileName) Then MsgBox("ファイルは既に存在します。") End If If Not System.IO.Directory.Exists(myFolderName) Then MsgBox("フォルダがありません。") End if If System.IO.Directory.Exists(myFolderName) Then MsgBox("フォルダは既に存在しています。") End if [メ...
vb2008スクリプトメモ | 2010.02.09 Tue 08:05
CSVファイルを読み込む
[機能] CSVファイルを読み込んで、DataGridViewに表示するサンプルスクリプト [ソース] Dim Reader As New IO.StreamReader(myfd.FileName, System.Text.Encoding.GetEncoding("Shift_JIS")) Dim Line As String = "" Dim Items() As String Dim i As Integer = Me.DataGridView1.RowCount - 1 Do Until Reader.EndOfStream Line = Reader.ReadLine() Items = Line.Split(",") If Items.Length = 8 Then Me.DataGridView1.Rows.Add() For j = 0 To 7 Items(j) = Items(j).Replace("""", ...
vb2008スクリプトメモ | 2010.02.09 Tue 07:56
UPDATE および INSERT SQL (Access)
[機能] UPDATE および INSERT SQLのサンプルスクリプト。 [ソース] Dim conn As New OleDb.OleDbConnection Dim cmd As OleDb.OleDbCommand conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dbpath & ";" conn.Open() Try Dim strSQL As String Dim res As Integer strSQL = "UPDATE copymethod SET copyurl = '" + copyurl + "',inpos = '" + inpos + "', menu = '" + menu + "', devid = '" + devid + "', api = '" + api + "', uronids = '" + uronids + "' WH...
vb2008スクリプトメモ | 2010.02.08 Mon 22:28
全1000件中 971 - 980 件表示 (98/100 ページ)
