关于vb应用的几个初级问题

Question

1
BorderStyle=1
MaxButton=False2、3、4是算法问题5.Font属性6
TextBox.SelStart=1
TextBox.SelLenght=Len(TextBox.Text)

Answer 1

2、响应“KeyPress”事件
3、响应“Change”事件
4、响应“KeyPress”或“KeyDown”事件

Answer 2

Public Function sffunLimitNumber(ByVal IntVal As Integer) As Integer
'-------------------1-------------------
'目    的：只允许在文本框内输入数字、退格、删除及回车键
'输    入：ByVal IntVal As Integer,任意的键值
'被传递值：无
'返 回 值：过滤后的键值
'输    出：无
'注    解：
'用    法：在文本框的KeyPress事件中输入KeyAscii = sffunLimitNumber(KeyAscii)即可
'修 订 版：
'-------------------1-------------------
If (IntVal <> vbKeyDelete) _
And (IntVal <> vbKeyBack) _
And (IntVal <> 13) _
And (IntVal < 48 Or IntVal > 57) Then
    IntVal = 0
End If
sffunLimitNumber = IntValEnd Function

Answer 3

2  Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Const ES_NUMBER    As Long = &H2000
Private Const GWL_STYLE = -16&SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER

Answer 4

2Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As LongPrivate Const ES_NUMBER    As Long = &H2000
Private Const GWL_STYLE = -16&SetWindowLong Text1.hWnd, GWL_STYLE, GetWindowLong(Text1.hWnd, GWL_STYLE) Or ES_NUMBER

Answer 5

3. 
        MaxLength设置最大长度为 4        sendkeys "{Tab}"     发送一个TAB键

Answer 6

3. 
        MaxLength设置最大长度为 4        sendkeys "{Tab}"     发送一个TAB键

Answer 7

1.
BorderStyle=1
Controlbox=False
2
在Key_press事件中判断keyascii是否是数字的ASCII码，否则Keyascii=0
3
在Key_press事件
if len(文本框名)=4 then 下一文本框名.setfocus
4
在文本框Key_press事件中写
if keyascii=13 then cmdOK_Click
5
Label1.FontName
Label1.FontSize
Label1.ForeColor
6
TextBox.SelStart=1
TextBox.SelLenght=Len(TextBox.Text)
7
Label1.Alignment=0或1或2
一次回答你这么多问题，真累

Answer 8

2.
  楼上的大哥们，
  如果要判断在Textbox 中输入的是否为数字只要用IsNumeric（）函数便轻松搞定了
3.
  这个问题与第一个没有什么不同，不过是在Textbox 的change()事件中加入断定代码便搞定了if end if 总会用吧
4.
  这个问题就更他妈的简单了
  控件不是有个keypress 事件
  其中keyacsii 的值等于13就是敲回车了
我已经有点烦了快给分吧