VB六个数取最大值和平均数的平方
VERSION 5.00
Begin VB.Form Form2
AutoRedraw = -1 'True
Caption = "计算界面"
ClientHeight = 4905
ClientLeft = 4965
ClientTop = 3630
ClientWidth = 5715
LinkTopic = "Form2"
ScaleHeight = 4905
ScaleWidth = 5715
Begin VB.CommandButton Command1
Caption = "计算"
Height = 495
Left = 2520
TabIndex = 11
Top = 240
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "清空"
Height = 495
Left = 4320
TabIndex = 12
Top&
相关文档：
VB 字符串处理函数集
收藏
mid(字符串，从第几个开始，长度)
在[字符串]中[从第几个开始]取出[长度个字符串]
例如 mid("小欣无敌",1,3) 则返回 "小欣无"
instr(从第几个开始,字符串1,字符串2)
从规定的位置开始查找 ......
Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Const HTCAPTION = 2
Const WM_NCLBUTTONDOWN = &HA1
Pri ......
VB编写托盘图标有两个要点，一是使用 Shell_NotifyIcon 函数显示图标；二是向系统注册 TaskbarCreated 消息，以便explorer崩溃时恢复托盘的图标。
首先需要增加一个模块文件，内容如下：
Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOT ......
http://tieba.baidu.com/f?kz=580219489
http://www.anqn.com/vb/154/8974.shtml
http://www.codefans.net/soft/5089.shtml
http://www.mndsoft.com/blog/article.asp?id=1121
http://topic.csdn.net/t/20020113/14/474848.html
直接运行网页中的JavaScript：
function alllefttab()
WebBrowser1.Document.par ......
Dim wdapp As Word.Application
Dim wddoc As Word.Document
Dim wdtable As Word.Table
Set wdapp = CreateObject("word.application")
Set wddoc = wdapp.Documents.Add
......
