新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub 自适应() On Error Resume Next DoCmd.Maximize W = Form.WindowWidth H = Form.WindowHeight X = 31679 W1 = IIf(W < 0 Or W > X, X, W) H1 = IIf(H < 0 Or H > X, X, H) 子1.Width = 1 子1.Left = 1 子1.Width = W1 - 宽度 - 360 子1.Height = H1 - 1200 子1.Left = 宽度 + 180 If W < 0 Or H < 0 Then 提示.Visible = True: 提示.Caption = IIf(W < 0, "【宽度】", "") & IIf(H < 0, "【高度】", "") & "超过 22 英寸 ！" Else 提示.Visible = False End If End Sub Private Sub Form_Load() 自适应 End Sub Private Sub Form_Activate() 自适应 End Sub Private Sub Form_Resize() 自适应 End Sub 返回 保存