Vb

搞了几天了，累的要死，求助所谓的研发部门，竟然说他们胆怯和工作流零碎做接口，没信念，麻烦 对方是BPM。[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

VB中有一个command，一个text，两个label，如何做到在text中输出数字，点击command，label12中的文字会与数字相应扭转是label中的文字的字号随着text中的数字扭转[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

通过思考，能够转换模型，即已知数值范畴[a,b],设定有x个数，数值总和为Sum。前提条件是Sum的范畴应是[ax,bx]那么首先判断取第一数值时，x1的数值范畴是多少？假设x-1个数值都为a，则x1的取值下限为Sum-a(x-1)，又已限定下限为b，则Max(x1)=Min(b,Sum-a(x-1))同理，假设x-1个数值都为b，则x1的取值上限为Sum-b(x-1)，又已限定下限为b，则Min(x1)=Max(a,Sum-b(x-1))即x1在[Max(a,Sum-b(x-1)),Min(b,Sum-a(x-1))]范畴内取值。则选取x2时，Sum1=Sum-x1，那么在选取第i个数值时，还余下(x-i)个待选数值，Sum(i)=Sum-(x1+x2+…+x(i-1))，x(i)的取值范畴应为[Max(a,Sum(i)-b(x-i)),Min(b,Sum(i)-a(x-i))]。接下来就能够用循环语句给x(i)赋值，代码如下：Private Sub XArr(a as Double ,b as Double, Sum as Double,N as Interge)Dim X( ) as Double Redim X( 1 to N) for i = 1 to N X(i)=RndBT(Max(a,Sum(i)-b*(N-i)),Min(b,Sum(i)-a*(N-i)),Index) 'RndBT是自定义函数，求两个数值间的随机数 Sum=Sum-X(i)NextEnd Sub纯手打，有谬误的中央请谅解如果大家有更好的思路或者代码我还是会给分的[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

jd = 110000pt0(0) = 300pt0(1) = 25 * tkscalept0(2) = 0 '从文件中读入高空线原始数据文件n = 0Do While Not EOF(1)n = n + 1Input #1, dmx(n, 1), dmx(n, 2), dmx(n, 3)LoopClose #1 '从文件中读入变坡点原始数据文件Dim nn As Integernn = 0Do While Not EOF(2)nn = nn + 1Input #2, bpd(nn, 1), bpd(nn, 2)LoopClose #2前面的程序都差不多，因为是给的程序所以不太会VB，之前是门路谬误，我批改完门路后又报 53号谬误，我不太明确是哪里没有敞开文件，请大佬们教教！！！万分感激！[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

Open "C:\Users\qqq\Desktop\zdm\zdm.CSV" For Input As #1Open "C:\Users\qqq\Desktop\zdm\wbpd.DAT" For Input As #2Open "C:\Users\qqq\Desktop\zdm\curve.DAT" For Input As #3Open "C:\Users\qqq\Desktop\zdm\lj.DAT" For Input As #4Open "C:\Users\qqq\Desktop\zdm\qh.DAT" For Input As #5Open "C:\Users\qqq\Desktop\zdm\dk.DAT" For Input As #6Open "C:\Users\qqq\Desktop\zdm\pc.DAT" For Input As #7Dim dmx(1 To 1000, 1 To 9) As DoubleDim bpd(1 To 100, 1 To 6) As DoubleDim curve(1 To 100, 1 To 4) As DoubleDim lj(1 To 100) As DoubleDim ljs(1 To 100) As StringDim qh(1 To 100, 1 To 3) As DoubleDim qhs(1 To 100) As StringDim dk(1 To 100, 1 To 2) As DoubleDim dks(1 To 100) As StringDim pc(1 To 100, 1 To 2) As DoubleDim pcs(1 To 100) As StringDim pt0(0 To 2) As DoubleDim pt1(0 To 2) As DoubleDim pt2(0 To 2) As DoubleDim pt3(0 To 2) As DoubleDim pt As VariantDim jd As DoubleDim zd As DoubleDim txtobj As AcadTextDim lineobj As AcadLineDim blockobj As AcadBlockReferenceDim circleobj As AcadCircleDim s As StringDim xscale As DoubleDim yscale As DoubleDim tkscale As DoubleDim radius As Double'规范字号为3mm，乘以tkscale即为理论大小[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url] ...

对于vb6反对的icon格局网上说法太多太多 有的说只反对24位 有的说32位也反对 我实际过48×48的32位是能够失常导入的 但奇怪的是导出的EXE有的win7电脑失常 有的win7电脑会显示”未预期谬误 form1不能设置图标” 有的win7的vb6能够应用32位图 有的win7间接显示”有效图片” 表白不好 请问有vb6元老级别的大神晓得怎么回事么？谢谢[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

Private Sub Group180_Click()Set Excelfile = New Excel.Application Excelfile.Visible = True On Error Resume Next '关上的报表文件名Excelfile.Workbooks.Open System.FixPath(App_Path) + "\Report\供水日报表.xlt"End Sub[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

请问一下，vb6想应用ccrpProgressBar，但“ccrpprg6.ocx”注册失败怎么解决谢谢[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

搞个数组保留门路，每关上/新建文件就映射到内存(固定分页映射，多余舍弃，有余再新映射)，保留就覆写，敞开就勾销文件映射，而后多文档交替则能够思考列表控件、下拉控件或者自绘我只是提供一个思路[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

有没有大神能教教我用vb编写多文档文本编辑器，怎么实现新建、关上多个文档啊搞个数组保留门路，每关上/新建文件就映射到内存(固定分页映射，多余舍弃，有余再新映射)，保留就覆写，敞开就勾销文件映射，而后多文档交替则能够思考列表控件、下拉控件或者自绘我只是提供一个思路QAQ[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

求教VB6代码：有一存储过程过为PRC,有4个输出变量(插入记录的值）如@A,@B,@C,@D和2个输入变量（插入是否胜利及不胜利时返回的信息）如@Errid,@ErrText，请问，在VB6中如何调用这个存储过程，使其能插入记录同时能接管到返回的信息？[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

'FTP下载文件Public Function DownLoadFile(IP As String, FileName As String, LocalFileName As String, UserName As String, PassWord As String, ByVal FtpSubdirectory As String) As Boolean On Error GoTo f_Error Dim Ret As Boolean Dim FTP_FileName As String[url]https://www.douban.com/doulist/136131176/[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

如图，程序很简略，文件门路也没问题，为什么会报错，百思不得其解？[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

QA=3660 QB=0.042 QC=153.72 QD=1 If RadioButton2.Checked = True Or RadioButton3.Checked = True Then QD = TextBox4.Text QC = QA * QB + 0.08 QE = QC * QD Label1.Text = Format(QE, "0.#") 1 End If[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

Replace(EXCEL工作表.Range("B" & i & "").Value, " ", "")Replace函数格局 替换后的字符串=Replace（原字符串,原字符串中须要被替换的字符串，替换成什么）例子 “我是中国人”=Replace（“我是地球人”,“地球”，“中国”）[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

我设定的RadioButton值为固定值1234，当初想通过一个Button获取TextBox内输出的2345将RadioButton的固定值替换为2345。求大佬们帮帮忙，我是小萌新，有很多不会须要求教学习的中央也托付大佬们不要吐槽。[url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

Visual Basic code?1救救孩子 Visual Basic code? 1 <img src=`"https://g.csdnimg.cn/static/face/qq/9.gif" alt="">救救孩子`[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

EXCEL工作表”这个变量内的资源，将内存还给零碎（这里有个误区就是第一次运行第二次异样，很多敌人都说是这几个命令没有造成的，其实关系不大，这个命令只是把咱们定义的这个变量所占用的内存空间还给空间，就如同定义个变量用完了不必了的时候把变量内容开释了） Set EXCEL工作簿 = Nothing '开释 “EXCEL工作簿”这个变量内的资源Set EXCEL过程 = Nothing '开释 “EXCEL过程”这个变量内的资源[url]https://www.douban.com/doulist/136142566/[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

EXCEL工作表.Range("A1").Font.Size = 22 '设置A1单元格字体大小（这些设置能够通过录制VBA来获得，不一一列出） EXCEL工作簿 .Save '保留工作表EXCEL工作表.PageSetup.Zoom = False '勾销缩放EXCEL工作表.PageSetup.FitToPagesWide = 1 '一页宽EXCEL工作表.PageSetup.FitToPagesTall = 1 '一页高，如果不须要一页高则=0EXCEL对象.ActiveWorkbook.PrintOut '打印整个工作簿一份，还有其余函数，篇幅太大可自行百度，能够管制打印EXCEL工作簿.Close False '敞开当前工作簿，（False 不保留退出 这个是对应下面 EXCEL过程.DisplayAlerts = False '屏蔽弹出对话框 这个命令，因为弹出对话框曾经被屏蔽了，这个时候如果表格有改变而咱们没对表格执行SAVE命令的话会疏忽更改并敞开表格，在CLOSE这个地位管制False或者True来告诉程序退出前是否保留）[url]https://book.douban.com/doulist/136142503/[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

EXCEL工作表.Rows("1:3").Delete Shift:=xlUp 删除第1到3行，填补模式Shift:=xlUp 为下方记录上移 EXCEL工作表.Columns("2:4").Delete Shift:=xlToLeft 删除第2列到第4列 Shift:=xlToLeft 为右方列像左侧填补EXCEL工作表.Range("A1:B3").Merge '将单元格A1至B3合并EXCEL工作表.UsedRange.Columns.Count 返回无效列数，具体解释同下EXCEL工作表.UsedRange.Rows.Count 这个命令会返回以后表的无效行数，也就是说咱们想晓得这个表一共被[url]https://www.douban.com/doulist/136142445/[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

Set EXCEL工作表 = EXCEL工作簿.Worksheets(1) '将第一张表设置流动工作表（以后操作表）或者 Set EXCEL工作表 = EXCEL工作簿.Worksheets(“sheet1”)'将名称为sheet1的表设置流动工作表（以后操作表） a=EXCEL工作表.Range("A3")'取"A3单元格的值赋值给变量aEXCEL工作表.Range("A3")="123ABC"'将"A3单元格的值变成123ABC 特地须要留神的是EXCEL工作表.Range("A3")="123ABC" 不能写成 Range("A3")="123ABC" 因为如果这样写在EXCEL过程空间被革除后再次执行的时候会提醒谬误（这个就是网络上问的最多的问题：为什么EXCEL第一次运行没故障，第二次运行就报错！！！因为过程完结后内存空间开释了，然而在程序整体完结前援用空间并不会开释，这个时候如果不强行指定你要操作的前缀，也就是必须要通知程序，你要拜访的是哪个工作簿的单元格，则程序会拜访默认的援用单元格，也就是说第一次关上时候的那个文件的单元格，所以会报近程服务器不可用（因为那个文件曾经敞开了）或者报单元格谬误（因为敞开了，单元格天然也就不存在了））[url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url]

Set EXCEL工作表 = EXCEL工作簿.Worksheets(1) '将第一张表设置流动工作表（以后操作表）或者 Set EXCEL工作表 = EXCEL工作簿.Worksheets(“sheet1”)'将名称为sheet1的表设置流动工作表（以后操作表） a=EXCEL工作表.Range("A3")'取"A3单元格的值赋值给变量aEXCEL工作表.Range("A3")="123ABC"'将"A3单元格的值变成123ABC 特地须要留神的是EXCEL工作表.Range("A3")="123ABC" 不能写成 Range("A3")="123ABC" 因为如果这样写在EXCEL过程空间被革除后再次执行的时候会提醒谬误（这个就是网络上问的最多的问题：为什么EXCEL第一次运行没故障，第二次运行就报错！！！因为过程完结后内存空间开释了，然而在程序整体完结前援用空间并不会开释，这个时候如果不强行指定你要操作的前缀，也就是必须要通知程序，你要拜访的是哪个工作簿的单元格，则程序会拜访默认的援用单元格，也就是说第一次关上时候的那个文件的单元格，所以会报近程服务器不可用（因为那个文件曾经敞开了）或者报单元格谬误（因为敞开了，单元格天然也就不存在了））[url]https://www.douban.com/doulist/136142347/[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url][url]https://book.douban.com/douli...[/url][url]https://movie.douban.com/doul...[/url][url]https://www.douban.com/doulis...[/url][url]https://m.douban.com/doulist/...[/url]

SZ001965代码.txt 里只有下面一行 'sdata里所下的数据不残缺， 谬误是sdata只下载了网页的局部内容怎么样能力下载残缺的网页??????????????????????????? 以下是我的VB6代码Option ExplicitPrivate Sub Command1_Click()Rem ===========================================================================================' Open "error.txt" For Output As #10' Print #10, sdata' Close #10' nflag = nflag + 0 Dim nflag As LongDim nlable As Long '数字 601009Dim tlable As StringDim clable As StringDim wlable As StringDim plable As String 'SH SZ+601009+TABDim mlable As String '字符串601009Dim slable As String '字符串601009Dim stlable As String '原一行股票代码SH601009Dim sdata As String '网页源代码Dim sofdata As String '最终输入文件sofdata = "gahxqj.txt" '下载寄存文件名Dim siflable As String '读入代码文件'siflable = "E:\巨潮文本与二进制\A股代码索引表.txt"siflable = "代码.txt"Open siflable For Input As #1Open sofdata For Output As #2Rem =========================================================================================== ...

最近对RPA（机械化流程自动化）概念颇感兴趣，所以对RPA软件UiPath做了一番学习研究。RPA能实现不同软件窗口的自动化操作，那让我首先感到好奇的就是它是如何准确的表示一个窗口以及每个元素的。下面是我的学习记录。1.Selector.UiPath中表示元素定位的叫做Selector选择器，并且提供了一个类似网页浏览器调试器中选取元素同样所见即所得方式的UiExplorer，Selector实际上就是一些XML标签，从上到下、由前到后表示所定位元素的结构。标签内的属性用于区分元素特征。一般表现形式如下：#中文新打开的记事本<wnd app=‘notepad.exe’ cls=‘Notepad’ title=‘无标题 - 记事本’ /><wnd ctrlid=‘137’ />个人总结来看，<wnd>标签表示窗体和控件元素，唯一确定一个窗体通常只需要app、cls、title三个属性就可以了。具体到控件通过ctrlid属性来区分。一般的操作方式是，打开程序界面，用UiExplorer的Indicate Element点击程序，Selector Editor框内会显示选择器的详细信息，下方会有用于实际自动化操作的选择器XML表示方式。Property Explorer面板会显示该窗体或元素所有的属性信息。

作为一个程序员，在学习或工作的过程中要长时间地面对电脑，经常会出现忘记休息或喝水的时候，有时候一坐就是好几个小时。这对于身体健康是非常不利的，我以前也不是很在意，一般就是口渴了才喝水。直到最近这几天感觉到喉咙有点不舒服，可能是发炎了，我才意识到这是身体内部发出的抗议信号。实际上，当你感觉到口渴的时候，你的身体其实是非常缺水了。所以，我们应该有规律地喝水，一般隔段时间就喝下。闹钟 or 倒计时可是对于很多人来说，要大脑自动条件反射来喝水是很难实现的。因此我们要通过外部手段来提醒我们。提醒的方式有很多，比如设置几个闹钟，或者是倒计时。可惜这种利用手机的方式也存在一个弊端，有时候太专注于工作而没有时间看手机的话，那么闹钟和倒计时也无效了。利用脚本写提醒工具因此，为了更好地解决上面的问题，我们可以从本质出发，一般来说，程序员一天工作时面对电脑的时间较多，那么我们可以在电脑上面写一个定时任务。我的做法是在Windows系统上面写VBScript脚本，每隔一段时间就弹窗，提醒我喝水。具体实现本文主要介绍怎么在Windows系统下用VBScript写一个简易的定时任务弹窗。如果是Macbook，可以用AppleScript，Linux系统可以用Shell。什么是VBScriptVBScript是微软开发的一门脚本语言，使用VBScript，可以在Windows系统下编写自动任务等等。VBScript文件以.vbs为后缀，Windows系统下可以直接双击运行，代码由C:\Windows\System32下面的wscript.exe负责解释执行。VBScript教程我在写这个弹窗小工具之前，没有系统学习过VBScript，现学现用，只是粗略学习了一下，如果想系统了解的，可以看一下菜鸟教程。用到的VBScript知识这个小工具其实很简单，核心就几行代码，类似网页中的setInterval，然后时间一到就alert。下面具体介绍代码中用到的VBScript知识。Dim variableName: 定义变量Do … Loop: 循环，类似do … while(true)If … Then … Else … End If: 条件结构InputBox: 类似网页中的window.propmtMsgBox: 类似网页中的window.alert详细代码以下贴出该工具的全部代码。Dim intervalDim ret’ set task’s intervalDo interval = InputBox(“Please input the interval:”, “Interval(seconds)”, 30 * 60 * 1000) If interval = vbEmpty Then ’ click cancel MsgBox “You input empty, interval is set default half an hour.” interval = 1800000 Exit Do End If If Not IsNumeric(interval) Then ’ input what is’t a numeric MsgBox “Please input number” Else Exit Do End IfLoop’ execute interval taskDo ret = MsgBox(“Drink some water”, vbOKCancel, “Time up”) If ret = 1 Then Wscript.sleep interval Else MsgBox “Close notification”, vbOkOnly, “Close notification” Exit Do End IfLoop总结有时候发现编程能够用在平常的生活中，还是挺有趣的。最后附上项目的Github地址，欢迎Star或Fork支持，谢谢。 ...