一个实现图像的旋转效果实例,由VB6.0编写,前几年的源码,本程序实现图片的逆时针旋转90度,单击窗口中的按钮即可实现旋转功能,这部分代码,可参考如下代码:
逆时针旋转90度
Private Sub Command2_Click()
For j = 0 To h Step 1
For i = 0 To w Step 1
BitBlt Picture2.hDC, i, j, 1, 1, Me.Picture1.hDC, j, i, srCopy
Next i
Next j
End Sub
VB6.0制作的界面挺花哨的七星彩摇奖机,类似于电视节目中的摇奖画面,开始摇奖后,一串数字开始转动,变化很快,停止来的一串数字就是中奖号码了,可用于举办活动时的抽奖程序,关于程序的实现,可参考以下核心部分的代码:
Dim i As Integer
Randomize '初始化随机数产生器
For i = 0 To Lbl_LuckyNum.UBound
Lbl_LuckyNum(i).Caption = Int(Rnd * 10 0) ' Lbl_LuckyNum(i)中显示产生的一个0-10的随机数
Next i
完整代码请下载本源码哦。