-
-
4
-
10向各位大神请教,想从服务器数据库查询数据后导入本机数据库里,我一条一条导入的,太慢了,300条记录得用30秒,有什么办法快速导入吗?
-
6
-
48如何在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的能力?
-
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
-
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组
-
11我是新手不知道什么api什么的,有没有大神能出个详细一点的教程,非常感谢!
-
57我的免费网站已经建好一段时间了。有福同享,我今天便将建立免费网站的方法分享给大家,让更多的吧友拥有自己的网站! 先注明:二楼的回复区为公告栏,请留意回复区,并不要在2楼回帖。 本文的另一地址是: htt p://raineggplant. tk/blog/freesite/ (为防止度娘吞楼,链接中加上了空格,麻烦大家去掉。后面的链接也是如此) 在这里先由衷地感谢 <免费资源部落 htt p://ww w.freehao12 3.c om/ > 下面进入正题: ●空间 建网站的时候,空间可不能少。它就如同你
-
18GetDIBits 如果调用本地BMP文件还可以处理,现在需要直接调用内存里面的图片,比如截屏后,获取RGB值,这个时候GetDIBits就不好使了。不知道内存里面的图像,GetDIBits要如何才能操作。有知道的吧友没,谢谢l
-
3我现在打包出来的“程序.exe”必须和“程序.dll”还有“程序.runtimeconfig.json”放在同一个目录下才能运行。
-
4b站上扒小说都是Python或者JAVA。我一共就想扒两三本,还得安装环境安装软件,麻烦。VB我记得直接记事本写完改后缀名就能用。老哥们有没有什么相关的资料?
-
5只用黑白显示的(用线条或其他图形构成的)那种就行,万分感谢!
-
1和服务器对话的格式是什么
-
11比如说我动态添加了一个文本框,怎么才能让它显示出滚动条?求大佬帮忙
-
12
-
9经常碰到网站首页被人恶意篡改的情况,也不能每次都打开源码看,太麻烦了 请教如何用VB6做个自动匹配的程序,用了市面上什么豆包,文心,KIMI,chatai什么的编的程序都不能用 功能:text1从a.txt中加载网址,每个网址一行,text2加载该网址的 源码,然后与网址对应的txt文件进行比对(只需比对前200个字符),不同的在text3中记录对应网址方便查看 a.txt http://www.a.com http://www.b.com ... http://www.a.com.txt http://www.b.com.txt ...
-
6
-
12我用getpixel函数去获取一张图片的像素,但运行后发现只得到一个值,这是为什么? For i = 0 To X temprgb = GetPixel(P1.hdc, i x, y)
-
82rt 楼下放其功能特性等:
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!