文章存档

[VB]使用集合元素卸载非当前的所有窗口 或许你觉得卸载窗口很简单，但是窗口如果很多呢。 看看我的代码吧。 Private Sub cmdShow_Click() ‘显示所有的窗口 Form2.Show Form3.Show End Sub   Private Sub cmdUnload_Click() ‘卸载非当前窗口 Dim frm As Form   For Each frm In Forms   If frm.Name <> "Form1" Then Unload frm   Next   End Sub

VB洗牌问题 如果把纸牌以二维数组的形式存储为a（1 to 4，1 to 13），怎样才能实现随机发牌？ 将牌随机发送到一维数组a（1 to 52）里面？ 我的解答，个人感觉已经极限了。不知道还有啥解法没。   Option Explicit   Dim bArr(1 To 13) As Byte   Dim bPoint As Byte ‘write by firendless ‘PromiseForever.Com Private Sub cmdGet_Click() Call GenNums   Dim Cards(1 To 4, 1 To 13)   Dim bType As Byte   For bType = 1 To 4   …

百度知道的一道基础题，算法上面，如果考虑CPU执行时间，可以继续优化。俺做了2种出来，下面是两种算法的实现 第一种有优化和没优化的版本，第二种本身就是优化的，所以就没有啰嗦版本了。 5.12补充了网友的版本，贴在最下面。 VB打印三角形 打印出以下图案： * * * * * * * * * * * * * * * * * * * * * * * * * 如果要优化的话，还可以更快，不过算法就不明晰了。 下面是未优化的版本 Option Explicit Private Sub Form_Load() Me.AutoRedraw = True ‘如果你要在窗体上绘制的话 Const bLine As Byte = 7 ‘输出的行数 Dim bIndex As Byte, bMax As Byte, …

[VBS]Run 路径包含空格的解决方法

VBS不能识别长路径，例如 C:Program Filesabc.exe 需要写成 C:Progra~1abc.exe

如果你觉得上面的规则麻烦的话，那么使用一个小窍门可以曲线救国，继续使用完整的长路径。

只要在路径前后添加 chr(34) 即可
[code lang="vb"]
Dim Wsh

Set Wsh = WScript.CreateObject("W...

ASP/Visual Basic代码

在VBS脚本设计中，如果能使用windows提供的系统对话框，可以简化脚本的使用难度，使脚本人性化许多，很少有人使用，但VBS并非不能实现这样的功能，方法当然还是利用COM对象。   
  
1、SAFRCFileDlg.FileSave对象：属性有：FileName — 指定默…

Option Explicit   Private Declare Function InternetOpen _ Lib "wininet" _ Alias "InternetOpenA" (ByVal sAgent As String, _ ByVal lAccessType As Long, _ ByVal sProxyName As String, _ ByVal sProxyBypass As String, _ ByVal lFlags As Long) As Long   Private Declare Function InternetCloseHandle Lib "wininet" (ByRef hInet As Long) As Long   Private Declare …