这个VB语句我不会!!帮忙看看
If Button = 2 And Shift = 0 Then
PopupMenu popmenu.popmenu3
为什么有的是PopupMenu popmenu.popmenu,PopupMenu popmenu.popmenu2等等,我不明白!!
PopupMenu popmenu.popmenu3 语法不对.PopupMenu第一个参数是菜单名,是标识符,应由字母、数字或下划线组成,不能有英文句点。这是那来的?
这是用右键菜单
按Ctrl+E键,弹出菜单编辑器。在那里面可以编辑菜单。
标题:等同于Command的Caption属性,就是用来显示菜单上的文字。
名称:等同于Command的Nane属性,指定菜单的名称。
索引:菜单数组的下标。
复选:以复选框的样式显示菜单。
有效:Enabled
可见:Visible
→按钮:选定的菜单项退一级
←按钮:选定的菜单项向上一级
↑按钮:选定的菜单项向上移动
↓按钮:选定的菜单项向下移动
先输入菜单第一项的标题"文件"和名称"file",按你的要求,程序运行时不显示,那么就把它的"可见"勾上。
再输入菜单第二项的标题"打开"和名称"open",因为它是在"文件"菜单的下一级,所以按一下"→按钮"
最后输入菜单第三项的标题"保存"和名称"save",不用按按"→按钮".确定完成菜单的编辑.
调出菜单.
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu file
'1为左键,2为右键
'popupnebu <菜单> ..弹出菜单
End Sub
点击代码窗口中控件下拉列表,选择save 或 op
相关问答:
我想做个用vb6做的程序,可以控制GPRS MODEM拨号,如拨我自己的手机
可以啊
你先下个AT命令集合学习学习
我来顶
顶贴
LZ好厉害
不顶不行
老是排MP
引用
LZ好厉害
......
初学,大胆提问,请高手不吝赐教
1、滚动条点击与绘图板(屏幕,Piceure1)的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
如题。
不用API也能实现:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html
使用API输出文本存在显示刷新问题,需在ReSize或Paint事件中加入代码.
http://download.csdn.net/ ......
各位高手,小弟想写一个程序,读取服务器上的一个共享文件,当这个文件被修改后,将此文件拷贝到本地计算机覆盖本地原来的文件。请各位大侠写段代码,和解释,谢谢!
判断文件大小或修改日期,不一样就拷贝到本地
......