上一页 1 2 3 4 下一页
问：关于程序热键公用问题？
如果两个程序都用到了相同的热键 比如说ctrl+enter 当这2个程序同时运行起来的时候，怎么才能让只有一个程序接受热键，换句话说就是谁在前台（前面 激活状态）谁就使用这个热键，谁在后台 或者最小化等非激活状态 那么就不使用这个热键！ 怎么能做到呢？
答：代码如下：
Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 Then
If KeyCode = vbKeyReturn Then
Text1.Text = Text2.Text
Text2.Text = ""
End If
End If
End Sub |
问：在用二进制binary,写入一个字串时(比如"你好")后，如何用get读出来？
答：在VB读和写有专用的语法，或者直接使用FSO，如：
open 文件所在路径 for output as #1
write #1,"你好"
close (1)
'这是写文件操作
读的话类同，用line input读出来就可以了。 |
问：怎样让Listbox中的滚动条的颜色与Listbox的背景颜色一致？
答：其实要看每个控件是否可以设置颜色，一般检查一下控件的backcorlor和forecolor属性就可以了，有的话，自己设置吧。
问：怎么让form时刻处于最上方，formName.show不能做到这一点?
答：代码如下：
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, Me.Width, Me.Height, SWP_NOMOVE Or SWP_NOSIZE
End Sub |
问：定义在类中的Procedure和Function有什么区别？ 他们是不是都可以单独存在?
答：procedure是声明一个过程,没有返回值.
function是声明一个函数,有返回值的.
问：VB中在textbox中查找单个的字符或字符串有什么好方法? 如:
在textbox中查找: 如textbox.text="12345678"查找"78"或"8" 代码怎么写?
答：用instr函数
例:
dim i as integer
text1.text="12345678"
i=instr(text1.text,"78" |
i 的值就是在textBox中找到的字符串"78"的第一次出现的位置.
上一页 1 2 3 4 下一页 |
