GotFocus和SetFocus的区别-CSDN社区

用来建立进化树TreeView详解（转载） TreeView 控件响应一些我们觉的VFP 控件的方法和事件: Click, DblClick, Drag, DragDrop, DragOver, GotFocus, KeyDown, KeyPress, KeyUp, LostFocus, MouseDown, MouseMove, MouseUp, Move, Refresh, SetFocus, ShowWhatsThis, 和 ZOrder。有一个很大的例外: 没有 RightClick 事件。在稍后，你会看到如何处理这种情况。除这些方法和事件外,TreeView 控件有一些它自己的方法和事件(帮助文件中列出的 Clear 和 Remove 方法, 实际上是属性节点集合而不是 TreeView 控件自己的)： BeforeLabelEdit 和 AfterLabelEdit 发生在标签被用户修改前和修改后(就象在 Windows 的资源管理器中, 你可以单击选定的节点并修改它的文本(在稍后你可以看到如何废止该自动编辑功能)。该事件中的代码通常用于在某处保存新的文本, 如一个表中的字段。

VB写的计算广发行信用卡提现手续费及利息的小工具，不包含滞纳金的计算！广发银行提现手续费按2.5%收取，最低10元！按万分之五收取日息！而且是利滚利的计算方式！还是在这把代码贴出来吧（手续费是按2.5%收的，之前搞成了3%，更正后的代码如下）！ Private Sub Command1_Click() Label4.Caption = "" If Not IsNumeric(Text1.Text) Then MsgBox "提现金额只能为数字！请重新输入！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If Not IsNumeric(Text2.Text) Then MsgBox "还款天数只能为数字！请重新输入！", vbOKOnly + vbInformation, "提示！": Text2.SetFocus: Exit Sub Dim TX As Double, SXF As Double, TS As Double, LXR As Double, LX As Double, RS As Double TX = CDbl(Text1.Text) TS = CDbl(Text2.Text) 'If TX <= 0 Or (TX Mod 100) <> 0 Then MsgBox "提现金额必须大于零且为100的倍数！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If TX <= 0 Then MsgBox "提现金额必须大于零！", vbOKOnly + vbInformation, "提示！": Text1.SetFocus: Exit Sub If TS <= 0 Then MsgBox "天数必须为大于零的正整数！", vbOKOnly + vbInformation, "提示！": Text2.SetFocus: Exit Sub If TS > Fix(TS) Then TS = Fix(TS) + 1: Text2.Text = CStr(TS) Else TS = Fix(TS): Text2.Text = TS '天数取整 SXF = TX * 0.025 If SXF < 10 Then SXF = 10 Else SXF = Round(SXF, 2) '手续费最低收取10RMB，小数部分保留两位 Dim i As Double LXR = TX For i = 1 To TS Step 1 LX = LXR * 0.0005 LXR = LXR + LX Next i If (LXR - TX) < 1 Then LX = 1 Else LX = Round(LXR - TX, 2) '利息最低收取1RMB RS = TX + SXF + LX '应还金额为：提现金额+手续费+利息 Text3.Text = CStr(RS) Label4.Caption = "其中包含手续费：" & CStr(SXF) & " RMB 利息：" & CStr(LX) & " RMB" Label4.Left = Me.Width / 2 - Label4.Width / 2 Text1.SetFocus End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyF1 Then MsgBox "广发银行提现手续费按2.5%收取，最低10元！" & vbCrLf & vbCrLf & "按万分之五收取日息！利滚利的计算方式！（最低1RMB）" End Sub Private Sub Form_KeyPress(KeyAscii As Integer) If KeyAscii = 27 Then Unload Me End Sub Private Sub Form_Load() lblShow.Caption = "广发行提现手续费按2.5%收取（最低10RMB）！" & vbCrLf & vbCrLf & "按万分之五收取日息！利滚利的计算方式！（最低1RMB）" lblShow.Left = Me.Width / 2 - lblShow.Width / 2 Label4.Left = Me.Width / 2 - Label4.Width / 2 Me.Left = Screen.Width / 2 - Me.Width / 2 Me.Top = Screen.Height / 2 - Me.Height / 2 End Sub Private Sub Text1_GotFocus() If Len(Text1.Text) > 0 Then Text1.SelStart = 0: Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If Trim(Text1.Text) <> "" And KeyAscii = 13 Then Text2.SetFocus End Sub Private Sub Text2_GotFocus() If Len(Text2.Text) > 0 Then Text2.SelStart = 0: Text2.SelLength = Len(Text2.Text) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And KeyAscii = 13 Then Command1_Click End Sub

Visual Basic 6编程技术大全是非常详细和深入的Vb6学习教程，无论对初学者还是有经验的开发人员，都非常有帮助第一部分基础篇1 第1章 VB6入门1 1.1 集成开发环境1 1.1.1 运行IDE1 1.1.2 选择工程类型1 1.1.3 IDE窗口2 1.1.4 菜单5 1.1.5 工具栏6 1.1.6 Toolbox7 1.2 第一个VB应用程序9 1.2.1 向窗体添加代码9 1.2.2 设置控件的属性10 1.2.3 为控件命名12 1.2.4 移动及重新调整控件尺寸13 1.2.5 设置Tab顺序13 1.2.6 添加代码14 1.2.7 运行和调试程序15 1.2.8 优化示例程序16 1.2.9 准备、编译、运行18 第2章关于窗体20 2.1 通用属性20 2.1.1 Left、Top、Width和Height属性21 2.1.2 ForeColor和BackColor属性21 2.1.3 Font属性23 2.1.4 Caption和Text属性24 2.1.5 Parent和Container属性25 2.1.6 Enabled和Visible属性25 2.1.7 hWnd属性26 2.1.8 TabStop和Tablndex属性26 2.1.9 MousePointer和Mouselcon属性27 2.1.10Tag属性28 2.1.11其他属性28 2.2 通用方法29 2.2.1 Move方法29 2.2.2 Refresh方法30 2.2.3 SetFocus方法30 2.2.4 ZOrder方法31 2.3 通用事件31 2.3.1 Click和DblClick事件31 2.3.2 Change事件32 2.3.3 GotFocus和LostFocus事件33 2.3.4 KeyPress、KeyDown和KeyUp事件33 2.3.5 MouseDown、MouseUp和 MouseMove事件35 2.4 Form对象37 2.4.1基本的Form属性37 2.4.2微调窗体的性能38 2.4.3 Form的生存期39 2.4.4 Controls集合43 2.4.5 Screen对象44 2.4.6打印文本45 2.4.7图形方法48 2.4.8 DrawMode属性51 2.4.9 ScaleMode属性54 2.4.10调色板支持56 第3章内部控件58 3.1TextBox控件58 3.1.1 运行时属性59 3.1.2捕获键盘活动60 3.1.3数字的校验例程61 3.1.4 CausesValidation属性和Validate事件63 3.1.5自动跳格字段65 3.1.6格式化文本65 3.1.7多行TextBox控件69 3.2 Label和Frame控件70 3.2.1 Label控件70 3.2.2 Frame控件71 3.3 CommandButton、CheckBox和 OptionButton控件71 3.3.1 CommandButton控件72 3.3.2 CheckBox控件72 3.3.3 OptionButton控件73 3.3.4使用图形化控件73 3.4 ListBox和ComboBox控件74 3.4.1 ListBox控件74 3.4.2 ComboBox控件81 3.5 PictureBox和Image控件83 3.5.1 PictureBox控件83 3.5.2 Image控件86 3.6滚动条控件86 3.7 DriveListBox、DirListBox和FileListBox控件89 3.8其他控件91 3.8.1Timer控件91 3.8.2 Line控件92 3.8.3 Shape控件92 3.8.4 OLE控件92 3.9菜单93 3.9.1运行时访问菜单94 3.9.2弹出式菜单95 3.10控件数组96 3.11共享事件过程97 3.11.1运行时创建控件97 3.11.2迭代控件数组中的项目98 3.11.3菜单项数组98 第4章变量与过程100 4.1变量的作用域和生存期100 4.1.1全局变量100 4.1.2模块级的变量101 4.1.3动态局部变量102 4.1.4静态局部变量102 4.2内置数据类型概述103 4.2.1整型数据类型103 4.2.2长整型数据类型104 4.2.3布尔数据类型104 4.2.4字节数据类型104 4.2.5单精度数据类型104 4.2.6双精度数据类型105 4.2.7字符串数据类型105 4.2.8货币数据类型106 4.2.9日期数据类型106 4.2.10对象数据类型106 4.2.11变量数据类型107

1、tabIndextabIndex是设置窗体中对象响应 tab 键的顺序值例如：有3个文本框 text1 的tabIndex 为 2 text2 的tabIndex 为 1 text3 的tabIndex 为 0，运行程序，焦点首先落在 text3里，按 tab键光标会跑到text2，再按一次才会跑到text12、GotFocus 是事件,当焦点进入文