这样的错误提示是用什么做的??

Question

如题,,,,请问怎么样作,http://61.242.93.5/111.jpg

Answer 1

可能是在 text_change事件中写的，在指定位置显示一张图片，那个可能是张图片

Answer 2

做一个自定义控件，，做成透明窗体的，然后放上图图片，做两个属性在里面，一个是显示错误图片的类型，一个是提示消息字符串，给两个方法，一个SHOW 一个HIDE， 这样就能实现了

Answer 3

Public Const GWL_STYLE            As Long = (-16)
Public Const ES_NUMBER = &H2000&
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
'******************************************************************************
'要求该textBox只能输入数字
'******************************************************************************
Public Sub SetNumberTextBox(ByVal TextHwnd As Long, ByVal Flag As Boolean)
    Dim curstyle As Long, newstyle As Long    'retrieve the window style
    curstyle = GetWindowLong(TextHwnd, GWL_STYLE)    If Flag Then
       curstyle = curstyle Or ES_NUMBER
    Else
       curstyle = curstyle And (Not ES_NUMBER)
    End If    'Set the new style
    newstyle = SetWindowLong(TextHwnd, GWL_STYLE, curstyle)
End Sub
在xp下就是这个效果了.