Vba integerとstring型に変換

文字列の変換関数

CStr()

関数を使う

Dim myStr as String

myStr = CStr(153)

vb.net datagridViewのすべての行を削除

vb.net datagridViewのすべての行を削除

do
{
   foreach (DataGridViewRow row in m_dataGridView.Rows)
   {
      try
      {
        m_dataGridView.Rows.Remove(row);      }
      catch (Exception) { }
   }
} while (m_dataGridView.Rows.Count > 1);

vb.net datagridview 新規行判定方法

vb.net datagridview 新規行判定方法

If False = dataGridViewObj.Rows(0).IsNewRow Then
       ' 新規行じゃない
Else
　　　' 新規行ですよ
EndIf

vb.net 異常発生時に、発生した行番号を取得

vb.net 異常発生時に、発生した行番号を取得

New StackFrame(True).GetFileLineNumber

使い方例：

            Dim m_strTEMsg As String = String.Empty
            m_strTEMsg &= New StackFrame(True).GetFileLineNumber
            m_strTEMsg &= ","
            m_strTEMsg &= ex.Message.ToString       ' エラー情報
            ErrorLogWrite(m_strTEMsg)

DataGridViewComboBoxColumnの初期値を入れる

DataGridViewComboBoxColumnの初期値を入れる

①まず、DataGridViewのCellFormattingイベントハンドラを追加
②そのイベントハンドラの中、下記を追加
　　例の中、DataGridViewComboBoxColumnは第二列にある。
　　

Private Sub m_dgvData_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles m_dgvData.CellFormatting
        If e.ColumnIndex = 1 Then　' Index of your DataGridViewComboBoxColumn 
            CType(m_dgvData.Rows(e.RowIndex).Cells(1), DataGridViewComboBoxCell).Value = 1
        End If
    End Sub

vb.net 背景色を消す、Nullにするには

vb.net　背景色を消す、Nullにするには

xx.Style.BackColor = Color.Empty

DataGridView 横スクロールバー非表示 問題の修正

DataGridView 横スクロールバー非表示　問題の修正

全てのColumnsのFrozen属性は'False' にしていることを確認。一つでも'True'にしたら、非表示になってしまうので、

DataGridViewComboBoxColumn にDataTableを入れてあげる

DataGridViewComboBoxColumn にDataTableを入れてあげる　

        ' 定義

   　　 Dim dgvTableS　As New DataTable
        Dim dgvCmb As DataGridViewComboBoxColumn
        dgvTableS.Columns.Add("Name", GetType(String))
        dgvTableS.Columns.Add("Val", GetType(Integer))
        dgvTableS.Rows.Add("鈴木", 0)
        dgvTableS.Rows.Add("渡辺", 1)
        dgvTableS.Rows.Add("柏原", 2)
        dgvTableS.Rows.Add("林", 3)
        dgvCmb = CType(m_dgvData.Columns(0), DataGridViewComboBoxColumn)
        dgvCmb.DataSource = dgvTableS
        dgvCmb.ValueMember = "Val"
        dgvCmb.DisplayMember = "Name"
   

VB 指定年月の最終日を取得

VB　指定年月の最終日を取得　

Public Function GetLastDayOfMonth(intMonth, intYear) As Date

    Return DateSerial(intYear, intMonth + 1, 0)

End Function

Vb DataGridView フォーカスを示す四角形点線枠を消す方法

Vb DataGridView フォーカスを示す四角形点線枠を消す方法
１．　CellPaintingイベントハンドラで自分で枠を描くように
　　'CellPaintingイベントハンドラ

Private Sub DataGridView1_CellPainting(ByVal sender As Object, _
        ByVal e As DataGridViewCellPaintingEventArgs) _
        Handles DataGridView1.CellPainting
    'ヘッダー以外のとき
    If e.ColumnIndex >= 0 And e.RowIndex >= 0 Then
        'フォーカス枠以外が描画されるようにする
        Dim paintParts As DataGridViewPaintParts = _
            e.PaintParts And Not DataGridViewPaintParts.Focus
        'セルを描画する
        e.Paint(e.ClipBounds, paintParts)

        '描画が完了したことを知らせる
        e.Handled = True
    End If
End Sub

参考URL

２．DataGridViewのShowFocusCuesをオーバーライドし、常にfalseを返すように
public class DatagridViewGS : DatagridView
　{
　　　protected override bool ShowFocusCues
　　　{
　　　　　get { return false; }
　　　}
　}

vb DataTable.Clear と DataTable.Rows.Clear. の違い

vb DataTable.Clear と　DataTable.Rows.Clear.　の違い

古い.Net 1.1バージョン、同じだったらしい。　DataRowCollection.Clearの処理の中、DataTable.Clearを呼び出す。

.Net 2.0違は違います。


参考：In .Net 1.1, DataRowCollection.Clear calls DataTable.Clear

However, in .Net 2.0, there is a difference. If I understand the source correctly, DataTable.Clear will clear unattached rows (created using DataTable.NewRow) whereas DataRowCollection.Clear won't.

The difference is in RecordManager.Clear (source below, from the .Net Reference Source for v3.5 SP 0); clearAll is true only when called from DataTable.Clear.

    internal void Clear(bool clearAll) { 
        if (clearAll) {
            for(int record = 0; record < recordCapacity; ++record) { 
                rows[record] = null;
            }
            int count = table.columnCollection.Count;
            for(int i = 0; i < count; ++i) { 
                //

                DataColumn column = table.columnCollection[i]; 
                for(int record = 0; record < recordCapacity; ++record) {
                    column.FreeRecord(record); 
                }
            }
            lastFreeRecord = 0;
            freeRecordList.Clear(); 
        }
        else { // just clear attached rows 
            freeRecordList.Capacity = freeRecordList.Count + table.Rows.Count; 
            for(int record = 0; record < recordCapacity; ++record) {
                if (rows[record]!= null && rows[record].rowID != -1) { 
                    int tempRecord = record;
                    FreeRecord(ref tempRecord);
                }
            } 
        }
    }

vb datetimepickerから日本語曜日を取得する

vb datetimepickerから日本語曜日を取得する

Private Function GetDayOfWeekJp(ByVal  myDate As DateTimePicker) As String
        Return ("日月火水木金土").Substring(m_dtpNouhin.Value.DayOfWeek)
End Function

vb backcolorを規定のcontrolにする

vb backcolorを規定のcontrolにする

xxxx.Style.BackColor = SystemColors.Control

vb string date 変換

 Dim edate = "10/12/2009"
 Dim expenddt As Date = Date.ParseExact(edate, "dd/MM/yyyy", 
            System.Globalization.DateTimeFormatInfo.InvariantInfo)

OR

 Dim format() = {"dd/MM/yyyy", "d/M/yyyy", "dd-MM-yyyy"}
 Dim expenddt As Date = Date.ParseExact(edate, format,  
     System.Globalization.DateTimeFormatInfo.InvariantInfo, 
     Globalization.DateTimeStyles.None)

OR

Dim format() = {"dd/MM/yyyy", "d/M/yyyy", "dd-MM-yyyy"}
Dim expenddt As Date
Date.TryParseExact(edate, format, 
    System.Globalization.DateTimeFormatInfo.InvariantInfo, 
    Globalization.DateTimeStyles.None, expenddt)

vb MySqlDataReader Null判断

vb.netで MySqlDataReader Nullチェック方法


if Not (myDataReader is Nothing)
myDataReader.Close()
end if

VB.NET フォーム イベント 順序

VB.NET フォーム　イベント　順序

起動する時

• Control.HandleCreated
  
• Control.BindingContextChanged
  
• Form.Load
  
• Control.VisibleChanged
  
• Form.Activated
  
• Form.Shown
  
  
  

閉じるとき：

• Form.Closing
  
• Form.FormClosing
  
• Form.Closed
  
• Form.FormClosed
  
• Form.Deactivate
  

vb.net datagridview 選択 クリア

vb.net datagridview 選択 クリア


全ての選択クリア
datagridview.ClearSelection()

とあるセルの選択クリア
datagridview.Rows(iy).Cells(ix).Selected = False

vb.net DataGridView フォーカス focus

DataGridView1.CurrentCell = DataGridView1.Item(1, 5)

or

DataGridView1.CurrentCell = DataGridView1.Item("ColumnName", 5)

and you can directly focus with Editing by:

dataGridView1.BeginEdit(true)

visual Studio ショットカートキー確認

visual Studio ショットカートキー確認には：
ツール→オプション→環境→キーボード

Visual Studio補完を表示するショットカートキー

インテリセンスを表示するには
Ctrl + Space

パラメータヒントを表示するには
Ctrl + Shift + Space