調べてみたら全く知らない方法で取得することが判った。
Dim ver As String = _
System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString
これはMicrosoftの.NET Compact Framework に関するよくある質問サイトで見つけた。
「.NET Compact Framework 内のファイルのバージョンを確認できますか」
日 | 月 | 火 | 水 | 木 | 金 | 土 |
---|---|---|---|---|---|---|
1 | 2 | |||||
3 | 4 | 5 | 6 | 7 | 8 | 9 |
10 | 11 | 12 | 13 | 14 | 15 | 16 |
17 | 18 | 19 | 20 | 21 | 22 | 23 |
24 | 25 | 26 | 27 | 28 | 29 | 30 |
31 |
Dim ver As String = _
System.Reflection.Assembly.GetExecutingAssembly.GetName.Version.ToString
・VB6
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
If Shift = (vbShiftMask + vbCtrlMask) Then
MsgBox "SHIFT+CTRL+右クリック"
End If
End If
End Sub
・VB.NET
Private Sub Form1_MouseUp(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
If e.Button = Windows.Forms.MouseButtons.Right Then
If Control.ModifierKeys = (Keys.Shift + Keys.Control) Then
MsgBox "SHIFT+CTRL+右クリック"
End If
End If
End Sub
・VB2005以降ならControl.ModifierKeysの代わりに以下も可能
My.Computer.Keyboard.ShiftKeyDown And My.Comp.Keyboard.CtrlKeyDown
この広告は90日以上新しい記事の投稿がないブログに表示されております。