大佬教程收集整理的这篇文章主要介绍了自己做输入框,控制更方便,大佬教程大佬觉得挺不错的,现在分享给大家,也给大家做个参考。
VERSION 5.00 Begin VB.Form frmInputDlg Caption = "Input Dialog" ClientHeight = 1590 ClientLeft = 60 ClientTop = 345 ClientWidth = 5940 Icon = "frmInputDlg.frx":0000 LinkTopic = "Form2" ScaleHeight = 1590 ScaleWidth = 5940 StartUpPosition = 1 'Centerowner Visible = 0 'false Begin VB.TextBox txtContent Height = 285 Left = 120 TabIndex = 0 Top = 1080 Width = 5655 End Begin VB.CommandButton cmdCancel Caption = "&Cancel" Height = 330 Left = 4560 TabIndex = 2 Top = 600 Width = 1215 End Begin VB.CommandButton cmdOK Caption = "&Ok" Height = 330 Left = 4560 TabIndex = 1 Top = 120 Width = 1215 End Begin VB.Label lblTip AutoSize = -1 'True Height = 195 Left = 240 TabIndex = 3 Top = 120 Width = 45 End End Attribute VB_Name = "frmInputDlg" Attribute VB_GlobalNameSpace = false Attribute VB_Creatable = false Attribute VB_PredeclaredId = True Attribute VB_Exposed = false Option Explicit Dim strContent As String Public Function test() As String Me.Show 1 test = s End Function Private Sub cmdCancel_Click() strContent = "NULL" Unload Me End Sub Private Sub cmdOK_Click() strContent = txtContent.Text Unload Me End Sub Private Sub Form_Unload(Cancel As Integer) i = 1 End Sub 'MsgBox frmInputDlg.InputBoxEx("test","please input ","100") Public Function InputBoxEx(strtitle As String,strMsg As String,strContentPre As String) As String Me.Caption = strtitle lblTip.Caption = strMsg txtContent.Text = strContentPre txtContent.SelStart = 0 txtContent.SelLength = Len(txtContent.Text) Me.Show 1 InputBoxEx = strContent End Function
以上是大佬教程为你收集整理的自己做输入框,控制更方便全部内容,希望文章能够帮你解决自己做输入框,控制更方便所遇到的程序开发问题。
如果觉得大佬教程网站内容还不错,欢迎将大佬教程推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。如您有任何意见或建议可联系处理。小编QQ:384754419,请注明来意。