vb邮件发送
答案:3 悬赏:0 手机版
解决时间 2021-07-25 13:06
- 提问者网友：树红树绿
- 2021-07-24 13:15
我想要能用的代码，会的发布出来！可以添加附件的！
最佳答案
- 五星知识达人网友：归鹤鸣
- 2021-07-24 14:35
1、设置只读文本框。
有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的
只读呢？首先，我们可以利用标签框（ label ）的只读属性，以标签来代替文本
框以实现只读属性，但也可以用小程序实现真正的文本框的只读。
Sub Text1_KeyPress (keyascii As Integer)
keyascii = 0
End Sub
或者也可以用sendkey方法使文本框失去焦点，如以下程序：
Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
SendKeys "{tab}"
End Sub
2、限定文本框的输入内容和格式。
以下程序可以实现限定文本框只能输入数字：
Sub Text1_KeyPress (keyascii As Integer)
If keyascii < 48 Or keyascii > 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式，可以使用VB的FORMAT函数，也可以使用专业版的
屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式
作精确控制。
3、为TextBox 创建快捷键。
VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序
运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可VB中
为任何具有 caption的属性的控制创建快捷键，这通过caption 属性中在想作为
快捷键的字母前加&号实现。但有一个问题值得注意，而类似文本框这样的控件无
caption 这样的属性，这时可将标签与文本框同时使用。为 lable创建快捷键，
标签 Tabindex 属性设置比文本框小1，又因为label 不能接收按点，焦点会自动
跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
（1） 首先绘制标签，再绘制文本框。或随意绘制各种控制，将标签 Tabin
dex 属性设置比文本框小1
（2） 在标签的caption 属性中使用“&”号设定快捷键
这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就
会跳至文本框上。
4、在设计时实现文本框换行。
对于文本框，在设计时properties 窗口不能输入换行符，但可以再程序执行
时用代码来换行，即使用 ASCII字符的13和10，如下列小程序就可将两行文本放
入文本框：
Sub form_load( )
NL=chr(13)+chr(10)
text1.text=“my name is ”& NL & “ liu qiang”
End sub
5、创建口令文本框。
创建口令文本框可用设置属性的方法，也可以通过调用WINDOWS的API应用函
数接口来实现。首先，文本框的属性 Passwordchar和maxlength 可用来设置口令
框。其中 Passwordchar 指定文本框显示的字符，如指定“*”，则在文本框内显
示“*”，Maxlength确定文本框中能输入几个字符。超过Maxlength以后，文本框
发出警告声，不能接收更多的字符。若使用WINDOWS应用函数接口，可用GetWind
owLong、SetWindowsLong和SendMessage等接口函数来实现，有兴趣的读者可查阅
Windows API函数手册或VB的联机帮助文件，这里就不一一赘述了。
b Visual Basic调用Windows API函数的应用举例
【 摘 要】
本 文 介 绍 了 利 用Visual Basic 调 用 Windows API 函 数 的 方
法， 并 通 过 举 例 介 绍 部 分
API 函 数 的 功 能 。 例 如：VB 程 序 私 有 初 始 化 参 数 的 存
取， 及 当 前 系 统 信 息 的 检 测。
【 关 键 字】
Windows Microsoft( 微 软) 公 司 的 视 窗 系 统。
Visual Basic(VB) Microsoft( 微 软) 公 司 的 可 视 化 编 程 工 具
。
API(Application Program Interface) 应 用 程 序 接 口。
初 始 化 文 件（ 例 如：DEMO.INI）
【 正 文 】
一、 利 用VB 调 用API 函 数 的 方 法。
(1) 用Declare 语 句 申 明 所 要 调 用 的API 函 数， 若 该 函 数
务 返 回 值， 可 申 明 为Sub 过 程； 若 有 返 回 值， 则 可 申 明 为F
unction 函 数。
注： 所 有 的API 函 数 的 申 明 都 在 .\VB\WINAPI\WIN31API.HLP
中， 只 需 用Copy 和 Paste 的 方 法 即 可 放 到 相 应 的 地 方。
(2) 一 旦 申 明 了 某 一 个API 函 数 后， 就 可 以 象 调 用VB 的
函 数 一 样。 但 需 注 意， 如 果 参 数 传 递 不 对， 可 能 会 导 致
死 机。
有些时候在窗口显示一段信息，但又不希望用户去改变它，怎样实现文本的
只读呢？首先，我们可以利用标签框（ label ）的只读属性，以标签来代替文本
框以实现只读属性，但也可以用小程序实现真正的文本框的只读。
Sub Text1_KeyPress (keyascii As Integer)
keyascii = 0
End Sub
或者也可以用sendkey方法使文本框失去焦点，如以下程序：
Sub Text1_KeyDown (KeyCode As Integer, Shift As Integer)
SendKeys "{tab}"
End Sub
2、限定文本框的输入内容和格式。
以下程序可以实现限定文本框只能输入数字：
Sub Text1_KeyPress (keyascii As Integer)
If keyascii < 48 Or keyascii > 57 Then
Beep
Beep
johny@nease.net
keyascii = 0
End If
End Sub
若想限定文本框输入格式，可以使用VB的FORMAT函数，也可以使用专业版的
屏蔽控件(Masked Edit)，通过设定屏蔽控件的Mask属性可以对文本框的输入格式
作精确控制。
3、为TextBox 创建快捷键。
VB规定，添加在窗体上的控件均在其Tabindex 属性中记载其加载顺序，程序
运行时焦点按Tabindex 属性规定的顺序在控件间跳转。而为了简化操作，可VB中
为任何具有 caption的属性的控制创建快捷键，这通过caption 属性中在想作为
快捷键的字母前加&号实现。但有一个问题值得注意，而类似文本框这样的控件无
caption 这样的属性，这时可将标签与文本框同时使用。为 lable创建快捷键，
标签 Tabindex 属性设置比文本框小1，又因为label 不能接收按点，焦点会自动
跳至文本框。这相当于为文本框创建了快捷键。具体步骤如下：
（1） 首先绘制标签，再绘制文本框。或随意绘制各种控制，将标签 Tabin
dex 属性设置比文本框小1
（2） 在标签的caption 属性中使用“&”号设定快捷键
这样就相当于为文本框设定了快捷键，当你按下标签框的快捷键时，焦点就
会跳至文本框上。
4、在设计时实现文本框换行。
对于文本框，在设计时properties 窗口不能输入换行符，但可以再程序执行
时用代码来换行，即使用 ASCII字符的13和10，如下列小程序就可将两行文本放
入文本框：
Sub form_load( )
NL=chr(13)+chr(10)
text1.text=“my name is ”& NL & “ liu qiang”
End sub
5、创建口令文本框。
创建口令文本框可用设置属性的方法，也可以通过调用WINDOWS的API应用函
数接口来实现。首先，文本框的属性 Passwordchar和maxlength 可用来设置口令
框。其中 Passwordchar 指定文本框显示的字符，如指定“*”，则在文本框内显
示“*”，Maxlength确定文本框中能输入几个字符。超过Maxlength以后，文本框
发出警告声，不能接收更多的字符。若使用WINDOWS应用函数接口，可用GetWind
owLong、SetWindowsLong和SendMessage等接口函数来实现，有兴趣的读者可查阅
Windows API函数手册或VB的联机帮助文件，这里就不一一赘述了。
b Visual Basic调用Windows API函数的应用举例
【 摘 要】
本 文 介 绍 了 利 用Visual Basic 调 用 Windows API 函 数 的 方
法， 并 通 过 举 例 介 绍 部 分
API 函 数 的 功 能 。 例 如：VB 程 序 私 有 初 始 化 参 数 的 存
取， 及 当 前 系 统 信 息 的 检 测。
【 关 键 字】
Windows Microsoft( 微 软) 公 司 的 视 窗 系 统。
Visual Basic(VB) Microsoft( 微 软) 公 司 的 可 视 化 编 程 工 具
。
API(Application Program Interface) 应 用 程 序 接 口。
初 始 化 文 件（ 例 如：DEMO.INI）
【 正 文 】
一、 利 用VB 调 用API 函 数 的 方 法。
(1) 用Declare 语 句 申 明 所 要 调 用 的API 函 数， 若 该 函 数
务 返 回 值， 可 申 明 为Sub 过 程； 若 有 返 回 值， 则 可 申 明 为F
unction 函 数。
注： 所 有 的API 函 数 的 申 明 都 在 .\VB\WINAPI\WIN31API.HLP
中， 只 需 用Copy 和 Paste 的 方 法 即 可 放 到 相 应 的 地 方。
(2) 一 旦 申 明 了 某 一 个API 函 数 后， 就 可 以 象 调 用VB 的
函 数 一 样。 但 需 注 意， 如 果 参 数 传 递 不 对， 可 能 会 导 致
死 机。
全部回答
- 1楼网友：拜訪者
- 2021-07-24 16:31
楼上的果然强悍，我没看出和发送邮件有关
一般邮直接的就是调用VB6的MAPI控件，当然你电脑要安装有VB6才行
- 2楼网友：你哪知我潦倒为你
- 2021-07-24 15:23
建议你使用jamil控件，要的话加我，我有控件和使用教程
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯