メモリに意図的に負荷をかけるスクリプト

Sample.vbs

Dim i

For i = 1 To 5000
    Call Roop
Next

MsgBox "終了しました。メッセージボックスを閉じるとメモリは開放されます。"

Sub Roop()
    Dim x, y
    Set x = CreateObject("Scripting.Dictionary")
    Set y = CreateObject("Scripting.Dictionary")
    Call x.Add("a", y)
    Call y.Add("b", x)
End Sub

SQL Server Management Studioでテーブルを開く時の件数制限を設定する

標準の状態でテーブルを開く際

・上位1000件の選択

・上位200件の編集

のいずれかでテーブルを開くことになるが大抵それじゃ足りないことがある。

以下の設定で件数の設定が行える。

[ツール] - [オプション] - [SQL Server オブジェクト エクスプローラー] - [コマンド]

上位＜n＞行の選択コマンドの値

上位＜n＞行の編集コマンドの値

「0」を指定すると全ての行が返される。

VB.NETで「Debug」や「Release」などのソリューション構成を有効にする

メニューバーから[ツール]ー[オプション]を選択

左側のツリーより[プロジェクトおよびソリューション]ー[全般]を選択

[ビルド構成の詳細を表示]にチェックを付けて[OK]を選択

ファイルやフォルダをドラッグ＆ドロップしてテキストボックスにパスを入力する

フォームにテキストボックスを配置する。

Public Class Form1
    Private Sub TextBox1_DragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
        'データ形式の確認
        If Not e.Data.GetDataPresent(DataFormats.FileDrop) Then
            Return
        End If

        '複数パスをドラッグしているか確認
        If DirectCast(e.Data.GetData(DataFormats.FileDrop), String()).Length <> 1 Then
            Return
        End If

        'ドロップ可能な場合は、エフェクトを変える
        e.Effect = DragDropEffects.Copy
    End Sub

    Private Sub TextBox1_DragDrop(sender As Object, e As DragEventArgs) Handles TextBox1.DragDrop
        'ドラッグしているパスの取得
        TextBox1.Text = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())(0)
    End Sub
End Class

指定フォルダ配下のファイルを全て取得する

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim strFile() As String = System.IO.Directory.GetFiles("C:\test", "*", IO.SearchOption.AllDirectories)

        For i As Integer = 0 To strFile.Length - 1
            Debug.Print(strFile(i))
        Next
    End Sub
End Class

絶対パスか相対パスかを判定する

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If System.IO.Path.IsPathRooted("C:\test.txt") Then
            MessageBox.Show("絶対パスです。")
        Else
            MessageBox.Show("相対パスです。")
        End If
    End Sub
End Class

マウス・キーボードの共有ソフト

Mouse without Boaders

http://www.microsoft.com/en-us/download/details.aspx?id=35460

Adobe Readerをバージョンごとにダウンロード

ftp://ftp.adobe.com/pub/adobe/reader/

列挙体の項目数を取得する

C#の場合はGetType()の代わりにtypeof()を使う。

Public Class Form1
    Private Enum Users
        Id
        Name
    End Enum

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MessageBox.Show([Enum].GetNames(GetType(Users)).Length.ToString)
    End Sub
End Class

DataGridViewコントロールの列にコンボボックスを設定する

グリッドの列をコンボボックスにするにはDataGridViewComboBoxColumnクラスを使用する。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '直接設定する方法
        Dim col0 As New DataGridViewComboBoxColumn

        For i As Integer = 1 To 12
            col0.Items.Add(i.ToString & "月")
        Next

        DataGridView1.Columns.Add(col0)

        'DataSourceプロパティを使用した方法
        Dim col1 As New DataGridViewComboBoxColumn
        Dim dt As New DataTable

        dt.Columns.Add("Value", GetType(Integer))
        dt.Columns.Add("Display", GetType(String))

        For i As Integer = 1 To 31
            dt.Rows.Add(i, i.ToString & "日")
        Next

        col1.DataSource = dt
        col1.ValueMember = "Value"
        col1.DisplayMember = "Display"

        DataGridView1.Columns.Add(col1)
    End Sub
End Class