Comment faire ceci comment faire cela ?

Comment faire ceci comment faire cela ? - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2002 à 12:05:46    

Maintenant j'aimerais effectuer une autre operation  
une boite de texte text1
qui vaut 001
Et quand j'appuie sur un bouton contenant  

Code :
  1. Private Sub Command2_Click()
  2. Text1.Text = Text1.Text + 1
  3. End Sub


j'aimerais que text1 soit egale à 002 et non 2 ?  
comment faire c'est important les deux 0  
MErci


Message édité par remixgame le 31-07-2002 à 12:55:18
Reply

Marsh Posté le 31-07-2002 à 12:05:46   

Reply

Marsh Posté le 31-07-2002 à 12:23:40    

c'est une source qui utilse les API windowds, les constantes, ect..
 
1er partie dans 1 module :
 

Code :
  1. Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  2. Public Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sUrl As String, ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
  3. Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
  4. Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
  6. Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
  7. Public Const INTERNET_OPEN_TYPE_DIRECT = 1
  8. Public Const INTERNET_OPEN_TYPE_PROXY = 3
  10. Public Const scUserAgent = "VB OpenUrl"
  11. Public Const INTERNET_FLAG_RELOAD = &H80000000


2ieme partie : la procédure tu la mets à la suite de la 1er partie
 

Code :
  1. Sub Download(URL As String, SaveAs As String)
  3.        Dim hOpen                            As Long
  4.        Dim hOpenUrl                        As Long
  5.        Dim bDoLoop                      As Boolean
  6.        Dim bRet                                As Boolean
  7.        Dim sReadBuffer              As String * 2048
  8.        Dim lNumberOfBytesRead  As Long
  9.        Dim sBuffer                      As String
  11.        hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  12.        hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
  14.        bDoLoop = True
  15.        While bDoLoop
  16.                sReadBuffer = vbNullString
  17.                bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
  18.                sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
  19.                If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
  20.        Wend
  21.        
  22.        Open SaveAs For Binary Access Write As #1
  23.        Put #1, , sBuffer
  24.        Close #1
  25.        
  26.        If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
  27.        If hOpen <> 0 Then InternetCloseHandle (hOpen)
  29. End Sub


 
 
pour finir tu mets ca dans un bouton :
 

Code :
  1. Download([URL que tu veux], [chemin de sauvegarde que tu veux])


 
c'est pas trés compliqué ton code, seulement il faut savoir ce servir des fonction et des API windows... ;)


Message édité par macray le 31-07-2002 à 12:24:06

---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 31-07-2002 à 12:38:43    

C'est quoi un module ? ?
Est ce une dll ?
Expliquez moi merci


Message édité par remixgame le 31-07-2002 à 12:39:59
Reply

Marsh Posté le 31-07-2002 à 12:40:45    

C'est bon j'ai trouve module
je te tiens au courant merci

Reply

Marsh Posté le 31-07-2002 à 12:44:55    

J'ai un probleme  
Syntaxe de mon bouton  

Code :
  1. Private Sub Command1_Click()
  2. Download("http://telecharger.01net.com/images/logo.gif", "c:\logo.gif" )
  3. End Sub


Et il me marque erreur de syntaxe ??
aide moi stp

Reply

Marsh Posté le 31-07-2002 à 12:56:15    

remixgame a écrit a écrit :

J'ai un probleme  
Syntaxe de mon bouton  

Code :
  1. Private Sub Command1_Click()
  2. Download("http://telecharger.01net.com/images/logo.gif", "c:\logo.gif" )
  3. End Sub


Et il me marque erreur de syntaxe ??
aide moi stp




 
mets ca :
 
("http://telecharger.01net.com/images/logo.gif", "c:\" )
 


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Marsh Posté le 31-07-2002 à 12:58:11    

ca marche il fallit mettre call sinon
Maintenant j'aimerais effectuer une autre operation  
une boite de texte text1  
qui vaut 001  
Et quand j'appuie sur un bouton contenant  

Code :
  1. Private Sub Command2_Click()
  2. Text1.Text = Text1.Text + 1
  3. End Sub

 
j'aimerais que text1 soit egale à 002 et non 2 ?  
comment faire c'est important les deux 0  
MErci

Reply

Marsh Posté le 31-07-2002 à 13:55:47    

je ne vais pas tout le temps être présent ! les 0, dans ton cas ne sont pas împortant...car que tu mettes 0000002 ou 2 c'est pareille....!  
 
aprés quant tu commeceras a prendre de la bouteille en programmation tu veras que tu as parfois des 0 devant...seulement c'est dans le cadre de la gestion et des calculs binaires...pour le moment je ne pense pas que tu'y sois... ;)  


---------------
;) Bienvenue sur le site...:)             http://perso.wanadoo.fr/rapport
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed