首页    新闻    群组    交易    人才    下载    博客    代码贴    论坛
代码贴随便看看Aspx-VB
Private Sub Form 1_Load()
Print "New balance,New Life "
End Sub
阅读全部 | HUNTER_SHJ 贴于 2018-08-21 09:39:06
Private Sub Form 1_Load()
Print "New balance,New Life "
End Sub
阅读全部 | Engoolgn 贴于 2018-07-25 21:08:58
private sub commandl_click()
a=0
b=0
for i=1 To5
a=a+1
b=b+2
for j=1 To5
a=a+2
b=b+1
next j
next i
print a;b
......................
阅读全部 | 地井盖 贴于 2017-06-21 16:17:14
Private Sub Command1_Click()
Dim Pd, r0, r1, Hz, Zb, Tb, Tt, Vg, i, r, Va, Zt, PLo, Q, Vd, Te, Po, t1, t2, t, H1, H2, Rzw, Rzn, Rsn, Rjn, rg, Dz, Ds, Dj, Pp, Pm, Pg, Hg, Hgt, Pati As Single
Pd = Val(Form1.Text1.Text)
r0 = Val(Form1.Text2.Text)
Hz = Val(Form1.Text4.Text)
Zb = Val(Form1.Text5.Text)
Tb = Val(Form1.Text6.Text)
Tt = Val(Form1.Text7.Text)
Vg = Val(Form1.Text8.Text)
Zt = Val(Form1.Text10.Text)
PLo = Val(Form1.Text11.Text)
Q = Val(Form1.Text12.Text)
......................
阅读全部 | dukaidihhh 贴于 2017-05-24 02:09:14
Shell "",vbNormalFocus
阅读全部 | GYZ0737 贴于 2016-08-05 14:02:47
Private sub Menu1_click()  
    Form1.show  
    Form1.zorder 0  
End sub
阅读全部 | GYZ0737 贴于 2015-09-26 14:04:37
Private Sub Command1_Click()
    Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")
    ie.Visible = True
    ie.Navigate "http://"
End Sub
阅读全部 | GYZ0737 贴于 2015-09-26 13:58:19
Dim f As Double
Dim f1 As Double
Dim f2 As Long
Dim e1 As Double
Dim j As Double
Dim sql2 As String
sql2 = "select * from  集中载荷表 where 车型='" & Trim(Combo1.Text) & "'"
rs_find2.CursorLocation = adUseClient
rs_find2.Open sql2, conn, adOpenKeyset, adLockPessimistic
f = Val(Text1.Text)
rs_find2.MoveFirst
Do While Not rs_find2.EOF
......................
阅读全部 | 狂飙的蜗牛1 贴于 2015-05-19 11:52:50
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/connss.asp" -->
<!--#include file="include/global.asp" -->
<!--#include file="check.asp" -->
<%
if Right_Limit(47)<>1 then
response.Write "<script language=javascript>alert('对不起,你没有权限!');location.href='javascript:history.go(-1)'</script>"
end if

ty         = request("ty")
s1         = Request("s1")
s2         = Request("s2")
......................
阅读全部 | 梁加加 贴于 2014-06-10 17:46:35
Option Explicit
'Line3 表示时针
'Line1(1) 表示分针(长度960)
'Line2 表示秒针(长度1200)
'Timer 定时器周期1s
'Label2 标签显示当前系统时间
Dim xx1 As Integer '表盘圆心坐标
Dim yy1 As Integer
Dim MyTime, MyHour, MyMinute, MySecond As Integer '定义当前时间,时,分,秒
Dim S_ang, M_ang, H_ang As Single '定义角度变量
Dim S_rad, M_rad, H_rad As Single '定义弧度变量
Dim S_Length, M_Length, H_Length As Integer '定义表针长度变量
......................
阅读全部 | 水到渠成VB 贴于 2014-02-10 14:56:09
1 2 下一页