Advertisement
jsbsan

principalExtraer

Jan 1st, 2014
813
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.42 KB | None | 0 0
  1. ' Gambas class file
  2. Public Sub Form_Open()
  3.  
  4.   Editor1.Highlight = Highlight.JavaScript
  5.   Editor1.ReadOnly = True
  6.  
  7. End
  8. Public Sub ButtonEXTRAER_Click()
  9.  
  10.   Editor1.Text = usandoComandoWget(TextBoxURL.text)
  11.  
  12. End
  13.  
  14. Public Sub ButtonEXTRAER2_Click()
  15.  
  16.   Editor1.Text = usandoHttpClient(TextBoxURL.Text)
  17.  
  18. End
  19.  
  20. Public Sub Form_Resize()
  21.  
  22.   Editor1.w = Me.W - 10
  23.   Editor1.h = Me.h - Editor1.y - 20
  24.  
  25. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement