mpublic.bas

设置IP地址工具

Attribute VB_Name = "MPublic"
Option Explicit

Public Const INI_SECTION_PROFILES = "Profiles"
Public Const HINT = "系统提示"

Public Enum enumPROFILE_MODE
  PROF_MODE_NEW = 0
  PROF_MODE_EDIT = 1
  PROF_MODE_CLONE = 2
End Enum
#If False Then
  Public PROF_MODE_NEW
  Public PROF_MODE_EDIT
  Public PROF_MODE_CLONE
#End If
Public eProfileMode As enumPROFILE_MODE

Public CIni As CINIOpeartion
Public bOnFocus As Boolean
Public Function ValidateNumberChar(valAscii As Integer) As Integer
  If valAscii < 32 Then
    ValidateNumberChar = valAscii
    Exit Function
  End If
  
  ValidateNumberChar = IIf(InStr(1, "1234567890.", Chr$(valAscii)) > 0, valAscii, 0)
End Function
Public Sub OnFocus(Obj As Control, bState As Boolean)

  If bOnFocus = False Then Exit Sub
  
  On Error Resume Next
  If bState = True Then
    Obj.BackColor = &HC0FFFF
    Obj.SelStart = 0
    Obj.SelLength = 1000
  Else
    Obj.BackColor = vbWindowBackground
  End If
End Sub