标签是随便点的,因为没有vb这个标签,还请见谅。(括号内的是凑字数的)
2条回答 默认 最新
- chuifengde 2022-03-31 08:29关注
'form的源文件 VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 1455 ClientLeft = 120 ClientTop = 465 ClientWidth = 3690 LinkTopic = "Form1" ScaleHeight = 1455 ScaleWidth = 3690 StartUpPosition = 1 '所有者中心 Begin VB.CommandButton Command1 Caption = "清除" Height = 495 Index = 1 Left = 2280 TabIndex = 3 Top = 720 Width = 1095 End Begin VB.CommandButton Command1 Caption = "欢迎" Height = 495 Index = 0 Left = 2280 TabIndex = 2 Top = 120 Width = 1095 End Begin VB.TextBox Text1 Height = 495 Left = 360 TabIndex = 0 Top = 720 Width = 1575 End Begin VB.Label Label1 Caption = "你的姓名" BeginProperty Font Name = "宋体" Size = 12 Charset = 134 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H000000FF& Height = 495 Left = 360 TabIndex = 1 Top = 240 Width = 1335 End End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click(Index As Integer) If Index = 0 Then Text1.Text = "欢迎你," & Text1.Text Else Text1.Text = "" End If End Sub
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥20 wireshark抓不到vlan
- ¥20 关于#stm32#的问题:需要指导自动酸碱滴定仪的原理图程序代码及仿真
- ¥20 设计一款异域新娘的视频相亲软件需要哪些技术支持
- ¥15 stata安慰剂检验作图但是真实值不出现在图上
- ¥15 c程序不知道为什么得不到结果
- ¥40 复杂的限制性的商函数处理
- ¥15 程序不包含适用于入口点的静态Main方法
- ¥15 素材场景中光线烘焙后灯光失效
- ¥15 请教一下各位,为什么我这个没有实现模拟点击
- ¥15 执行 virtuoso 命令后,界面没有,cadence 启动不起来