当前位置：文档库 › 第50章emWin(UCGUI)MULTIEDIT-多行文本控件

第50章emWin(UCGUI)MULTIEDIT-多行文本控件

第6章控件与用户窗体代码【超实用VBA】

第6章控件与用户窗体范例67 文本框只能输入数值 Private Sub TextBox1_KeyPress(ByVal KeyANSI As MSForms.ReturnInteger) With TextBox1 Select Case KeyANSI Case Asc("0") To Asc("9") Case Asc("-") If InStr(1, .Text, "-") > 0 Or .SelStart > 0 Then KeyANSI = 0 End If Case Asc(".") If InStr(1, .Text, ".") > 0 Then KeyANSI = 0 Case Else KeyANSI = 0 End Select End With End Sub Private Sub TextBox1_Change() Dim i As Integer Dim Str As String With TextBox1 For i = 1 To Len(.Text) Str = Mid(.Text, i, 1) Select Case Str Case ".", "-", "0" To "9" Case Else .Text = Replace(.Text, Str, "") End Select Next End With End Sub

范例68 限制文本框的输入长度 Private Sub TextBox1_Change() TextBox1.MaxLength = 6 End Sub 范例69 验证文本框输入的数据 Private Sub CommandButton1_Click() With TextBox1 If (Len(Trim(.Text))) = 15 Or (Len(Trim(.Text))) = 18 Then Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = .Text Else MsgBox "身份证号码错误，请重新输入!" End If .Text = "" .SetFocus End With End Sub 范例70 文本框回车自动输入 Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) Dim r As Integer r = Cells(Rows.Count, 1).End(xlUp).Row With TextBox1 If Len(Trim(.Text)) > 0 And KeyCode = vbKeyReturn Then Cells(r + 1, 1) = .Text .Text = "" End If End With End Sub 范例71 文本框的自动换行 Private Sub UserForm_Initialize() With TextBox1 .WordWrap = True

C++ MFC各控件代码练习例子

void CMy122Dlg::OnButton1open() { m_OPEN.EnableWindow(false ); //EnableWindow()方法可以使按钮失效 MessageBox("已打开"); m_CLOSE.EnableWindow(true ); } void CComboboxDlg::Onmony() { UpdateData(TRUE); CString str,strmoy; strmoy.Format("%d",m_money); str="你确定要将"; str+=strmoy; str+="元打入对方账户？"; if (IDOK==MessageBox(str,"提示",MB_ICONQUESTION|MB_OKCANCEL)) { MessageBox("付款成功","提示",MB_ICONASTERISK); } } 控制显示的文本利用成员函数SetWindowText/GetWindowText 用于设置/得到当前显示的文本。通过GetLimitText/SetLimitText 可以得到/设置在输入框中输入的字符数量。输入框几种常用的消息映射宏： ON_EN_CHANGE 输入框中文字更新后产生 ON_EN_ERRSPACE 输入框无法分配内存时产生 ON_EN_KILLFOCUS / ON_EN_SETFOCUS 在输入框失去/得到输入焦点时产生在创建滚动条后需要调用void SetScrollRange( int nMinPos, int nMaxPos, BOOL bRedraw = TRUE )设置滚动范围， int GetScrollPos( )/int SetScrollPos( )用来得到和设置当前滚动条的位置。 void ShowScrollBar( BOOL bShow = TRUE );用来显示/隐藏滚动条。 BOOL EnableScrollBar( UINT nArrowFlags = ESB_ENABLE_BOTH )用来设置滚动条上箭头是否为允许状态。nArrowFlags 可取以下值： ESB_ENABLE_BOTH 两个箭头都为允许状态 ES_DISABLE_LTUP 上/左箭头为禁止状态 MessageBox("这个是自定义的消息!!!" ,"自定义消息对话框!!!",MB_ICONINFORMATION); MB_ABORTRETRYIGNORE 显示终止重试或忽然按钮 MB_OK 显示确定按钮 MB_RETRYCANCEL 显示确定或取消按钮 MB_YESNO 显示重试或取消按钮 MB_YESNOCANCEL 显示是或否按钮 MB_ICONQUESTION 带问号图标 MB_ICONHAND 、MB_ICONSTOP 、MB_ICONERROR 三种都是带叉号图标 MB_ICONEXCLAMA TION 、MB_ICONW ARNING 两种都是带感叹号图标 MB_ICONASTERISK MB_ICONINFORMA TION 带信息号图标 AfxMessageBox()函数缺点就无法设置消息对话框的标，提示消息框的标题与工程名称相同，优点:就是在动态链接库工程或其它工程中，可以直接用它来显示消息提示对话框。 MessageBox()函数必须用于一个窗口对象，没有窗口对象，就无法调用MessageBox()函数

VB控件的使用

VB控件 VB作为可视化的编程，提供了很多控件。控件工具箱在VB程序界面的左边，如下图所示。一、按钮控件（command），按钮控件主要用来执行某一功能。每一个控件都有一个名称，在程序里面，我们要通过控件的名称引用该控件。如下图所示，我们在窗体画了一个按钮控件选中该控件，在属性面板“名称”一行可以看到该按钮控件的名称是“Command1”

按钮控件有很多属性，其中Caption属性的值控制着按钮显示的文字，我们想要改变一个控件的属性的值有两种方法，第一种方法是在属性面板修改，如下图所示：我们把按钮控件的Caption属性的值改成了“开始”，那么按钮上显示的文字就改为了“开始”，如下图所示：我们还可以通过写代码的方式改变控件属性的值，假如要把上图按钮上的文字改为“暂停”，除了可以在属性面板修改之外，还可以通过以下代码进行修改： Command1.Caption = "暂停" 代码的格式为：控件名称.控件属性=值

例子：问题描述：窗体上有一个按钮，初始时按钮文字显示“开始”。当按钮上的文字为“开始”时，点击按钮，按钮文字改变为“暂停”。当按钮上的文字为“暂停”时，点击按钮时改为“开始”。界面如下：代码如下：

二、标签控件（label），主要用于显示文本，通常用于显示提示性的文字，控制标签控件显示文本的是Caption属性的值，我们可以通过属性面板改变该属性的值，也可以通过以下代码改变： Label1.Caption = "Hello World!"。控制标签控件字体和字号的属性是font，控制其文字颜色的是forecolor属性的值。例子：利用label控件制作一个欢迎界面，界面如下：

matlab_GUI设计中常用控件格式要点

MATLAB GUI新手备忘录 1、从最简单的开始编程最基本的目的：就是——我执行一个操作，程序做出一个反应。 “一个操作”包括：点击鼠标，拖动滑块，填写数据，选择选项…… “做出一个反应”包括：计算一些东西，然后储存在哪里，或者贴个图出来，或者显示在哪里……-------------------------------------------------------------------------------------- 编程的基本思想：目的->当点击按钮A时，然后执行任务C，则->进入按钮A的回调函数callback里，写下任务C的代码。 -------------------------------------------------------------------------------------- a:不知道callback在哪？？右键单击按钮，view callbacks->选择callback）别的控件也一样。 a:不同的回调函数啥意思？？ callBack 最常用的就是它。如果控件是按钮，那点击按钮时，则按钮下的Callback就会执行；如果是滑块，则拖动滑块时，滑块名下的callback就会执行；总之，就是对控件默认操作时，matlab后台就会自动调用它名下的的callback。正常用途，全放在callback下就够了。如果其他的，实在是想知道，了解一下也未尝不可。 ButtonDownFcn 就是鼠标在它（代指各种控件）上面点击一下，你放在这个函数名下的代码就会执行。（ps:按钮的callback也是点击，所以会覆盖掉这个buttondownfcn。） CreateFcn 顾名思义，在生成这个控件，显示之前，执行你放在这个函数名下的代码； DeleteFcn 一样。在控件要销毁，但是被毁灭之前执行这个函数名下的代码。貌似“真的要退出吗”这一类就是写在这里。 KeyPressFcn 当前控件获得焦点且有按键按下时执行。（什么是焦点？就是这个控件被鼠标点了（或者是tab 轮选到了）。你打开一个记事本，然后再点这个网页，再随便按几个按键，记事本上有字不？没有对吧。因为它没获得焦点，所以你的按键它不会反应的。只有你最后再点它一下，再按几个按键，结果怎么样？有字了吧？）这里的KeyPressFcn也是一样的道理。一般在这下面的代码还会判断下按键是什么，然后执行相应的代码。 ResizeFcn,SelectionChangeFcn 不常用。也懒得去看了。附几句，控件都有Resize的属性，好像默认是不可调整，如果要用到这个函数，去把它打开先。 SelectionChangeFcn 是在群按钮组件中，改变选择时，所执行的函数。 -------------------------------------------------------------------------------------- 哪些控件支持哪些回调函数？你在它上面右键就可以看到了，点进去就可以编辑了。可以在property inspect中在需要的回调函数下设置%automatic就可以自动添加相应的回调

matlab GUI控件编写

1、从最简单的开始编程最基本的目的就是——我执行一个操作，程序做出一个反应。 “一个操作”包括：点击鼠标，拖动滑块，填写数据，选择选项…… “做出一个反应”包括：计算一些东西，然后储存在哪里，或者贴个图出来，或者显示在哪里…… -------------------------------------------------------------------------------------------------- 编程的基本思想：目的->当点击按钮A时，然后执行任务C，则->进入按钮A的回调函数callback里，写下任务C的代码。 -------------------------------------------------------------------------------------------------- a:不知道callback在哪？？右键单击按钮，view callbacks->选择callback）别的控件也一样。 a:不同的回调函数啥意思？？ callBack 最常用的就是它。如果控件是按钮，那点击按钮时，则按钮下的Callback就会执行；如果是滑块，则拖动滑块时，滑块名下的callback就会执行；总之，就是对控件默认操作时，matlab后台就会自动调用它名下的的callback。正常用途，全放在callback下就够了。如果其他的，实在是想知道，了解一下也未尝不可。 ButtonDownFcn 就是鼠标在它（代指各种控件）上面点击一下，你放在这个函数名下的代码就会执行。（ps:按钮的callback也是点击，所以会覆盖掉这个buttondownfcn。） CreateFcn 顾名思义，在生成这个控件，显示之前，执行你放在这个函数名下的代码； DeleteFcn 一样。在控件要销毁，但是被毁灭之前执行这个函数名下的代码。貌似“真的要退出吗”这一类就是写在这里。 KeyPressFcn 当前控件获得焦点且有按键按下时执行。（什么是焦点？就是这个控件被鼠标点了（或者是tab轮选到了）。你打开一个记事本，然后再点这个网页，再随便按几个按键，记事本上有字不？没有对吧。因为它没获得焦点，所以你的按键它不会反应的。只有你最后再点它一下，再按几个按键，结果怎么样？有字了吧？）这里的KeyPressFcn也是一样的道理。一般在这下面的代码还会判断下按键是什么，然后执行相应的代码。 ResizeFcn,SelectionChangeFcn 不常用。也懒得去看了。附几句，控件都有Resize的属性，好像默认是不可调整，如果要用到这个函数，去把它打开先。 SelectionChangeFcn 是在群按钮组件中，改变选择时，所执行的函数。哪些控件支持哪些回调函数？很简单，你在它上面右键就可以看到了，点进去就可以编辑了。可以在property inspect中在需要的回调函数下设置%automatic就可以自动添加相应的回调函数框架。 2、常用控件代码框架参考 ---------------------------------------------------------------------

VB中密码的代码与按钮的控件

上机实验—2012.3.27 实训教程 P12【实训3-3】 P17【实训4-1】 P18【实训4-2】教材【例4-2】设计一个用户名和密码的检验程序。要求：用户名不超过6位字符，密码不超过18位。如果输入错误，允许重新输入。密码输入时字符以“*”代替。若输入的密码有误，弹出提示信息。如果选择“重试”则允许再次输入；选择“取消”按钮则程序停止运行。假设用户名为：admin，密码为：yyyy。界面设计：对象属性设置：对象名称属性属性值窗体form1caption用户信息验证 caption用户名标签label1 font黑体，小四 caption密码标签label2 font黑体，小四文本框Text1,text2text空命令按钮cd1caption确定参考代码： Private Sub Form_Load() Text1.MaxLength = 6

Text2.MaxLength = 18 Text2.PasswordChar = "*" End Sub Private Sub Text1_LostFocus() If Text1.Text <> "admin" Then MsgBox "用户名错误！", vbExclamation, "输入用户名" Text1.Text = "" Text1.SetFocus End If End Sub Private Sub Cd1_Click() Dim I As Integer If Text2.Text <> "yyyy" Then I = MsgBox("密码错误", vbRetryCancel + vbExclamation, "输入密码") If I=4 Then '返回值为4时，表明按下的是"重试"按钮Text2.Text = "" Text2.SetFocus Else End End If End If If Text2.Text = "yyyy" Then Print "欢迎使用本系统！" Text1.Visible = False Text2.Visible = False Label1.Visible = False Label2.Visible = False Cd1.Visible = False End If End Sub

ACCESS报表控件整理代码

Option Compare Database '========================================= '作用: 为报表画线,统一各控件的宽度.高度.和间隙 '1.取主体和页面页眉第一个控件的高度height为标准,设置其他控件的高度. '2.以主体的每一个控件的宽度width为标准,设置页面页眉相对应控件的宽度 '3.连接主体和页面页眉的控件,使其隙一致. '========================================== Public Function ReportSheet(rpt As Report, _ LeftControl As control, _ RightControl As control, _ Optional RowsOfPage As Integer, _ Optional sTYLE As Integer = 0, _ Optional HasColumnHeader As Boolean = True) '报表画线设置 'On Error Resume Next Dim intI As Integer Dim lngTop As Long '表格上边距，即报表页眉的高度 Dim lngBottom As Long '表格下边距，报表页眉的高度＋主体节高度×每页要显示的记录数Dim lngLeft As Long '表格左边距，第一个控件的左边距 Dim lngRight As Long '表格右边距，最后一个控件的左边距＋最后一个控件的宽度 Dim lngRowHeight As Long '行高，即主体节高度 Dim lngacDetaiHeight As Long '主体高度 Dim lngSumH As Long '主体多行的总高度+ 页面页眉的高度(线上端起始位置) Dim lngYmKjheight As Long '页面页眉最低层(标题)行中的第一个控件的高度 Dim lngRows As Long Dim lngRowTop As Long Dim lngBottomMax As Long Dim lng Dim ctl As control With rpt For Each ctl In .Section(acPageHeader).Controls If ctl.Tag = "ymym" Then '页面页眉的标题行要在Tag中作出特殊标记ymym lngYmKjheight = ctl.Height 'ctl.Top Exit For End If Next lngRowHeight = .Section(acDetail).Height ' 行高：主体节高度 lngTop = .Section(acPageHeader).Height ' 设上边距为页面页眉高度，为防止报表没有页面页眉所以代码单独一行 If .Page = 1 Then lngTop = lngTop + .Section(acHeader).Height ' 第一页再加上报表页眉高度，为防止报表没有报表页眉所以代码单独一行 lngBottomMax = .Section(acPageFooter).Height ' 页面页脚高度，为防止报

ActiveX控件及其签名

ActiveX控件及其签名 1 简介 1.1 什么是ActiveX 根据微软权威的软件开发指南MSDN（Microsoft Developer Network）的定义，ActiveX插件以前也叫做OLE控件或OCX控件，它是一些软件组件或对象，可以将其插入到WEB网页或其它应用程序中。在因特网上，ActiveX插件软件的特点是：一般软件需要用户单独下载然后执行安装，而ActiveX插件是当用户浏览到特定的网页时，IE浏览器即可自动下载并提示用户安装。ActiveX插件安装的一个前提是必须经过用户的同意及确认。 ActiveX插件技术是国际上通用的基于Windows平台的软件技术，除了网络实名插件之外，许多软件均采用此种方式开发，例如Flash动画播放插件、Microsoft MediaPlayer插件、CNNIC通用网址插件等。 1.2 什么是软件代码数字签名和代码签名数字证书？软件代码数字签名是以电子方式通过信息来标记文件的方式。此时，文件将由创建者（发行商）来数字签名。有效的数字签名将告诉您关于文件的下面两项内容：发行商名称，以及文件在签名后没有被更改。任何篡改都将使签名无效。软件代码数字签名将： * 允许您验证文件的发行商。 * 确认文件自数字签名以来没被更改过。任何软件开发商都可以向IE浏览器中的“受信任的根证书颁发机构”中的证书颁发机构(如GeoTrust)申请软件代码签名证书来签名代码。 1.3.浏览器如何保证ActiveX插件的安全性？当通过Internet发行软件时，软件的安全性是一个非常引人注意的问题，IE浏览器通过以下的方式来保证ActiveX插件的安全：

常用系统控件界面大合集

Android软件开发之盘点常用系统控件界面大合集（三）常用系统控件界面大合集今天我用自己写的一个Demo 和大家详细介绍一个Android开发中遇到的一些常用系统控件的使用技巧。 1.文本框TextView TextView的作用是用来显示一个文本框，下面我用两种方式为大家呈现TextView，第一种是通过xml布局文件的界面开发真的是非常灵活。

1.public class TextViewActivity extends Activity { 2. @Override 3. protected void onCreate(Bundle savedInstanceState) { 4. setContentView(https://www.wendangku.net/doc/a78683571.html,yout.textview); 5. 6. LinearLayout ll = (LinearLayout) findViewById(R.id.textviewll); 7. TextView textView = new TextView(this); 8. //设置显示文字 9. textView.setText("从代码中添加一个TextView"); 10. //设置显示颜色 11. textView.setTextColor(Color.WHITE); 12. //设置显示字体大小 13. textView.setTextSize(18);

14. //设置显示背景颜色 15. textView.setBackgroundColor(Color.BLUE); 16. //设置锚点位置 17. textView.setGravity(Gravity.CENTER_VERTICAL|Gravity.CENTER_HORIZONTAL); 18. //把这个view加入到布局当中 19. ll.addView(textView); 20. 21. super.onCreate(savedInstanceState); 22. } 23.} 复制代码 1. 2. 6. 15. 复制代码 2.网页框WebView WebView可以实现类似web的网页的系统控件最主要的是可以使用html代码，如访问网页等。

标准控件应用样本

第二章标准控件应用一、标签控件 1、标签控件的属性: Name: 返回在代码中用于控件的名称。 BackColor: 返回或设置控件中文本或图形的背景颜色 Caption: 返回或设置在控件中显示的文本 Enabled: 返回或设置一个布尔值, 决定控件是否可用 ForeColor : 返回或设置控件中文本或图形的前景颜色 Font : 返回或设置一个Font 对象, 用于指定控件中本的字体名称、字体样式和大小 Height 和Width : 返回或设置控件的高度和宽度 Left 和Top : 返回或设置控件左边缘和上边缘与窗口左边缘和上边缘间的距离或控件左边缘的水平坐标及控件上边缘的垂直坐标和 Visible: 返回或设置一个布尔值, 决定控件是否可见 Alignment: 标签中文本的水平对齐方式该属性有3 个取值: 0 左对齐（默认） 1 右对齐 2 表示居中对齐 AutoSize : 返回或设置一个布尔值, 决定控件是否改变大小以显示其全部内容。值为 TRUE为自动改变大小以显示全部内容；若为False（默认值）,则保持控件大小不变。BackStyle: 返回或设置一个值, 指定标签控件的背景是透明的还是不透明的。0 表示透明, 1 表示不透明。 BorderStyle: 指定标签控件的边框样式。0表示无边框, 1 表示有固定单线边框Wordwrap:返回或设置一个布尔值,指定一个Autosize属性设置为TRUE勺标签控件是否要进行水平或垂直展开, 以适合其Caption 属性中指定的文本的要求 2. 标签控件勺方法 Move方法： object.Move left, top, width, height

窗口控件说明

Excel 控件是放置于窗体上的一些图形对象，可用来显示或输入数据、执行操作或使窗体更易于阅读。这些对象包括文本框、列表框、选项按钮、命令按钮及其他一些对象。控件提供给用户一些可供选择的选项，或是某些按钮，单击后可运行宏程序。第一，excel 控件之窗体控件介绍 excel 控件，其中，“窗体”有16个命令按钮，依次为：标签、编辑框，分组框、按钮、复选框、选项按钮，列表框、组合框，组合式列表编辑框、组合式下拉编辑框，滚动条、微调项，控件属性、编辑代码，切换网格、执行对话框。 “控件工具箱”还包含通过其他程序安装的自定义ActiveX控件，例如：通过Microsoft I nternet Explorer安装的Active Movie控件。第二，excel 控件在哪里找出来首先，看看excel 控件在哪里？ Excel2010版，单击“开发工具”选项卡-〉插入-〉表单控件，就可以找到excel 控件工具箱。如果你的Excel选项卡中没有“开发工具”，参考《显示excel 开发工具》调出Excel开发工具。 excel 控件2003版的调出方法是：在工具栏单击鼠标右键，勾选【窗体】、【控件工具箱】。【窗体】调出的是【窗体控件】的工具栏、【控件工具箱】调出的是【ActiveX控件】的工具栏。第三，excel 控件第一个实例：以【微调项】为例（【微调项】Excel2007改为【数值调节钮】），介绍它在两种控件的制作方法。单击【窗体控件】中的【微调项】控件，然后在表格上拖动一个区域（区域大小决定控

件的大小）。插入好控件后，对控件的属性进行设置，右键单击控件，单击【设置控件格式】，在弹出的【设置控件格式】对话框中选择【控制】选项卡。【当前值】：是控件当前的赋值，可以不去管它，它随着控件的变化而变化，不是固定的值；【最小值】：如果我们需要用控件调整一年中月份的变化，最小值可设定为1；【最大值】：比如需要用控件调整一年中月份的变化，最大值可设定为12；【步长】：步长是指每次单击按钮值的增加或减少的幅度，月份的变化步长可设定为1；【单元格链接】：这个设置决定控件在表格中的赋值对象，也就是单击控件时希望哪个单元格随着变化。【三维阴影】：如果希望控件具有立体阴影效果，可以勾选【三维阴影】前的复选框。控制属性设置好后，单击【确定】完成。第四，excel 控件之ActiveX控件 ActiveX控件，比窗体工具条中的控件要更灵活，是VBE中用户窗体控件的子集，在E xcel工作表中和VBE编辑器中都是可用的，尤其在要对使用控件时发生的不同事件进行控制时。我们能捕获这些控件的事件，这也是其灵活的主要原因。这些事件可能是单击、双击、变化(例如对组合框控件项目进行新的选择)，用户能离开这个控件并转移焦点到另一个控件或返回到Excel界面，等等。 ActiveX控件也有一个长的属性列表，如字体(Font)、标题(Caption)、名称(Name)、单元格链接(Linked Cell)、高度(Height)，等等。这些属性取决于控件的类型，但所有控件都有诸如名称(Name)属性和一些其它的属性。 ActiveX 控件也具有可自定义的属性。例如，可指定当用户指向控件时指针的外观。您可编写宏，响应与ActiveX 控件相关的事件。可在Excel 窗体上和VBA 程序窗体和对话框中使用ActiveX 控件。

页框控件的使用

获取当前页框中被选中页的标题 LOCAL cP cP = thisform.pageframe1.Pages(thisform.pageframe1.ActivePage).Caption MESSAGEBOX(cP) 页框(pageframe) 也是vfp的一个基本控件，使用它可以制作出类似于windows对话框的效果，关于这个控件的常用属性和方法请参考vfp基础教程-页框和页一文。页框控件本身是一个容器，其中可以包含若干个页（page）；而页也是容器，可以在其中添加各种对象，因此无论是在设计时添加对象或者是代码引用，都要比别的控件麻烦些。在使用这个控件时需要注意:如果设计时要向某个页中添加对象，一定要在页框的编辑状态下选中该页的标签，然后再向该页中添加控件；另外在不同页之间切换时，需要处理好数据源的问题。刚接触这个控件的同志可能经常会碰到这样一个问题：即使在页框中只设定了两页，这两页的标题宽度也会平均分配并且占满整个页框的宽度；而在标准windows对话框中，无论有多少页，页面标题都是左对齐排列的，如下图：这个问题很好解决，把页框的TabStyle属性值设为“1-非两端”就可以出来这种左对齐的效果。本文来设计一个页框控件的应用实例，在本例中通过页框控件的两个页实现了看实例学VFP：对表中记录进行定位与查找操作和看实例学VFP：向数据表中添加记录并验证输入数据是否合法这两个例子的功能，运行时如下图：制作步骤如下：一、新建表单，将其caption属性值设置为“编程入门网-页框控件”，AutoCenter属性值设置为.t.，保存为“表单1.scx”。二、向表单上添加一个页框控件pageframe1，将其pagecount属性值设为2，TabStyle属性值设为“1-非两端”。三、右击页框控件选“编辑”命令，在页框的编辑状态下选中page1，将其caption属性值设置为“查找记录”，按照看实例学VFP：对表中记录进行定位与查找操作一文向page1添加相同的控件并为各个控件设置相同的属性。四、在页框的编辑状态下选中page2，将其caption属性值设置为“添加记录”，按照看实例学VFP：向数据表中添加记录并验证输入数据是否合法一文向page2添加相同的控件并为各

Powerpoint代码编程

Powerpoint代码编程 1.控件工具箱:“视图”菜单下的“工具栏”中 2.加入控件方法：在工具箱中选中后在幻灯片上拖动（加入控件后，右击控件出现的菜单中, “属性”用来设置控件属性；双击控件可进入代码窗口。） 3.退出代码窗口:击“视图”菜单下的“对象窗口” 4.常用属性举例(值的改变：a.属性窗口；b.代码窗口） text (注：文本框中内容） caption:标题 forecolor:前景色 backcolor: font (fontsize,fontname,fontbold,...) mouseicon:鼠标形状（注：图形格式：.ico .cur；前提条件：设置mousepointer为99） value:滚动条的当前值（max min smallchange largechange） picture:图片（注：用loadpicture(文件名)函数赋值）如：

Image1.Picture=LoadPicture("c:\abc.bmp" 5.常用事件 click (dblclick) keydown:按键（keyup keypress 注：系统参数keycode:所按键的ascii码值） mousedown:按下鼠标时（mouseup mousemove 注：系统参数：x y 坐标 button: 1按了左键；2按了右键） change:内容发生改变时（如：滚动条文本框） 6．常用函数 Val() 将字符型数据转换数值型数据 Str():……… loadpicture(文件名):给picture属性 rgb(r,g,b):颜色 r,g,b:[0,255] rnd ：产生随机数. [0,1) Int(Rnd*101) 10+int(rnd*91)

vf 中控件属性click事件代码

【转载】vf常用代码集锦（上） 2010-07-20 16:04 ◆文字滚动的效果在表单添加一个计时器，把计时器INTERVAL设为30 如要走动的文字在标签１也就是LABLE1, 在计时器的timer里写下如果代码： if https://www.wendangku.net/doc/a78683571.html,bel1.left+https://www.wendangku.net/doc/a78683571.html,bel1.width=0 https://www.wendangku.net/doc/a78683571.html,bel1.left=thisform.width else https://www.wendangku.net/doc/a78683571.html,bel1.left=https://www.wendangku.net/doc/a78683571.html,bel1.left-1 endif 此时，LABLE1的文字将从右到左不停的走动，这时，如果要加一些效果，比如说是文字让它变颜色，一直闪烁的话。可以再加“文字闪烁的效果”里的代码，两者结合，效果很好。 ◆文字闪烁的效果假设要闪烁的标签文字在Label1上。在表单添加一个计时器设Interval的值为30。在表单的Alwaysontop也就是表单属性的第一个值里声明变量，代码为： Public I I=0 在计时器Timer1的Timer写下代码 i=i+10 if i>=255*2 thisform.timer1.enabled=.t. i=0 endif if i>=255 https://www.wendangku.net/doc/a78683571.html,bel1.forecolor=RGB(255*2-i,50,110) else https://www.wendangku.net/doc/a78683571.html,bel1.forecolor=RGB(i,80,170) endif 打开表单，就会出现文字闪烁了，如果你有兴趣，试试看 ◆密码的设置在表单中添加两个文本框，text1为用户名；text2为密码，添加两个命令按钮，设为确定和取消，数据表的结构两个字段：(name *用于存放用户名)和(mm *用于存放密码) 在确定按钮的click事件写入 if thisform.text1.value="".or.thisform.text2.value="" =messagebox ("用户名或密码不能为空!",0+48,"警告!") else sele 1 use shujubiao\yonfu.dbf if name=allt(thisform.text1.value).and.mm=all(thisform.text2.value) use thisform.text1.value=" "

常用控件的使用

实验六常用控件的使用一、实验学时2学时二、实验目的 1．掌握图形控件、选项按钮、复选框、框架、滚动条、列表框、组合框、时钟控件的常用属性、方法和主要事件； 2．掌握常用控件的事件过程代码的编写，熟悉VB中设置焦点的方法； 3．掌握在程序运行时设置属性的方法，访问键、取消键的设置和使用；三、实验内容 6-1 标签的使用通过此例掌握框架、图片框、图像框、选项按钮的使用。要求：在窗体上添加大小相同的图片框和图像框，再添加一个框架和2个命令按钮，在框架中画三个选项按钮，设置它们的属性。程序运行后选择一种图片，单击“装载图片”按钮，将在图片框和图像框中同时显示指定的图片，单击“清除图片”按钮，清空图片框和图像框。设置属性，以使在程序运行时，按回车键可以装载图片；按ESC键可以清除图片。程序运行的界面如图6-1所示。步骤：（1）新建工程，添加控件（注意添加的图片框和图像框是大小相同的），适当调整它们的大小和位置。（2）设置属性：按表6-1设置窗体及各控件的属性。表6-1 框架、图片框、图像框、选项按钮的属性设置对象类型对象名称属性属性值备注窗体Form1 Caption 框架、图片框的使用图片框Picture1 Picture 空图像框Image1 Picture 空 BorderStyle 1 图像框有固定单边框框架Frame1 Caption 选择图片在框架上方显示的内容选项按钮Option1 Caption 电话按钮旁边显示的内容图6-1 框架、图片框、图像框的使用

Value True 选项按钮被选中选项按钮Option2 Caption 握手按钮旁边显示的内容选项按钮Option3 Caption 网络按钮旁边显示的内容命令按钮Command1 Caption 装载图片 Default Ture 按回车键即可执行Click事件过程代码命令按钮Command2 Caption 清除图片 Cancel True 按ESC键即可执行Click事件过程代码命令按钮Command3 退出（4）编写命令按钮的Click事件代码，分别实现各自的功能；编程提示： A）根据选项按钮装载不同的图片，需要使用选择结构判断用户选择了哪一个选项按钮。使用If语句的程序结构如下： If Option1.Value = True Then …… ElseIf Option2.Value = True Then …… ElseIf Option3.Value = True Then …… Else …… End If B）注意图像框不能使用Cls方法。（5）保存文件，运行和调试程序。 6-2 复选框的使用通过此例掌握复选框的使用。要求：在窗体上添加一个文本框和4个复选框，选中各复选框，文本框中的文字就按复选框进行字形设置；取消复选框时，对应的字形设置恢复。程序运行的界面如图6-2所示。步骤：（1）新建工程，添加控件，适当调整它们的大小和位置。（2）设置属性：按表6-2设置窗体及各控件的属性。表6-2 框架、图片框、图像框、选项按钮的属性设置对象类型对象名称属性属性值备注窗体Form1 Caption 复选框的使用文本框Text1 Text 测试复选框的功能FontName 黑体复选框Check1 Value 0 复选框未选中Caption 粗体复选框Check2 Value 0 复选框未选中 Caption 斜体图6-2 复选框的使用