1
这个要写全局键盘钩子,vb做不来(或者说很困难),用vc写简单的多
2
这个简单,用无标题窗口,先截取屏幕,然后用SetWindowPos置顶就行,相关的例子搜索下就行了,不写了。
第2个会
首先form1
跟屏幕保护程序的
设置一样,
然后用个用个窗体总在前
的那个API
再用个
透明
API
把form1透明处理.
Private Sub Form_Load()
Dim x As Double, i%, sum As Double
x = 1: i = 1: sum = 0
Do Until x < 1 / 10 ^ 4
sum = sum + x
x = 1 / (1 / x + i)
i = i + 1
Loop
Me.Caption = sum
End Sub
呵呵,只喜欢做最后一个,因为其它的都做过太多次..
For i = 1 To 10
Print Tab(11 - i); String(i * 2 - 1, StrReverse(i))
Next