qzgx.net
当前位置:首页 >> vB中gEtFoCus >>

vB中gEtFoCus

区别如下:setfocus是把焦点放置在**之上的方法.getfocus是获得焦点时引发的事件.

getfocus是一个事件,就是当光标移到某个地方时,会发生其他什么事呢! 例子: private sub command1_click() if(text1.text=text2.text) then text3.setfocus end if end sub private sub text3_getfocus() text3.text="" end sub

getfocus 是事件,当一个控件得到焦点时触发,setfocus是方法,是人为的让某个控件得到焦点.

setfocus是把焦点放置在**之上的方法……getfocus是获得焦点时引发的事件……

setfocus是方法,例如text1.setfocus可以让text1获得焦点getfocus和losefocus是事件,当控件获得焦点和失去焦点时分别触发这两个事件.如用text1.setfocus语句让text1获得焦点时,就会触发getfocus事件.当光标从text1移开时就会触发losefocus事件

setfocus是一个属性,就是可以通过这个属性,将光标移到某个地方.而getfocus是一个事件,就是当光标移到某个地方时,会发生其他什么事呢!例子:private sub command1_click()if(text1.text=text2.text) thentext3.setfocusend ifend subprivate sub text3_getfocus()text3.text=""end sub

好像你打错了吧?应该是gotfocussetfocus 是方法,也就是使某个对象获得焦点,而gotfocus 是事件,也就是当某个对象获得焦点的时候会发生什么事.例子:Text1.SetFocus..Private Sub Command1_GotFocus() ..End Sub

旗语标志主要用于记录一个状态 这里flag的意义要视实际情况而定例如在循环中有时候flag用于记录 一组数据是否有一项达到了要求等等.

Dim TipFlag As BooleanPrivate Sub txtcontent_gotfocus()TipFlag = True '设置一个标识 提醒程序 这个是程序设置的txtcontent.Text = "大家好,课程还难吗"End SubPrivate Sub txtcontent_change()If TipFlag = False Then '如果不是程序输入内容lblshow.Caption = "标签的作用大家还清楚吗"Else 'Gotfocus改变了内容TipFlag = False '让它提醒标识清除 这样下一次修改内容时候就会触发上面的内容End IfEnd Sub

Rnd 函数 返回一个包含随机数值的 Single.语法 Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式.返回值 如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果. 大于 0 序列中的下一个随机数. 等于 0 最近生成的数. 省略 序列中的下一个随机数. 说明 Rnd 函数返回小于 1 但大于或等于 0 的值.number 的值决定了 Rnd 生成随机数的方式.

网站首页 | 网站地图
All rights reserved Powered by www.qzgx.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com