家庭erp軟件分析與設(shè)計(jì)-資料下載頁(yè)
2025-06-22 13:58本頁(yè)面
【正文】 installed. Can39。t continue., _vbCritical, Fatal ErrorEndEnd IfEnd SubPrivate Sub Form_Load()Dim prn As Printer39。39。 Fill bo box with available printers, and39。 select default printer.39。For Each prn In Printers amp。 on amp。 Next prn39。39。 Select default printer.39。SelectDefaultPrinter Combo139。39。 Size and position form。 clear textbox.39。With Me.Width = + * 2 + _(.Width ).Height = + + + _(.Height .ScaleHeight).Move ( .Width) \ 2, _( .Height) \ 2End WithtxtFile = End Sub家庭上網(wǎng)模塊代碼Sub Navigate_Text() 39。Automatically loads the URLs in the textbox39。so the page can directly load up as a default39。setting.End SubPrivate Sub cmdBack_Click()39。This event finds the last page loaded in the39。history file and loads it into the WebBrowser.39。Sample Code provided by: Petroutsos39。Sybex Mastering Vb6On Error GoTo NoBackExit SubNoBack:MsgBox There is no Page to go back to!End SubPrivate Sub cmdBack2_Click()39。This event finds the last page loaded in the history39。file and loads it into the second WebBrowser.On Error GoTo NoBackTwoExit SubNoBackTwo:MsgBox There is no Page to go back to!End SubPrivate Sub cmdForward_Click()39。This event takes the first Web Browser to the39。previously loaded page after one has pressed the39。first back button.On Error GoTo NoForwardExit SubNoForward:MsgBox There are no files to load here!End SubPrivate Sub cmdForward2_Click()39。This event takes the first WebBrowser to the39。previously loaded page after one has pressed39。the second back button.On Error GoTo NoForwardTwoExit SubNoForwardTwo:MsgBox There are no files to load here!End SubPrivate Sub cmdHome_Click()39。This event takes the first WebBrowser to the39。Home Url set in Microsoft IE.End SubPrivate Sub cmdHome2_Click()39。This event takes the second WebBrowser to the39。Home Url set in Microsoft IE.End SubPrivate Sub cmdNavigateOne_Click()39。This event Takes the web Browser(1) to the39。URL Entered into the first text box. End SubPrivate Sub cmdNavigateTwo_Click()39。This event Takes the web Browser(2) to the URL39。entered into the second text box. End SubPrivate Sub cmdRefresh_Click()39。This event Refresh WebBrowser1.End SubPrivate Sub cmdRefresh2_Click()39。This event Refreshes WebBrowser2.End SubPrivate Sub cmdSearch_Click()39。This event Loads the specified search page into39。WebBrowser1.On Error GoTo NoSearchExit SubNoSearch:MsgBox There is no search page to loadEnd SubPrivate Sub cmdSearch2_Click()39。This event Loads the specified search page into39。WebBrowser2.On Error GoTo NoSearchTwoExit SubNoSearchTwo:MsgBox There is no search page to loadEnd SubPrivate Sub cmdStop_Click()39。This event Stops WebBrowser1 from39。loading any more of the HTML document.End SubPrivate Sub cmdStop2_Click()39。This event Stops WebBrowser2 from loading any39。more of the HTML document.End SubPrivate Sub Form_Load()39。Centers the form in the screen by determining39。the user39。s screen and video card resolution.39。Greg Perry Sams Teach Yourself VB6 in 24 hrs. = ( ) / 2 = ( ) / 2Navigate_TextEnd SubPrivate Sub mnuExit_Click()39。Closes and ends the program.Unload MeEnd SubPrivate Sub txtAddress1_DblClick()39。When you double click the Text box,39。it clears the text. = End SubPrivate Sub txtAddress2_DblClick()39。When you double click the Text box, it clears39。the text. = End Sub
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1