-
-
0
-
8c#?vb.net?c++? 好象要排除vb.net,碰到个外部设备demo没有vb.net的
-
7
-
1最近想用空闲时间写个解密酷狗KGM文件的小工具,但对酷狗最新的加密算法不了解。。。
-
15英文版链接地址:https://share.weiyun.com/LC1TZHiL 中文版链接地址:https://share.weiyun.com/9dzARQ1i
-
4
-
1电脑坏了,需要做一个简单的系统,功能是电子记账,通过登录记录并储存信息,并连接到后台access数据库,有流程图和数据库,有偿。有意者私聊
-
51vb6等其他软件终于可以完美支持h5网页了。
-
55如何在VB中实现按ctrl+A后,全选文本框中的文字 Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 1 Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 或者用这个 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = 2 And (KeyCode = Asc("a") Or KeyCode = Asc("A")) Then Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End If End Sub 但如果窗体上有N个命名都不一样的文本框,有没办法做到所有文本框都一次性赋予CTRL+A的能力?
-
3
-
4
-
1比如窗体上有个按钮,只要按一下,就能在百度的搜索栏里搜到“窗字的书写顺序”的视频,就是自动地在搜索栏里填上“窗字的书写顺序”这几个字,然后自动选择“视频”的选项,最后点击“搜索”,看看哪位大神帮一下,谢谢
-
16有大佬解答一下么
-
38
-
11
-
12以前我发了个利用新浪的天气API获取气象预报的代码,但现在新浪的这个API取不到数据了,不知其原因,所以下面另发获取气象预报的代码。 一、新建一个工程,在窗体上添加2个按纽,Command1的标题为“天气预报”,Command2的标题为“城市代码”;再添加2个文本框,Text1用于输入城市名或者省名,Text2用于显示获取到的信息。再添加1个计时器,用于获取实时天气数据,其Interval=60000(1分钟)。 代码如下: Dim MyHTTP As Object, t As Integer Private Sub
-
4
-
10向各位大神请教,想从服务器数据库查询数据后导入本机数据库里,我一条一条导入的,太慢了,300条记录得用30秒,有什么办法快速导入吗?
-
6
-
23
-
39在感叹deepseek强大的同时,有一点遗憾,程序运行无效果。请懂API的大神给看看哪里错了? 这是deepseek自动生成的一段代码 半透明水印 'Option Explicit ' 'deepseek的半透明水印,无效果,有待查找原因 Option Explicit ' GDI API声明 Private Declare Function CreateCompatibleDC Lib "gdi32" (ByVal hdc As Long) As Long Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long Private Declare Function SelectObject Lib "gdi32&quo
-
13RThreshold=1,如果收到“abc”,OnComm事件Case comEvReceive触发一次,还是多次?也就是一次性收到abc,还是一个个字符收到的呢?
-
19之前用的企业版,后面win10安装不了,换的极简版,但是找控件又嫌麻烦,然后我又找方法把它扩展为企业版,唉,就是玩,需要的楼下自取
-
5我们知道,VB在画虚线时,线宽只能为1(DrawWidth=1),但有时候我们必须要画粗虚线,那该怎 么办呢?解决这个问题的思路是:要画多宽的虚线,只要在最初那条虚线的两旁画相应数量的虚线就行 了。比方说,画5个像素宽的虚线,那么就在第一根虚线的两旁再各画2根同样长的虚线即可。笔者据此 编写了一段代码,与各位共享。 新建一个窗体,上面只放置一个Line控件。代码如下: Option Explicit Dim BjDash As Boolean '是否画虚线:0-画实线,1-画
-
10
-
28
-
41
-
27
-
18pc端一直vb6.0,以前要用指纹仪,sdk没有vb,只有vb.net,现在碰到流水线用rfid, vb.net都没有,设备方说极少人用vb,看来还得看得懂C#,C++
-
21在win7环境下运行正常,在xp下则提示 “unexpected error”。 有没有捕获 “unexpected error” 的方法,试了 on error goto err 也不显示错误
-
3有偿找一个vb设计的大佬 现在有vb程序和代码 现在需要一个懂凸轮机构且懂vb设计的大佬帮我修改代码让程序运转出图像
-
39
-
8
-
5
-
9大约20年前用vb编写的一款单机,饲养宠物的文字RPG,就是战斗训练探险都是一个对话框弹出来一句话,没有动画效果的,纯文字。 宠物的话,可以养野猪、独角兽,比蒙(里面好像是叫比比),用的都是英雄无敌3的怪物头像。有一个隐藏宠物,是蜡笔小新的小白,它的技能有棉花糖,小白抓小鸡鸡等等。 饲养的时限是180个回合好像,可以探险,训练,打工,买装备等等。 回合全部结束了就要打boss。 有个装备叫“xx良的毛”,装备了最后还要打大魔
-
7好象文件都不一样,应该要重新做才好吧。有些属性方法有增加,看到窗体caption属性变成text,不是闲得。 .net面向对象,看着类似C#,还没怎么看顺眼。有克服种种不适升级的意义吗?
-
7各位高手,你们好,请教下!关于vb6如何通过WebBrowser控件或者第三方库通过网址访问adge或者chrome,并与其交互数据
-
11如何用VB获取第三方软件非标准windows窗体checkbox控件的状态?(用内存扫描方法)
-
4串口用mscomm
-
3工程级或窗体级,因为mysql连接未操作超时就断了,腾讯云默认是1小时,我想捕获这个错误自动重新连接,做在过程里太麻烦了
-
2查询顾客多次购买的时间代码如下: Sub 多次购买时间查询() Dim b As Integer For b = 5 To 988 Dim x As Integer x = Application.CountIf(Sheet2.Range("C:C"), Sheet9.Cells(b, 3)) Set mrg = Sheet2.Cells(7, 3) For y = 1 To x Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg) Dim t As Integer t = 26 + y Sheet9.Cells(b, t) = mrg.Offset(0, 11) Next y Next b End Sub 谁帮我解释一下这段代码的意思:Set mrg = Sheet2.Range("C:C").Find(Sheet9.Cells(b, 3).Value, mrg)
-
4
-
5
-
131
-
50使用前要去控件的文件夹里面【右键】【管理员权限运行】【注册控件.bat】 内核使用Miniblink组件(基于Chromium内核):weolar.github.io/miniblink/index.html 因为Miniblink组件没有VB6版本,所以我给Miniblink组件做了二次封装,让VB6也可以使用 Miniblink组件暂时不支持视频播放,以后看作者可能支持,SBrowser控件开放了GetWebWindow函数 如果有想要做再次开发的可以根据Miniblink组件的API用这个来操作SBrowser控件 Miniblink组件API文档:weolar.github.io/miniblink/doc-main.html Miniblink组
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!