对于将来的时间进行提醒,打开软件自动提醒30天内如果借书到期则提示"近期有书到期",如何实现,万分感谢
顶老虎。补充一点，把1楼的代码放到你的程序的主窗体的Form_Load事件过程里即可。
将借书时间录入数据库,启动时遍历数据库,将每一个借书时间和系统日期相比较.该提示者就提示.
if date>=到期� ......
我写一个VB倒计时的程序，想在最好10秒时有一个人的声音读秒，请问各位VB达人，应该怎么做啊。
下面是倒计时的一段代码
Private Sub Timer2_Timer()
qd = qd - 1
m = Int(qd / 10) - Int(qd / 600) * 60
f = Int(qd / 600)
nr = Str(f) & "分" & Str(m) & "秒"
L ......
Private Sub Command1_Click()
Dim name_user
Dim password_user
If Text1.Text = "" Then
MsgBox "请输入用户名!"
Exit Sub
Else
name_user = Trim(Text1.Text)
End If
If Text2.Text = "" ......
Private Sub MSComm1_OnComm()
Static num As Integer
Dim Buffer As Variant
Dim Arr() As Byte
receive_cnt = MSComm1.InBufferCount '接收缓冲区的字节数
Buffer = MSComm1.Input
Arr = Buffer
indate = Val(Arr(0)) '收到的二进制数转换成十进制数
If num = 0 Then
Text2.Te ......
VB code:
Function passEncode(byval strPass,byval strKey)
Dim priI,passLen,keyLen,numPos,chrT,aryPass()
passLen=Len(strPass)
keyLen=Len(strKey)
ReDim aryPass(passLen-1)
for priI=1 to passLen
aryPass(priI-1)=Mid(strPass,priI,1)
next
for priI=1 to passLen - ......
using System;
namespace HelloWorld
{
class myClass {
static void Main(string[] args) {
string[] arr = new string [] { "aa","bb","cc"};
......
最新文章 : vb