webbrowser.bas

利用RS232做通訊 可以執行自動功能 謝謝大家使用

Attribute VB_Name = "modBrowser"
Public fMainForm As frmReader




Function resizeBrowser(theForm As Form)
 If theForm.Width > 3000 And theForm.Height > 3000 Then
    
    theForm.toolBar.Width = theForm.Width
 
    theForm.picBox.Width = theForm.Width - 100
    theForm.picBox.Height = theForm.Height - 2270

    theForm.webBrowser.Width = theForm.picBox.Width
    theForm.webBrowser.Height = theForm.picBox.Height
 
    theForm.cmbURL.Width = theForm.Width - 1080
 
    For Index = 0 To 5
        theForm.browserLine(Index).X2 = theForm.Width
    Next
 End If
End Function