社区
C++ 语言
帖子详情
怎样改变一个Button控件的Visible属性和Caption属性?
rushinger
2004-02-08 08:55:36
我想使Button上的Caption和Visible属性根据一定的条件变化,该怎么做?
...全文
47
7
打赏
收藏
怎样改变一个Button控件的Visible属性和Caption属性?
我想使Button上的Caption和Visible属性根据一定的条件变化,该怎么做?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
7 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
VB
控件
属性
使用大全
在Windows操作系统上,VisualBasic作为一门计算机语言,功能非常强大,而且简单易学。VisualBasic提供可视化设计工具,编程人员可利用VisualBasic提供的
控件
轻松的“画”出应用程序的友好界面,因此容易入门,入门以后就有能力进一步学习难度更大的编程语言。VisualBasic作为编程人员的首选程序设计语言,有如下特点: 1、VisualBasic是开发Windows应用程序的强有力的工具,使用了最先进的程序设计思想,能轻而易举的开发出符合Windows规范和风格的应用程序; 2、VisualBasic在科学计算、多媒体软件开发、网络应用等方面都有强大的功能,尤其在数据库开发方面,提供了许多
控件
,便于连接、查询和显示查询结果,现在很多管理软件,包括一些大型软件,都是利用VisualBasic开发的; 3、VisualBasic
改变
了传统的程序的机制,采用“事件驱动”方式,用户操作产生不同的事件,程序根据这些事件去分别执行不同的子程序。编程人员可以分别编写出这样一些子程序,因此使编程难度大大下降。 在VisualBasic语言中,
控件
是用户界面的基本要素,是进行可视化程序设计的重要基础,它不仅关系到界面是否友好,还直接关系到程序的运行速度以及整个程序的好坏。每个
控件
都具有它的
属性
、方法和事件,设计窗体就必须很好的掌握
控件
的
属性
和应用方法。
控件
具有很多相同的
属性
,如标识
控件
名称的Name
属性
、标识
控件
标题的
Caption
属性
、有效
属性
Enable、可见
属性
Visible
、标识
控件
位置和大小的Top、Left、Width、Height、
属性
、定义背景色的BackColor
属性
、定义前景色的ForeColor
属性
和定义字体类型的Font
属性
,各个
控件
也有其特有的一些
属性
。 VisualBasic中的
控件
分为两种,即标准
控件
(或内部
控件
)和ActiveX
控件
。内部
控件
是工具箱中的“常驻”
控件
,始终出现在工具箱里,而ActiveX
控件
是扩展名为.ocx的文件(在Windows\System文件夹里),它是根据变成需要添加到工具箱里的。 在一般情况下,工具箱里只有标准
控件
,为了把ActiveX
控件
添加到工具箱里,可按以下步骤执行: (1)在菜单里选择“工程-部件”,弹出“部件”对话框; (2)在对话框中选择“
控件
”选项卡,显示ActiveX
控件
列表; (3)在列表框中找到需要添加的
控件
名称,单击
控件
名称左侧的复选框; (4)使用同样的方法选择需要添加的其它
控件
; (5)单击“确定”按钮,即可将所选ActiveX
控件
添加到工具箱里。 窗体(FORM)的常用
属性
属性
说明 (Name)窗体的名称 ActiveControl返回焦点所在的
控件
,该
属性
设计阶段不可用,运行时只读。 Appearance外观效果,取值为:0 平面1 3D(立体) AutoRedraw是否自动刷新或重画窗体上所有图形[获得或设置从绘图(graphics)方法到
一个
持久性位图的输出],取值为:True False BackColor背景颜色,可从弹出的调色板选择。 BorderStyle设置边界类型,取值为: 0 None(无边界框架)1 FixedSingle(窗口大小固定不变的单线框架) 2 Sizable(窗口大小可变的标准双线框架) 3 FixedDialog(窗口大小固定的对话框窗体) 4 FixedToolWindow(窗口大小固定的工具箱窗体) 5 Sizable ToolWindow(窗口大小可变的工具箱窗体)
Caption
窗体的标题 ClipControls决定Paint事件的graphics方法是重画整个对象,还是重画新显示的区域。取值为: True或False ControlBox是或有控制框, 取值为: True 有 False 无 DrawMode设定窗体上绘图(graphics方法),Shape,Line等
控件
的输出外观,有16种可选: 1 黑色 2 非或笔,设置值15的反相 3 与非笔,背景色以及画笔反相二者共有颜色的组合 4 非复制笔,设置值13的反相 5 与笔非,画笔以及显示色反相二者共有颜色的组合 6 反相,显示颜色反相 7 异或笔,画笔颜色以及显示颜色的异或 8 非与笔,设置值9的反相 9 与笔,画笔以及显示色二者共有颜色的组合 10 非异或笔,设置值7的反相 11 无操作,该设置实际上是不画图 12 或非笔,显示颜色与画笔颜色反相的组合 13 复制笔,用ForeColor
属性
指定的颜色,此为默认值 14 或笔非,画笔颜色与显示颜色反相的组合 15 或笔,画笔颜色与显示颜色的组合 16 白色 DrawStyle设定绘图相关方法使用的直线样式, 有7种可选: 0 实线,此为默认值 1 虚线 2 点线 3 单点划线 4 双点划线 5 无线 6 内部实线 DrawWidth设定绘图相关方法使用的直线宽度 Enabled是或把鼠标或键盘事件发送到窗体,取值为: True 可用 False 不可用 FillColor填充颜色, 可从弹出的调色板选择。 FillStyle填充样式, 有8种可选: 0 全部填充 1 透明,此为默认值 2 水平直线 3 竖直直线 4 上斜对角线 5 下斜对角线 6 十字线 7 交叉对角线 Font字型,可从弹出的对话框选择字体,大小和风格 FontTransparent输出数据是否允许重叠(获得或设置
一个
值,决定是否显示窗体,打印机或PictureBox上的背景文本/图形)。取值为: True或False ForeColor前景颜色,可从弹出的调色板选择。 HasDC决定是否为该
控件
分配了唯一的显示上下文。取值为: True或False Height窗体的高度 HelpContextID指定
一个
对象的缺省帮助文件上下文标识符 Icon为窗体设计图标,该图标位于标题栏的左端 KeyPrevier获得或设置是否在激活对象的上的
控件
的键盘事件之前,优先激活对象键盘事件。取值为: True或False Left窗体距屏幕左边界的距离 LinkMode获得或设置用于DDE会话的链接类型并激活连接,取值为: 0 None 1 Source LinkTopic获得或设置目标
控件
的源应用程序和主题 Max
Button
窗体右上角最大化按钮是否显示,运行时只读, 取值为: True 显示 False 不显示 MDIChild是否为MDI窗体的子窗体, 取值为: True 为MDI窗体的子窗体 False 否 Min
Button
窗体右上角最小化按钮是否显示,运行时只读, 取值为: True 显示 False 不显示 MouseIcon MousePointer=99时,设定
一个
自定义的鼠标图标 MousePointer Moveable是否可以移动窗体, 取值为: True 可以移动 False 不可以移动 NegotiateMenus决定是否将对象的菜单合并到该窗体的菜单栏上。取值为: True或False OLEDropMode 获得或设置该对象是否能作为
一个
OLE放下目标, 取值为: 0 None(无) 1 Manual(手动) Palette 获得或设置
一个
图象,包含了当PaletteMode被设置为Custom时用于调色板的对象。 PaletteMode 获得或设置
一个
值,决定对于对象的
控件
使用哪个调色板。取值为: 0 Halftone 1 UseZOrder 2 Custom Picture 窗体背景图片 RightToLeft 文本书写是否自左向右。取值为: True False 自右向左 ScaleHeight 自定义坐标系的纵坐标轴的高度 ScaleLeft 自定义坐标系的左边界起点的横坐标 ScaleMode 获得或设置
一个
值,指示当使用graphics方法或可定位的
控件
时,自定义坐标系的单位, 有8种可选: 0 自定义 1 表示单位为twip(缇),每英寸=1440缇,每厘米=567缇 2 表示单位为point(磅) ,每英寸=72磅,每磅=20缇 3 表示单位为像素,是监视器或打印机分辨率的最小单位 4 表示单位为字符,每个水平单位为120缇,每个垂直单位为240缇 5 表示单位为in(英寸) 6 表示单位为mm(毫米) 7 表示单位为cm(厘米) ScaleTop 自定义坐标系的上边界起点的纵坐标 ScaleWidth 自定义坐标系的横坐标轴的宽度 ShowInTaskbar 窗体或MDI窗体是否出现在Windows95的任务栏。取值为: True 出现 False 不出现 StartUpPosition 窗体第一次出现的位置, 有4种可选: 0 没有指定初始位置 1 设定在所属项目的中央 2 设置在屏幕的中央 3 设置在屏幕的左上角 Tag 存储程序所需的附加数据 Top 窗体距屏幕顶部边界的距离
Visible
窗体是否可见, 取值为: True 该对象可见 False 该对象不可见 WhatsThis
Button
获得或设置是否在
一个
窗体或MDI窗体的标题上显示"这是什么"按钮。取值为: True或False WhatsThisHelp 获得或设置是否在上下文相关帮助中, 使用Windows95帮助或主帮助窗口提供的"这是什么"弹出菜单。取值为: True或False Width 窗体的宽度 WindowStart 获得或设置
一个
窗体窗口运行时的可见状态, 取值为: 0 窗体正常状态 1 窗体最小状态 2 窗体最大状态
Visual Basic 6编程技术大全 中译本扫描版带书签 2/2
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 Command
Button
、CheckBox和 Option
Button
控件
71 3.3.1 Command
Button
控件
72 3.3.2 CheckBox
控件
72 3.3.3 Option
Button
控件
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
Visual Basic 6编程技术大全 中译本扫描版带书签 1/2
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 Command
Button
、CheckBox和 Option
Button
控件
71 3.3.1 Command
Button
控件
72 3.3.2 CheckBox
控件
72 3.3.3 Option
Button
控件
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
spcomm 3.0 串口通信
控件
使用示例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, SPComm, TeEngine, Series, ExtCtrls, TeeProcs, Chart; type TForm1 = class(TForm) Comm1: TComm; ComboBox1: TComboBox; ComboBox2: TComboBox; ComboBox3: TComboBox; ComboBox4: TComboBox; ComboBox5: TComboBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel;
Button
1: T
Button
; Memo1: TMemo; procedure Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); procedure
Button
1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Viewstring:string; i:integer; rbuf,sbuf:array[1..6] of byte; implementation {$R *.dfm} procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer; BufferLength: Word); var i:integer; begin viewstring:=' '; move(buffer^,pchar(@rbuf)^,bufferlength); for i:=1 to bufferlength do viewstring:=viewstring+inttohex(rbuf[i],2)+' '; viewstring:='接受'+viewstring; memo1.lines.add(viewstring); memo1.lines.add(' '); end; procedure TForm1.
Button
1Click(Sender: TObject); begin //判断按键的状态可以便面打开串口出错时,要按两次按键 if
Button
1.
Caption
= '打开串口' then begin // 串口初始化 //EnumComPorts(ComboBox1.Items);//得到串口列表 Comm1.CommName := ComboBox1.Text; Comm1.BaudRate := StrToInt(ComboBox2.Text); Comm1.Parity := None; //ComboBox3.Text Comm1.ByteSize := _8; //ComboBox4.Text Comm1.StopBits := _1; //ComboBox5.Text //########################################### Comm1.StartComm;//打开串口
Button
1.
Caption
:= '关闭串口'; ComboBox1.Enabled := false; ComboBox2.Enabled := false; ComboBox3.Enabled := false; ComboBox4.Enabled := false; ComboBox5.Enabled := false; //btnSend.Enabled := true; //ImageOff.
Visible
:= false; //ImageOn.
Visible
:= true; end else begin //############################################## Comm1.StopComm; // 关闭串口
Button
1.
Caption
:= '打开串口'; ComboBox1.Enabled := true; ComboBox2.Enabled := true; ComboBox3.Enabled := true; ComboBox4.Enabled := true; ComboBox5.Enabled := true; //btnSend.Enabled := false; //ImageOn.
Visible
:= false; //ImageOff.
Visible
:= true; end; end; end.
记事本源码
Dim filem As String '保存文件名 Dim str As String Dim msg Dim bu As Boolean '用于判断文本框中的内容是否
改变
Public Nexts As Double '用于存储查找末字符的位置 Public Sv, mo As Double 'sv用于存储查的下
一个
字符的位置,mo用于存储查找第一次查找字符的位置 Dim Cmt(3) As Single, Cml(3) As Single, Cmw(3) As Single, Cmh(3) As Single Dim Tt(1) As Single, Tl(1) As Single, Tw(1) As Single, Th(1) As Single Dim cht As Single, chl As Single, chw As Single, chh As Single Private Sub Check1_Click() If Check1.Value = 1 Then Label1.
Caption
= "要连接的末字符" Else Label1.
Caption
= "要查找的首字符" End If End Sub Private Sub Command1_Click() Dim Ts As String Dim a As Long a = 1048576 cmo1.Filter = "*.txt" cmo1.ShowOpen filem = cmo1.FileName If cmo1.FileName = "" Then Exit Sub End If Ts = Right(cmo1.FileName, 4) If Ts <> ".txt" Then MsgBox "您打开的非文本文档文件", , "提示" Exit Sub End If If FileLen(filem) \ a > 10 Then MsgBox "您打开的文件已超过10M", , "提示" Exit Sub End If RichTextBox1.FileName = cmo1.FileName bu = False Label3.
Caption
= "你打开的文件名为:" & filem If FileLen(filem) \ 1024 <= 0 Then '判断文件是否有1KB Label4.
Caption
= FileLen(filem) & "字节" ElseIf FileLen(filem) \ 1024 >= 1 And FileLen(filem) / 1024 <= 1024 Then '文件有1KB和文件小于1M时。 Label4.
Caption
= "文件大小为" & Left(FileLen(filem) / 1024, 5) & "KB" ElseIf FileLen(filem) \ a > 0 Then '文件有1M时 Label4.
Caption
= "文件大小为:" & Left(FileLen(filem) / a, 4) & "M" End If Exit Sub End Sub Private Sub Command2_Click() If Label1.
Caption
= "要查找的首字符" Then If Text1.Text = "" Then MsgBox "请输入要查找的内容" Exit Sub End If Timer3.Enabled = True Command1.Enabled = False Command2.Enabled = False '防止在程序忙时,用户点击其它按扭,导致程序崩溃。 Command3.Enabled = False Label2.
Visible
= True mo = InStr(RichTextBox1.Text, Text1.Text) Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False Sv = mo RichTextBox1.SetFocus DoEvents RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Len(Text1.Text) Label1.
Caption
= "要查找的末字符" Text1.Text = "" '查找首字符 ElseIf Label1.
Caption
= "要查找的末字符" Then If Text1.Text = "" Then MsgBox "请输入要查找的内容" Exit Sub End If Timer3.Enabled = True Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Label2.
Visible
= True Nexts = InStr(Sv + Len(Text1.Text), RichTextBox1.Text, Text1.Text) 'sv后面加上文本长度是为了从字符后面位置开始查找,否则只会从已查找到字符位置前查找。这样会重复 Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False If Nexts = 0 Then MsgBox "未查找到内容", , "提示" Exit Sub End If Sv = Nexts RichTextBox1.SetFocus RichTextBox1.SelStart = Nexts - 1 RichTextBox1.SelLength = Len(Text1.Text) Command2.
Caption
= "查找下
一个
" Command2.Enabled = False Timer1.Enabled = True '查找末字符,并把选中的代码交给时间
控件
ElseIf Label1.
Caption
= "要连接的末字符" Then Timer3.Enabled = True Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Label2.
Visible
= True mo = InStr(Sv + Len(Text1.Text), RichTextBox1.Text, Text1.Text) Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False If mo = 0 Then MsgBox "找不到" Exit Sub End If Sv = mo DoEvents RichTextBox1.SetFocus RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Len(Text1.Text) Command2.
Caption
= " 查找下
一个
" Command2.Enabled = False Timer2.Enabled = True '选中文本代码交给时间
控件
2完成 End If End Sub Private Sub Command3_Click() Call save MsgBox "保存成功" End Sub Private Sub Command4_Click() msg = MsgBox("是否删除选中的字符", vbYesNo + 64, "询问") If msg = vbYes Then str = Replace(RichTextBox1.Text, RichTextBox1.SelText, "") RichTextBox1.SelText = str End If End Sub Sub save() Open filem For Output As #1 Print #1, RichTextBox1.Text Close #1 End Sub Private Sub Form_Load() menpaste.Enabled = False Tt(0) = Text1.Top Tl(0) = Text1.Left Tw(0) = Text1.Width Th(0) = Text1.Height Tt(1) = RichTextBox1.Top Tl(1) = RichTextBox1.Left Tw(1) = RichTextBox1.Width Th(1) = RichTextBox1.Height '保存Combo1
控件
的Top、Left、Width和Height
属性
Cmt(0) = Command1.Top Cml(0) = Command1.Left Cmw(0) = Command1.Width Cmh(0) = Command1.Height End Sub Private Sub Form_Unload(Cancel As Integer) If filem <> "" And bu = True Then msg = MsgBox("是否保存文件", vbYesNo + 64, "询问") If msg = vbYes Then Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False Call save Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False MsgBox "保存成功" End If End If End Sub Private Sub mencopy_Click() Clipboard.SetText RichTextBox1.SelText menpaste.Enabled = True End Sub Private Sub menexit_Click() End Sub Private Sub menpaste_Click() RichTextBox1.SelText = Clipboard.GetText End Sub Private Sub RichTextBox1_Change() bu = True If bu = True And filem <> "" Then Command3.Enabled = True End If End Sub Private Sub RichTextBox1_MouseDown(
Button
As Integer, Shift As Integer, x As Single, y As Single) If
Button
= vbRight
Button
Then PopupMenu menfile End If End Sub Private Sub Timer1_Timer() Static a As Integer a = a + 1 If a = 3 Then Command2.Enabled = True Timer1.Enabled = False '到时间后停止时间
控件
,以防多次运行 a = 0 msg = MsgBox("是否要将首末字符全部选中", vbYesNo + 64, "询问") '选中所查找的下
一个
字符 If msg = vbYes Then Timer3.Enabled = True Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Label2.
Visible
= True RichTextBox1.SetFocus RichTextBox1.SelStart = mo - 1 RichTextBox1.SelLength = Nexts Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False Label1.
Caption
= "要查找的首字符" Command4.Enabled = True Command2.
Caption
= "开始查找" End If End If End Sub Private Sub Timer2_Timer() Static b As Integer b = b + 1 If b = 3 Then Timer2.Enabled = False Command2.Enabled = True b = 0 msg = MsgBox("是否从第
一个
文字到些内容位置全选中", vbYesNo + 64, "询问") If msg = vbYes Then Timer3.Enabled = True Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False Label2.
Visible
= True RichTextBox1.SetFocus RichTextBox1.SelStart = 1 RichTextBox1.SelLength = mo Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True Timer3.Enabled = False Label2.
Visible
= False Command4.Enabled = True End If End If End Sub Private Sub Timer3_Timer() Static s As Integer s = s + 1 prog1.Value = s If s Mod 2 = 0 Then DoEvents End If End Sub
C++ 语言
64,678
社区成员
250,490
社区内容
发帖
与我相关
我的任务
C++ 语言
C++ 语言相关问题讨论,技术干货分享,前沿动态等
复制链接
扫一扫
分享
社区描述
C++ 语言相关问题讨论,技术干货分享,前沿动态等
c++
技术论坛(原bbs)
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
请不要发布与C++技术无关的贴子
请不要发布与技术无关的招聘、广告的帖子
请尽可能的描述清楚你的问题,如果涉及到代码请尽可能的格式化一下
试试用AI创作助手写篇文章吧
+ 用AI写文章