摘要: Dim pCmd As ICommand
Dim ctlType As Type = Type.GetType(pCls)
If Not ctlType Is Nothing Then
pCmd = CType(System.Activator.CreateInstance(ctlType), ICommand)
end if
阅读全文
摘要: Microsoft.Win32
Registry.CurrentUser 对应于HKEY_CURRENT_USER子目录树
Registry.LocalMachine 对应于 HKEY_LOCAL_MACHINE子目录树
Dim software11 As RegistryKey = Registry.LocalMachine.OpenSubKey ( "SYSTEM" ,true ) '打开"SYSTEM"子健
Dim software As RegistryKey = software11.OpenSubKey ( "A000" , true ) '打开"A000"子健
Dim ddd As RegistryKey = software.CreateSubKey ( "ddd" )
阅读全文
摘要: Private Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
ExitProcess GetExitCodeProcess(GetCurrentProcess, 0)
阅读全文
摘要: Dim pTool As ToolStrip = New ToolStrip()
pTool.SendToBack()
Controls.Add(pTool)
或
Dim pBtn As ToolStripButton = New ToolStripButton
pBtn.TextAlign = ContentAlignment.MiddleRight
pBtn.ImageAlign = ContentAlignment.MiddleLeft
pBtn.Text = pCmd.Caption
If pCmd.Bitmap <> 0 Then
pBtn.Image = System.Drawing.Image.FromHbitmap(pCmd.Bitmap)
End If
BtnStrip.Items.Add(pBtn)
AddHandler pBtn.C
阅读全文
摘要: Dim pBtn As ToolStripButton = New ToolStripButton
pBtn.Tag = iCmd
pBtn.Text = "aa"
BtnStrip.Items.Add(pBtn)
AddHandler pBtn.Click, AddressOf Me.CommandClick
卸载空间
ToolStrip1.Items.Clear()
阅读全文
摘要: 1、小腿肚是位于小腿后部的肌肉，这部分肌肉叫腓腹机，正常情况下，腓腹机看起来是比较发达的，所以，腓腹肌应当适当地存在。通过走路的姿势和改变鞋子的种类就可以消除你过于发达的小腿肚。
2、改变走路的姿势，这是根本。慢慢地边走路边检查自己走路的习惯。避免让小腿承担过多的重量。
3、改变鞋跟的高度：平时走路穿低跟鞋的人换上高跟鞋，平时走路穿高跟鞋的人换上低跟鞋
阅读全文
摘要: 1、仰卧，直视天花板，膝盖不要弯曲，两腿并紧，向胸部贴近，然后抬起，再贴近，重复此动作15次。这样坚持做下去，腿部的赘肉就会不知不觉地消失。
2、仰卧，直视天花板，两手握腰，做骑自行车的动作。反复15次。
阅读全文
摘要: 上班族长时间坐在办公桌前，腿部容易因缺乏运动而变胖。可利用坐着的机会做些运动，达到消除疲劳及瘦腿的双重效果。
第一步
1、坐在椅子上，两手扶着椅子两边，固定住身体，抬起一只脚并伸直膝盖静止30秒钟。然后换另一只脚做相同动作。需注意的是：在伸直膝盖的同时，不可挪移膝盖的位置。
第二步
2、坐在椅子上，挺胸，保持两腿交叉、脚尖着地的姿势，上面的腿使劲往下压，下面的腿使劲向上顶，约10秒钟后双腿互换位置照样做10秒钟，2-3遍即可。做这个动作不需屏住呼吸。
阅读全文
摘要: m_bitmap = New System.Drawing.Bitmap(GetType(PanTool), "ZoomIn.bmp")
m_zoominMoveCur = New System.Windows.Forms.Cursor(GetType(PanTool), "ZoomIn_Move.cur")
m_zoominCur = New System.Windows.Forms.Cursor(GetType(PanTool), "ZoomIn.cur")
m_cursor = m_zoominCur
m_category = SunGIS.My.Resources.PanZoom_Category
m_caption = SunGIS.My.Resources.ZoomIn_Caption
m_message = SunGIS.My.Resources.ZoomIn_Messag
阅读全文
摘要: 从VS.net第二张安装光盘上（SDK\v1.1Samples\Tutorials\resourcesandlocalization\reseditor ）或者在安装目录（\Program Files\Microsoft Visual Studio .NET 2003\SDK\v1.1\Samples\Tutorials\resourcesandlocalization\reseditor ）找到ResEditor的项目，打开工程编译，生成ResEditor.exe。
以供自己参考
阅读全文