-
-
3人气没了,怎么底下5,6年,10多年前的帖子都到首页了?
-
23function和sub有什么区别啊,求老师讲下
-
7vb有没有模拟键盘按下代码啊啊啊 我需要一个启动程序后就能长按下一个按键的代码,如何做到? 不需要循环按一次的,只要长按的 。
-
6自定义控件的属性,怎么设置缺省值啊。 我在控件的Initialize事件里面赋了初始值,但是这样有个缺陷。如果在设计模式修改了属性值的话,是不会生效的,程序运行时又变回初始值了。 怎么样能让它既有默认值,又可以随意修改呢
-
3
-
14
-
10就用了一个GdiTransparentBlt,没有外接部件,全基于原始控件.还是有点偷懒了,本来应该基于全图刷新,但控件用起来不费脑.零引擎回归原始的业余自制放置游戏探索日志6_哔哩哔哩 (゜-゜)つロ 干杯~-bilibili转自:https://www.bilibili.com/video/BV1Lz4y167hu?share_medium=web&
-
27
-
5程序一个主窗体Form1,通过这个主窗体随机再打开了N个新窗体,每个窗体的name都是随机且已知的。 我现在想在关闭主窗体Form1的同时,同时关闭所有已经打开的新窗体。 想了半天不知道如何是好,头发都掉了几根了 我试了在Form1的Unload事件里面逐一执行Unload + name,会提示类型不匹配呢
-
10
-
7
-
186最近电脑课发的学习资料,有人要的麻烦先互关一下(总不能白给吧。。。。),然后留个邮箱,我发pdf,不谢。非水军,吧务误删。
-
30怎么不让LIST重复添加已经有的数据
-
1
-
223
-
7
-
5
-
17问下大家,四位数字怎么转换为时间,比如1230,转换为12:30? 因为后续需要对这四位数字排序,还需要计算差值
-
14求解1-1/21+1/31-1/41+1/51-1/61+1/71-1/81+1/91-1/100 我的代码哪里错了?谢谢! Private Sub Command1_Click() Dim a%, b# b = 1 For a = 1 To 10 If a <> 1 Then If a / 2 Eqv Fix(a / 2) Then b = b - (1 / (a * 10 + 1)) Else b = b + (1 / (a * 10 + 1)) End If Else b = b End If Next a Print b End Sub
-
31
-
9
-
1一个文件夹里面有若干个工作薄,工作薄中有若干个工作表,所有的工作表 B列,C列,G列 进行求和
-
17这是为什么,明天考试了,现在还不懂。
-
5
-
2Option Explicit Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long Private Const CP_UTF8 = 65001 Public Const BAIDU_APP_KEY = "你的APP KEY" '在百度申请后得到 Public Const BAIDU_SECRET_KEY = "你的SECRET KEY" '在百度申请后得到 Public Function strCut(strContent, strStart, strEnd) As String '文件截取函数 Dim strHTML, s1, s2 As String strHTML = strContent
-
0VB做的上位机实例探讨
-
1
-
1Open "**.CSV" For Append As #1 'Append 从文件末尾开始写入,因为文件末所以不存在覆盖 Print #1, A,",",B,",",C,"," ; ‘写入内容为:A B C Print #1, ’换行 A B C Print #1, A,",",B,",",C,"," ; CLOSE #1 Open "**.CSV" For Output As #1 'Output 从文件开头开始写入如果有内容就会覆盖 Print #1, A,",",B,",",C,"," ; ‘写入内容为:A B C Print #1, ’换行 A B C Print #1, A,",",B,",",C,"," ; CLOSE #1 以上
-
12我想点击计算按钮过后,使计算的结果显示在窗体strenthresult中。可是总会出现未找到方法或数据成员的错误。 我在module中定义了想显示的变量为public变量,请大神帮我看一下。 我的代码在楼下 截面截图也在楼下 自己百度了一晚上都不知道原因求大神帮帮忙!!
-
5要把vb6软件的一些内容显示在电子屏上,电子屏demo是net版,看不懂。
-
21
-
7
-
6
-
9喜欢瞎搞,也就会经常把系统搞坏,然后就需要每次再去重装系统。但最烦人的是每次重装以后都得把软件去重新装下,所以问下吧里面的高手可不可以做一个软件自动安装器,可以静默安装,可以自定义安装路径之类的,不求一些在线安装的,离线安装的就可以,懂的高手能不能给个思路,或者方向之类的,感激不尽!
-
0当前文件夹下所有EXCEL工作表在A1000自动求和如何实现
-
2
-
4VB中经常看到的arr与array 有什么区别?
-
7Private Sub Command4_Click() Dim ADO1, ADO2, ADO3, ADO4, ADO5, ADO6 As Integer For io = 1 To 100 '?趨????? If InStr(Cells(1, io), "O???1") Then ADO1 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???2") Then ADO2 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???3") Then ADO3 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???4") Then ADO4 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???5") Then ADO5 = Cells(1, io).Column End If If InStr(Cells(1, io), "O???6") Then ADO6 = Cells(1, io).Column End If Ne
-
16Dim strPath As String, strFile As String, strNewFile As String strPath = "D:\Users\Administrator\Desktop\cenxx\" strFile = Dir(strPath & "*.*") Do Until strFile = "" strNewFile = strPath & "cenxx" & strFile Name strPath & strFile As strNewFile strFile = Dir Loop End Sub 如何把"D:\Users\Administrator\Desktop\cenxx\"和strNewFile = strPath & "cenxx" & strFile文件夹名cenxx,改成引用单元格b2的人名?
-
3
-
21在做一个功能,将一个文件夹下,创建日期超过特定天数的文件全部删除。 思路是,先用dir函数将所有文件名存到一个数组里, 然后依次获取时间做比较,然后删除 现在遇到的问题是,是dir函数获取文件名时,如果文件名时中文的,会出错; 大家有没有遇到这样问题的?怎么解决?
-
7
-
6
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频!
看高清直播、视频!
友情贴吧

