-
-
4
-
6
-
6大家好,偶然间听到了“bug开关”这个词,大概意思应该是有一些程序仅在调试时会使用,但在正常运行时不会使用的代码。这些代码有一个开关来控制他们是否执行。 VB有这个吗?有大佬用过吗?
-
150
-
6求助: 需要全屏的窗口,铺满全屏,不是窗口右上角的全屏按钮那种,然后就把边框设置为无边框,但是最小化之后会变成一个小图标挂在桌面左下角并且会有bug,我想让窗口最小化在任务栏显示,就只能放弃无边框,有边框就不知道怎么搞全屏了,目前我的解决思路是,把窗体top和left设置成负值,且置顶,这样就能全屏显示了,但是不管我怎么设置高度,窗口下面还会有一条空白,露出一点任务栏,无法铺满全屏 谢谢大家!
-
107
-
16
-
3大约20年前用vb编写的一款单机,饲养宠物的文字RPG,就是战斗训练探险都是一个对话框弹出来一句话,没有动画效果的,纯文字。 宠物的话,可以养野猪、独角兽,比蒙(里面好像是叫比比),用的都是英雄无敌3的怪物头像。有一个隐藏宠物,是蜡笔小新的小白,它的技能有棉花糖,小白抓小鸡鸡等等。 饲养的时限是180个回合好像,可以探险,训练,打工,买装备等等。 回合全部结束了就要打boss。 有个装备叫“xx良的毛”,装备了最后还要打大魔
-
2
-
11之前用的企业版,后面win10安装不了,换的极简版,但是找控件又嫌麻烦,然后我又找方法把它扩展为企业版,唉,就是玩,需要的楼下自取
-
3https://www.vbforums.com/showthread.php?892123-VB6-AddIn-IDE-Cod 基本原理是自己设定折叠区域,然后点击折叠按钮把区域内的代码保存在所有代码的底部
-
5大佬们好, 我想做一个在运行窗体没有鼠标焦点的情况下,仍然可以检测到键盘空格按下后开始运行程序的程序。 但我卡在了运行窗体没有鼠标焦点后,按下键盘没反应的情况。 请问怎么解决
-
0能监控plc输入输出点的状态的,有偿
-
9大佬救救命 怎么用picture控件显示MSHFlexGrid控件中的图片 Private Sub Form_Load() Dim row As Integer Dim col As Integer Dim imagedata As Variant ' 获取选定单元格的行和列 row = frm5.MSHFlexGrid1.row col = frm5.MSHFlexGrid1.col ' 检查选定单元格是否包含图像数据 If Not IsNull(frm5.MSHFlexGrid1.TextMatrix(row, 5)) Then ' 获取图像数据 imagedata = frm5.MSHFlexGrid1.TextMatrix(row, 5) ' 将图像数据加载到Picture1控件中 Picture1.Picture = LoadPicture(imagedata) Else MsgBox "选定单元格不包含图像数据!", vbExc
-
0比如一个html项目,左边text输入内容,右边canvas显示对应的内容,如果想把这两部分,放到vb里,该怎么写
-
199
-
0哪个大佬会用两个窗体Form1、Form2实现这些功能,Form1中的功能是将图片加载到Picture控件,再加载到MSHFlexGrid控件中,MSHFlexGrid控件与Access数据库相连,就可以将在图片加载到access数据库中,然后在Form2用Picture控件打开显示,这里保存的图片类型为OLE,不是图片路径
-
1
-
6求助各位大佬,我做了一个程序把将输出的数据都显示在list box里面,但是现在需要对数据进行分析处理,请问有没有什么方法可以把数据导出啊
-
9pfun。sunrui。ink 句号换成英文点。
-
11想用大写的I,结果自动变成了小写 如下程序第3行,帮忙看看,谢谢! Public Function RTU_Read(ByVal a As String, ByVal b As Byte) Select Case Left(a, 1) Case i Case Q Case S Case V End Select End Function
-
18
-
3
-
11做了一个蝴蝶飞舞的程序,从左下角飞到右上角,再从右上角飞到左下角,但总感觉别扭,请斧正 问题有四: 1)蝴蝶的初始位置设置 2)蝴蝶飞到右上角会消失,得等一会才出现,左下角也是一样 如何设置蝴蝶飞到右上角,马上返回,时钟控件的interval设置均为1000 3)使用时钟控件过多,能减少到一个时钟控件么?如果用多层选择结构,那就算了 4)能给两张同一蝴蝶图片,一张合拢,一张张开。多张更好。我找了好久没有找到素材 程序见下楼
-
4
-
11
-
1Private Sub Form_Load() '消除弹窗 WebBrowser1.Silent = True '程序装入后进入IE设定的起始页 WebBrowser1.Navigate "https://http://cxfw.jtyst.xinjiang.gov.cn/home/index" '0.5s响应一次 Timer1.Interval = 500 '宏定义量进行赋值 inf = 9999 '数据库初始化 End Sub Private Sub Timer1_Timer() If qq = 3 Then '只执行一次 '移动网页 WebBrowser1.Document.parentwindow.scrollby 280, 460 '消除滚动条 WebBrowser1.Document.Body.Scroll = "no" '缩放 WebBrowser1.Document.Body.Style.Zoom = 0.75 End If qq = qq + 1 En
-
63
-
18
-
3
-
2
-
33
-
27
-
14
-
8一个Text1,,DataGrid1怎么实现读取。 在text1写入回车执行Option1的命令,在DataGrid1里面显示出来。或者有什么其他什么方法。
-
18
-
30效果 那么先画一个组合框,在Click事件中写; If Combo1.Text = "English" Then 'MsgBox RText("language\English.lan", 1) Form1.Caption = RText("language\English.lan", 1) Command1.Caption = RText("language\English.lan", 2) cmdCommand2.Caption = RText("language\English.lan", 3) lbl.Caption = RText("language\English.lan", 4) Form2.lblCopyright2018.Caption = RText("language\English.lan", 5) jjj.Caption = RText("language\English.lan", 6) Form2.Caption = RText("language\English.lan", 7) showerr
-
9
-
5使用multipart/form-data格式上传文件,其中两个文本表单字段,一个文件表单字段,但是服务器一直接收不到我的文本表单,返回报文提示我那两个字段为空,这至少证明我的请求是发送成功的. 想学别人用fiddler抓包,对比postman 和我自己VB6程序发送的报文,postman的http包能抓到,VB6程序的始终抓取不到,希望大神指教,post函数还有从AI那问的标准报文格式,我放在2,3楼
-
61
-
94
-
7
-
9
-
3
-
2VB6.0中没有Date envirconment怎么办,哪位大神知道解决办法???在线求
-
14
-
14比如说定义a=1,用什么方法可以让textboxa=……和textbox1的作用是一样的,如果可以的话具体要怎么操作呢
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!