发信人: msnet()
整理人: cobe(1999-12-17 12:42:54), 站内信件
|
vb邮件
========================================================
5000美金等着你，快抢在5月31日前登录
http://www.targetshop.com/users/level1.asp?refId=117759
这是一家新成立的公司,你只需通过上面这个地址即可成为其会员,
这样你就可介绍你的朋友们加入,每介绍一个人,他们将付你12.5美
金,你没有看错,我也没有写错,但只限于前300万名会员,且最多只
能获得1000美金,且截止到5月31日前，前300名的会员,将
得到5倍的奖金,即100美金，他们将付给你500美金，1000美金他们
将付你5000美金.注意:注册完后, 你将会收到一个 email,在这个
email的右上角会有一个地址去激活 你的账号,通过这个地址连接
上去后,用登录的用户名登陆进去,才算真正注册成功.
我也怀疑这是不是真的,网上这类骗人的东西很多,但无论怎样这都
是一个机会,我试过很多这类东西,上过当,但也确实收到过钱,你不
试怎么能够辨别真假,难道你想让这样一种机遇从你的眼皮底下溜
走吗,上网的时候顺便注册一下,发几封email给你的朋友,并不会占
用你太多的时间,也不会给你造成多大的损失,最后祈祷我们大家都
有钱拿,谢谢你耐心看完这封信,如果造成你的困扰我深表歉意.
=======================================================
a 在VB6编程中,我想在TEXT 控件中写一段文本后 加 一个回车.
Text1.text = "First" & vbKeyReturn & "Second" 或
Text1.text = "First" & CStr(vbKeyReturn) & "Second"
结果都是:"First13Second"
我又用SendKey("{Return}")去试,根本不是那么回事.
- 请给我指点指点,谢谢.
答：另一方法
下面这个例子可以将文本和标签中加入回车换行：
Option Explicit
'将Text1的Multipline的属性设为True
Private Sub Label1_Click()
Label1.Caption = "Line1" & vbCrLf & "Line2" & vbCrLf & "Line3"
End Sub
Private Sub Text1_click()
Text1.Text = "Line1" & vbCrLf & "Line2" & vbCrLf & "Line3"
End Sub
湖北荆州 冯德平
b 如何创建无Icon的窗体
很简单:
1.将窗体的BorderStyle=3
2.将Me.Icon=LoadPicture("")放入Form_Load()中
c 如何让Ctrl+Alt+Del 组合键无效?
这将涉及到两种情况:
1.按下Ctrl+Alt+Del后,不会调出Windows的结束任务对话框
2.按下Ctrl+Alt+Del后,会调出Windows的结束任务对话框,但本程序不出现在其中
下面分别说明:
第一种情况:(来自:王国荣)
可调用SystemParametersInfo API 函数,细节如下:
Const SPI_SCREENSAVERRUNNING=97
Private Declare Function SystemParametersInfo Lib "User32" Alias "Syst
emParametersInfoA"(ByVal uAction as Long,ByVal uParam as Long,lpvParam
as any,ByVal fuWinIni as Long) As Long
dim pOld As Boolean
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,pOld,0)
如想将Ctrl+ALt+Del 的功能还原,只需将True换为False
注意:此方案知适用于Windows 9X,NT不适用
第二种情况:(译自vb-world.net)
要想做到这一点,你必须将你的程序注册为一个Service,这将通过把你的应用程序
的Process ID传递给RegisterService API
声明部分:
将一下这些代码复制到模块的声明部分
Public Declare Function GetCurrentProcessId _
Lib "kernel32" () As Long
Public Declare Function GetCurrentProcess _
Lib "kernel32" () As Long
Public Declare Function RegisterServiceProcess _
Lib "kernel32" (ByVal dwProcessID As Long, _
ByVal dwType As Long) As Long
Public Const RSP_SIMPLE_SERVICE = 1
Public Const RSP_UNREGISTER_SERVICE = 0
过程:
调用MakeMeService使你的程序不出现在结束任务对话框中
Public Sub MakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
使你的程序重新出现在结束任务对话框中,调用UnMakeMeService
Public UnMakeMeService()
Dim pid As Long
Dim reserv As Long
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
'End Code
不要忘了在关闭你的程序时调用UnMakeService来注销其Service来释放系统资源
===========================================================
欢迎投稿：[email protected]
===========================================================
请订阅：
http://server.com/WebApps/mail-list-subscribe.cgi?id=16852
--
网站主页地址：http://home.hn.cninfo.net/home/msnet
网易上的主页地址：http://www4.netease.com/~aaaaaaaaa
本网站主页镜像地址：http://goodvbhome.yeah.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.47.190]
|
|