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
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
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
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
