IP地址输入框Word文档格式.docx
《IP地址输入框Word文档格式.docx》由会员分享，可在线阅读，更多相关《IP地址输入框Word文档格式.docx（6页珍藏版）》请在冰豆网上搜索。
IfUser32.InitCommonControlsEx（CommCtrl）Then
CtlHwnd=User32.CreateWindowEx（0,"
SysIPAddress32"
"
"
_
User32.Constants.WS_CHILDOrUser32.Constants.WS_TABSTOPOrUser32.Constants.WS_VISIBLE,0,0,132,21,_
Me.Handle,IntPtr.Zero,GetInstance,IntPtr.Zero）IfCtlHwnd.Equals（IntPtr.Zero）=FalseThen
‘将IP控件的字体设置的根窗体一样用宋体
DimhFontAsIntPtr=Me.Font.ToHfont（）
User32.SendMessage（CtlHwnd,User32.WindowsMessages.WM_SETFONT,hFont,IntPtr.Zero）
EndIf
Else
EndSub‘Control重写dispose以清理组件列表。
ProtectedOverloadsOverridesSubDispose（）SubDispose（ByValdisposingAsBoolean）
IfCtlHwnd.Equals（IntPtr.Zero）=FalseThenUser32.DestroyWindow（CtlHwnd）
IfdisposingThen
IfNot（componentsIsNothing）Then
components.Dispose（）
MyBase.Dispose（disposing）
EndSub‘控件设计器所必需的
PrivatecomponentsAsSystem.ComponentModel.IContainer‘注意:
以下过程是组件设计器所必需的
‘可以使用组件设计器修改此过程。
不要使用
‘代码编辑器修改它。
&
lt;
System.Diagnostics.DebuggerStepThrough（）&
gt;
PrivateSubInitializeComponent（）SubInitializeComponent（）
components=NewSystem.ComponentModel.Container
EndSub#EndRegionProtectedOverridesSubOnPaint（）SubOnPaint（ByValpeAsSystem.Windows.Forms.PaintEventArgs）
MyBase.OnPaint（pe）‘在此添加自定义绘画代码
EndSubPrivateSubIPTextBox_SizeChanged（）SubIPTextBox_SizeChanged（ByValsenderAsObject,ByValeAsSystem.EventArgs）HandlesMyBase.SizeChanged
IfCtlHwnd.Equals（IntPtr.Zero）=FalseThenUser32.SetWindowPos（CtlHwnd,0,0,0,Me.Width,Me.Height,&
amp;
H22）
EndSubPrivateCtlHwndAsIntPtrPropertys#Region"
Propertys"
PublicOverridesPropertyText（）PropertyText（）AsString
Get
DimTempLngAsInteger=0
DimtmpLngAsIntPtr=System.Runtime.InteropServices.Marshal.AllocHGlobal（4）
Try
User32.SendMessage（CtlHwnd,User32.Constants.IPM_GETADDRESS,IntPtr.Zero,tmpLng）
TempLng=System.Runtime.InteropServices.Marshal.ReadInt32（tmpLng）
CatchexAsException
MsgBox（ex.Message）
EndTry
System.Runtime.InteropServices.Marshal.FreeHGlobal（tmpLng）
ReturnFIRST_IPADDRESS（TempLng）&
"
."
SECOND_IPADDRESS（TempLng）&
THIRD_IPADDRESS（TempLng）&
FOURTH_IPADDRESS（TempLng）
EndGet
Set（ByValValueAsString）
IfValue=String.EmptyThenValue="
IfValue.Split（"
）.Length&
&
4ThenValue="
IfValue&
ThenUser32.SendMessage（CtlHwnd,User32.Constants.IPM_SETADDRESS,IntPtr.Zero,NewIntPtr（MakeIPAddess（Value）））
EndSet
EndProperty
#EndRegionFunctions#Region"
Functions"
‘‘‘&
summary&
‘‘‘获取应用程序的进程句柄
/summary&
returns&
/returns&
remarks&
/remarks&
PrivateFunctionGetInstance（）FunctionGetInstance（）AsIntPtr
DimtmpTypeAsType=Me.GetType
DimtmpModuleAsSystem.Reflection.Module=tmpType.Module
ReturnSystem.Runtime.InteropServices.Marshal.GetHINSTANCE（tmpModule）
EndFunctionPrivateFunctionFIRST_IPADDRESS（）FunctionFIRST_IPADDRESS（ByValxAsInt32）AsByte
FIRST_IPADDRESS=（（xAnd&
H7F000000）&
H1000000）Or（（（xAnd&
H80000000）&
0）And&
H80）
EndFunctionPrivateFunctionSECOND_IPADDRESS（）FunctionSECOND_IPADDRESS（ByValxAsInt32）AsByte
SECOND_IPADDRESS=（xAnd&
HFF0000）&
H10000
EndFunctionPrivateFunctionTHIRD_IPADDRESS（）FunctionTHIRD_IPADDRESS（ByValxAsInt32）AsByte
THIRD_IPADDRESS=（xAnd&
HFF00&
）&
H100
EndFunctionPublicFunctionFOURTH_IPADDRESS（）FunctionFOURTH_IPADDRESS（ByValxAsInt32）AsByte
FOURTH_IPADDRESS=xAnd&
HFF
EndFunctionPrivateFunctionMAKEIPRANGE（）FunctionMAKEIPRANGE（ByVallowAsByte,ByValhighAsByte）AsInt32
MAKEIPRANGE=high*&
H100&
Orlow
EndFunctionPrivateFunctionMakeIPAddess（）FunctionMakeIPAddess（ByValb1AsByte,ByValb2AsByte,ByValb3AsByte,ByValb4AsByte）AsInt32
Return（（b1And&
H7F）*&
H1000000Or（b1And&
H80）&
0And&
H80000000）Or（b2*&
H10000）Or（b3*&
）Or（b4）
EndFunctionPrivateFunctionMakeIPAddess（）FunctionMakeIPAddess（ByValIPAddressAsString）AsInt32
DimipsAsString（）=IPAddress.Split（"
）
Ifips.Length&
4Thenips=NewString（）{"
0"
}
DimcoutAsInt32=0
ForiAsInteger=0To3
IfNotIsNumeric（ips（i））Then
ThrowNewException（"
IP地址错误！
cout=（cout&
8）Or（Val（ips（i））And&
HFF）
Next
Returncout
EndFunction#EndRegionEndClassPublicClassUser32ClassUser32&
DllImport（"
user32"
EntryPoint:
="
CreateWindowExA"
CharSet:
=CharSet.Ansi,SetLastError:
=True,ExactSpelling:
=True）&
_
PublicSharedFunctionCreateWindowEx（）FunctionCreateWindowEx（ByValdwExStyleAsInteger,&
MarshalAs（UnmanagedType.VBByRefStr）&
ByReflpClassNameAsString,&
ByReflpWindowNameAsString,ByValdwStyleAsInteger,ByValxAsInteger,ByValyAsInteger,ByValnWidthAsInteger,ByValnHeightAsInteger,ByValhWndParentAsIntPtr,ByValhMenuAsIntPtr,ByValhInstanceAsIntPtr,ByVallpParamAsIntPtr）AsIntPtr
EndFunction&
PublicSharedFunctionDestroyWindow（）FunctionDestroyWindow（ByValhwndAsIntPtr）AsInteger
SendMessageA"
PublicSharedFunctionSendMessage（）FunctionSendMessage（ByValhwndAsInteger,ByValwMsgAsInteger,ByValwParamAsInteger,ByVallParamAsInteger）AsInteger
EndFunction
PublicSharedFunctionSendMessage（）FunctionSendMessage（ByValhwndAsIntPtr,ByValwMsgAsInteger,ByValwParamAsIntPtr,ByVallParamAsIntPtr）AsIntPtr
PublicSharedFunctionSetWindowPos（）FunctionSetWindowPos（ByValhwndAsIntPtr,ByValhWndInsertAfterAsInteger,ByValxAsInteger,ByValyAsInteger,ByValcxAsInteger,ByValcyAsInteger,ByValwFlagsAsInteger）AsInteger
comctl32.dll"
PublicSharedFunctionInitCommonControlsEx（）FunctionInitCommonControlsEx（ByRefTLPINITCOMMONCONTROLSEXAsStructures.InitCommonControls）AsInteger
EndFunction‘Fields
PublicConstMENU_CLASSAsString="
#32768"
‘NestedTypes
PublicEnumConstantsEnumConstants
ICC_INTERNET_CLASSES=2048
IPM_CLEARADDRESS=1124
IPM_GETADDRESS=1126
IPM_SETADDRESS=1125
WS_CHILD=1073741824
WS_TABSTOP=65536
WS_VISIBLE=268435456
EndEnumPublicClassStructuresClassStructures&
StructLayout（LayoutKind.Sequential）&
PublicStructureInitCommonControlsStructureInitCommonControls
‘Fields
PublicdwICCAsInteger
PublicdwSizeAsInteger
EndStructure&
PublicStructureWINDOWPOSStructureWINDOWPOS
PubliccxAsInteger
PubliccyAsInteger
PublicflagsAsInteger
PublichWndAsIntPtr
PublichWndInsertAfterAsIntPtr
PublicxAsInteger
PublicyAsInteger
EndStructure
EndClassPublicEnumWindowsMessagesEnumWindowsMessages
WM_SETFONT=48
EndEnumEndClassEndNamespace
升级会员 