记录我的生活

【名称】
InStr
【类别】
字符串函数
【原形】
InStr([start, ]string1, string2[, compare])
【参数】
InStr 函数的语法具有下面的参数：
部分
说明
start
可选参数。为数值表达式，设置每次搜索的起点。如果省略，将从第一个字符的位置开始。如果

1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X)
取出X“年”部分的数值
P=Month(X)
取出X“月”部分的数值
P=Day(X)
取出X“日”部分的数值
[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#

2. Hour，Minute，

现在很多网站和论坛的注册都需要往用户的邮箱中发送一份验证邮件，点击邮件中的激活链接才能成功注册。但往往又不希望暴露的真实Email，因为这将招致更多垃圾邮件的攻击。怎么办？赶紧来试试这个10分钟自毁邮箱。点击进入10minutemail.com。

点击该网站的“Get my 10 Minute Mail e-mail address”链接后，你就会

不经意间发现VB强行聊Q器代码还可以更简化一些，嘿嘿，我们先来看
看黑吧做的聊Q器的代码
和QQ聊的代码
Private Sub Command1_Click()
WebBrowser1.Navigate “Tencent://Message/?Menu=YES&Exe=&Uin=” & Text1.Text ‘
WebBrowser1.Stop ‘
End

vbCrLf表示 Chr(13) + Chr(10) 回车符与换行符结合
vbCr表示 Chr(13) 回车符
vbLf表示 Chr(10) 换行符。

Dim DataString As String

Private Sub Command1_Click()
On Error Resume Next
If Text1.Text = “” Then
Msg = “第一个文本框内不能为空”
Exit Sub
Else
Clipboard.Clear
‘SetText方法，用于复制文本到剪贴板上
‘使用语法