Comment faire ceci comment faire cela ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment faire ceci comment faire cela ?

remixgame

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

Code :

Private Sub Command2_Click()
Text1.Text = Text1.Text + 1
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

Publicité

macray

c'est une source qui utilse les API windowds, les constantes, ect..

1er partie dans 1 module :

Code :

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
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
Public Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Public Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const scUserAgent = "VB OpenUrl"
Public Const INTERNET_FLAG_RELOAD = &H80000000

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

Code :

Sub Download(URL As String, SaveAs As String)
Dim hOpen As Long
Dim hOpenUrl As Long
Dim bDoLoop As Boolean
Dim bRet As Boolean
Dim sReadBuffer As String * 2048
Dim lNumberOfBytesRead As Long
Dim sBuffer As String
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
hOpenUrl = InternetOpenUrl(hOpen, URL, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
bDoLoop = True
While bDoLoop
sReadBuffer = vbNullString
bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
Wend
Open SaveAs For Binary Access Write As #1
Put #1, , sBuffer
Close #1
If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
If hOpen <> 0 Then InternetCloseHandle (hOpen)
End Sub

pour finir tu mets ca dans un bouton :

Code :

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

remixgame

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

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

remixgame

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

remixgame

J'ai un probleme
Syntaxe de mon bouton

Code :

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

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

macray

remixgame a écrit a écrit :

J'ai un probleme
Syntaxe de mon bouton

Code :

Private Sub Command1_Click()
Download("http://telecharger.01net.com/images/logo.gif", "c:\logo.gif" )
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

remixgame

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 :

Private Sub Command2_Click()
Text1.Text = Text1.Text + 1
End Sub

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

macray

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment faire ceci comment faire cela ?

Sujets relatifs
Plus de sujets relatifs à : Comment faire ceci comment faire cela ?

Page générée en 0.063 secondes