vb 入门容易但精通很难 （我就懒得发图的 网络不行）

http://msdn.microsoft.com
更不动了自己去这个网站上看吧 直接在这里敲代码乃们绝对看不懂

赞一个。不过我没学过。

我感觉要跪。。。

常量，变量，函数，程序设计语言必须用到的

一般情况下，程序有顺序，循环，条件3大结构说了等于没说

dim r as long
Private Sub Form_Load()r = Shell("explorer.exe http://www.baidu.com", 1)EndEnd Sub
这是用IE浏览器打开http://www.baidu.com也可以用shell函数打开计算机中的**.bat **.exe等可执行文件。方法一样。" "引号内填写文件路径。可以参考 http://msdn.microsoft.com/zh-cn/library/xe736fyk.aspx

for i =1 to m step -1
t=a（n-1）
a（n-1）=a（n）
a(n)=t
n=n-i
next
@我不懂也不问

Option Explicit
'*****************************************透明窗体的API
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cX As Long, ByVal cY As Long, ByVal wFlags As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Const WS_EX_LAYERED = &H80000
Const GWL_EXSTYLE = (-20)
Const LWA_ALPHA = &H2
Const LWA_COLORKEY = &H1
'********************************************************************
Dim rtn&, transcolor&
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
ranscolor = &HFF0000
Me.BorderStyle = 0: Me.Caption = "": Me.BackColor = transcolor
Me.Move (Screen.Width - Me.Width) , (Screen.Height - Me.Height)
rtn = GetWindowLong(hwnd, GWL_EXSTYLE)
rtn = rtn Or WS_EX_LAYERED
SetWindowLong hwnd, GWL_EXSTYLE, rtn SetLayeredWindowAttributes hwnd, transcolor, 255, LWA_COLORKEY Or LWA_ALPHA '将扣去窗口中的蓝色背景
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set Form1 = Nothing
End
End Sub
Private Sub Label1_dblClick()
End
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Date & "-" & Time
End Sub
@一蓑烟雨柒落
透明时钟 vb代码

@一蓑烟雨柒落

完全看不懂，下次看到有人问这个我就@你了，
————有没有谁想成为heryance　 hisyance在等着你呢，

给俺们代码俺们看不懂啊。。。。
　　　　------我爱OY，生命不息，画画不止