vb 镜像处理 Dim c As Long, x As Integer, y As Integer Private Sub command1_Click() Picture2.Cls For i = 0 To Picture1.ScaleWidth - 1 For j = 0 To Picture1.ScaleHeight - 1 c = Picture1.Point(i, j) x = i y = Picture1.ScaleHeight - j Picture2.PSet (x, y),
Option Explicit '函数声明 Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, _ ByVal Y As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, _ ByVal hRgn As Long, ByVal bRedraw As Boolea
下面的代码可以实现，vb窗口最大化的时候，里面的控件一起变化 Option Explicit Private InitWidth As Long ' Form 的原始大小 Private InitHeight As Long Private Sub Form_Load() InitWidth = ScaleWidth InitHeight = ScaleHeight Dim Ctl As Control ' 记录每个 Control 的原始位置、大小、字型大小, 放在 Tag 属性中 On E
