VB.NET カテゴリーアーカイブ

2010年03月25日(木曜日) 08時46分

[VB.NETメモ] アプリ起動時にチェックボックスの状態制御？ その2

すぐに忘れそうなのでφ(．．)メモメモ
レジストリの有無でチェックボックスにチェックを入れる。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using rkey As RegistryKey = Registry.CurrentUser.CreateSubKey("レジストリパス")

            Dim obj As Object = rkey.GetValue("値")

           If obj IsNot Nothing Then
                    CheckBox1.Checked = Boolean.Parse(obj)
                End If
        End Using
    End Sub
End Class
書いた人：ken | コメントは受け付けていません。 | VB.NET |
2010年03月23日(火曜日) 08時30分

[VB.NETメモ] アプリ起動時にチェックボックスの状態制御？

すぐに忘れそうなのでφ(．．)メモメモ
レジストリを読み込んで、条件に合致すればチェックボックスにチェックを入れる。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Using rkey As RegistryKey = Registry.CurrentUser.CreateSubKey("レジストリパス")

            Dim obj As Object = rkey.GetValue("名前", "値")

            If obj IsNot Nothing Then
                If obj = "チェック条件の値" Then
                    CheckBox1.Checked = True
                Else
                    CheckBox1.Checked = False

                End If
            End If
        End Using
    End Sub
End Class
書いた人：ken | コメントは受け付けていません。 | VB.NET |
2010年03月23日(火曜日) 03時25分

[VB.NETメモ] ×ボタンでアプリを終了

すぐに忘れそうなのでφ(．．)メモメモ
MinimizeBoxを無効にすることで右上の×ボタンでアプリを終了させれるみたいです。

Public Class Form1

    Public Sub New()
        InitializeComponent()
        Me.MinimizeBox = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.MinimizeBox = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.MinimizeBox = False
    End Sub
End Class
書いた人：ken | コメントは受け付けていません。 | VB.NET |
2010年03月23日(火曜日) 03時13分

[VB.NETメモ] 端末の再起動コード

すぐに忘れそうなのでφ(．．)メモメモ

Imports System.Runtime.InteropServices

Public Class Form1

    Private Const FILE_DEVICE_HAL As Integer = &H101
    Private Const METHOD_BUFFERED As Integer = 0
    Private Const FILE_ANY_ACCESS As Integer = 0

    Private Function CTL_CODE( _
        ByVal DeviceType As Integer, _
        ByVal Func As Integer, _
        ByVal Method As Integer, _
        ByVal Access As Integer) As Integer
        Return (DeviceType << 16) Or (Access << 14) Or (Func << 2) Or Method
    End Function

    <DllImport("CoreDll.dll")> _
    Public Shared Function KernelIoControl( _
    ByVal dwIoControlCode As Integer, _
    ByVal lpInBuf As IntPtr, _
    ByVal nInBufSize As Integer, _
    ByVal lpOutBuf As IntPtr, _
    ByVal nOutBufSize As Integer, _
    ByRef lpBytesReturned As Integer) As Integer
    End Function

    Private Function ResetPocketPC() As Integer
        Dim bytesReturned As Integer = 0
        Dim IOCTL_HAL_REBOOT As Integer = _
        CTL_CODE(FILE_DEVICE_HAL, _
        15, METHOD_BUFFERED, FILE_ANY_ACCESS)
        Return KernelIoControl( _
        IOCTL_HAL_REBOOT, IntPtr.Zero, 0, _
        IntPtr.Zero, 0, bytesReturned)
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim response As MsgBoxResult
        response = MsgBox("再起動します。よろしいですか?", MsgBoxStyle.YesNo, "再起動")
        If response = MsgBoxResult.Yes Then
            ResetPocketPC()
        End If
    End Sub

End Class
書いた人：ken | コメントは受け付けていません。 | VB.NET |