Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3435 connectés 

 

 

 Mot :   Pseudo :  
 
 Page :   1  2  3  4  5  6
Auteur Sujet :

[FAQ VB] La FAQ Visual Basic 6.0

n°660172
C17
-$$ W A N T E D $$-
Posté le 01-03-2004 à 16:51:03  profilanswer
 

Reprise du message précédent :
J'ai fais une recherche sur *vb*.* et j'ai pas trouvé grand chose sur ce PC... même si c'est du xp, je pense pas que ce soit installé d'office...


Message édité par C17 le 01-03-2004 à 16:51:51

---------------
C17
mood
Publicité
Posté le 01-03-2004 à 16:51:03  profilanswer
 

n°660174
drasche
Posté le 01-03-2004 à 16:55:00  profilanswer
 

mauvais plan :o
 
c'est plutôt un truc MS*32.OCX :/
 
pour le listview, c'est MSCOMCTL.OCX


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660194
C17
-$$ W A N T E D $$-
Posté le 01-03-2004 à 17:12:56  profilanswer
 

Donc si je veux vraiment faire un test correct faut que je prenne une machine sous w98 ?


---------------
C17
n°660203
drasche
Posté le 01-03-2004 à 17:23:07  profilanswer
 

chez nous on prend un Windows 95 de première génération [:joce]


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660326
C17
-$$ W A N T E D $$-
Posté le 01-03-2004 à 19:48:10  profilanswer
 

drasche a écrit :

chez nous on prend un Windows 95 de première génération [:joce]


 
même sans soft installé ça marche pas et ça plante ces bestioles là...  :lol:


---------------
C17
n°660445
drasche
Posté le 01-03-2004 à 22:20:20  profilanswer
 

c'est surtout qu'en prenant le Windows OSR1 de base et sans patch, on a la garantie de faire une install qui marche partout ;)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660512
MagicBuzz
Posté le 01-03-2004 à 23:14:15  profilanswer
 

drasche a écrit :

c'est surtout qu'en prenant le Windows OSR1 de base et sans patch, on a la garantie de faire une install qui marche partout ;)


ça c'est pas si sûr :)
 
certains composants (msxml, ado; wsh, etc.) son différents que tu soit sous 9x ou NT. c'est comme ça que j'ai crouté un win2k avec une installation manuelle testée sur un pc sous w98 ;)

n°660525
drasche
Posté le 01-03-2004 à 23:29:49  profilanswer
 

MagicBuzz a écrit :

certains composants (msxml, ado; wsh, etc.) son différents que tu soit sous 9x ou NT. c'est comme ça que j'ai crouté un win2k avec une installation manuelle testée sur un pc sous w98 ;)


aie, j'espère que le mec qui s'occupe du kit d'installation chez le client est au courant de tout cela :o (j'ai dû un jour installer MSXML.DLL à la main sur le portable d'un courtier [:joce])  vivivi la greffe a pris et ya pas eu de suite :o


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660527
drasche
Posté le 01-03-2004 à 23:31:19  profilanswer
 

au fait ça m'étonne parce que je n'ai jamais vu qu'une seule distrib de MDAC et il n'y a qu'une seule version de chaque fichier dedans, et pour XML, je pense que c'est pareil aussi (bien que là il vient avec IE et IE5 par exemple, s'installe de même sur n'importe quel OS de Microsoft :??:)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660617
MagicBuzz
Posté le 02-03-2004 à 08:42:43  profilanswer
 

Pour MDAC, je suis pas trop sûr, mais pour msxml, sûr et certain, y'a une version qui nécessite à la fois une installation via programme d'installation, et dont le package est différent entre nt et 9x.
 
sinon, quand j'ai tout crashé, en fait, après une nuit de sommeil, on va remettre dans l'ordre :)
 
programme VB qui envoie des mails via mapi. programme développé sur un 2000.
 
comme à mon habitude, je le compile, je le lance sur un 98, puis je commence à recopier les dll qu'il me demande à partir de la machine de développement...
 
bah... quand t'utilises mapi, y'a un moment où il te demande une dll qu'il ne devrait pas te demander, parceque ça a croûté windows 98 (j'ai dû écraser une dll, qui à priori était au système)
 
redémarrage en mode ms-dos et récupération du backup de la dll et c'est reparti mais bon... :)
 
du coup maintenant vb6 est sur une machine 98, car dans l'autre sens j'ai pour le moment pas eu de problème. mais je crainds que ce genre de problème apparaisse quand même un jour.
 
ps: quand j'ai testé l'assistant de package, la dll en question était marquée comme nécessaire, mais "impossible de retrouver les références" ou je sais plus quoi, donc pas présente dans le package... :??:

mood
Publicité
Posté le 02-03-2004 à 08:42:43  profilanswer
 

n°660761
mareek
Et de 3 \o/
Posté le 02-03-2004 à 11:59:54  profilanswer
 

Un bug de VB que j'ai découvert aujourd'hui:
Lorsqu'on passe la propriété 'enabled' d'un control frame à false, tous les controle contenu dans cette frame ont leur propriété 'enabled' passée à false et évidemment ça ne marche pas quand on passe cette propriété à true :pfff:


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°660783
MagicBuzz
Posté le 02-03-2004 à 12:18:36  profilanswer
 

C'est pas un bug, c'est le comportement attendu.
 
Tu désactives le père :
-> Tous les fils sont forcément désactivés.
 
Tu active le père :
-> Les fils restent à leur status, on ne peut pas prendre l'initiative d'activer un fils que tu aurais désactivé manuellement.
 
Quand tu fais un KILL -9 sous Unix sur un process père, ça tue tous les fils.
 
Par contre, quand tu démarres une application, il ouvre pas comme un con tous les menus...
 
C'est rigoureusement la même logique. C'est si l'IDE ne la respecte pas qu'il y a un bug.


Message édité par MagicBuzz le 02-03-2004 à 12:19:14
n°660788
mareek
Et de 3 \o/
Posté le 02-03-2004 à 12:25:40  profilanswer
 

MagicBuzz a écrit :

C'est pas un bug, c'est le comportement attendu.
 
Tu désactives le père :
-> Tous les fils sont forcément désactivés.
 
Tu active le père :
-> Les fils restent à leur status, on ne peut pas prendre l'initiative d'activer un fils que tu aurais désactivé manuellement.
 
Quand tu fais un KILL -9 sous Unix sur un process père, ça tue tous les fils.
 
Par contre, quand tu démarres une application, il ouvre pas comme un con tous les menus...
 
C'est rigoureusement la même logique. C'est si l'IDE ne la respecte pas qu'il y a un bug.


Ah OK.
Ils pourraient le documenter au moins [:spamafote]
 
P.S. la comparaison avec le kill-9 sou unix est vraiment tirée par les cheuveux.


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°660801
drasche
Posté le 02-03-2004 à 12:38:32  profilanswer
 

mareek a écrit :

P.S. la comparaison avec le kill-9 sou unix est vraiment tirée par les cheuveux.


bah tu peux généraliser à n'importe quel OS, quand tu coupes ta session, tous tes programmes se ferment :o
 
là j'ai un collègue qui se prend la tête sur la gestion des focus dans une IHM dotée de quelques "gros" usercontrols, je le laisse faire :whistle:


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°660806
mareek
Et de 3 \o/
Posté le 02-03-2004 à 12:48:05  profilanswer
 

drasche a écrit :


bah tu peux généraliser à n'importe quel OS, quand tu coupes ta session, tous tes programmes se ferment :o


que ça soit sous unix, windows ou macOS, la comparaison est quand même capilotractée :o

drasche a écrit :


là j'ai un collègue qui se prend la tête sur la gestion des focus dans une IHM dotée de quelques "gros" usercontrols, je le laisse faire :whistle:


[:totoz]


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°660808
drasche
Posté le 02-03-2004 à 12:49:29  profilanswer
 

mareek a écrit :

que ça soit sous unix, windows ou macOS, la comparaison est quand même capilotractée :o


parce que d'un côté on kill et de l'autre on désactive? bof pour moi c'est bon :D


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°705314
ptitgizmo
Posté le 21-04-2004 à 17:56:50  profilanswer
 

Bonjour,
J'aimerais remplir une listBox avec les données d'une table qui se trouve sur Access.
Merci

n°705375
mareek
Et de 3 \o/
Posté le 21-04-2004 à 19:01:33  profilanswer
 

pour se connecter à la base:
http://forum.hardware.fr/forum2.ph [...] =2#t609943
 
pour remplir ta listbox:

Code :
  1. Dim qry as string
  2.  Dim rs As adodb.Recordset
  3.  
  4.  Set rs = New adodb.Recordset
  5.    
  6.  qry = "select * from table"
  7.  rs.Open qry, m_AdoCnn, adOpenDynamic, m_ADOLockType, adCmdText
  8.    
  9.  While Not rs.EOF
  10.    MaListBox.addItem rs(Nom)
  11.    rs.MoveNext
  12.  Wend
  13.  rs.Close


Message édité par mareek le 07-12-2007 à 18:34:47

---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°705675
ptitgizmo
Posté le 22-04-2004 à 09:56:38  profilanswer
 

OK merci,  
est-ce possible de remplir la liste en tapant une clause dans la ligne Rowsource des propriétés ?
Sur Access pas de problème mais sur Excel...
Merci

n°705690
drasche
Posté le 22-04-2004 à 10:06:34  profilanswer
 

ptitgizmo a écrit :

OK merci,  
est-ce possible de remplir la liste en tapant une clause dans la ligne Rowsource des propriétés ?
Sur Access pas de problème mais sur Excel...
Merci


t'as déjà fait un topic :heink:
 
http://forum.hardware.fr/hardwaref [...] 9924-1.htm


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°705712
ptitgizmo
Posté le 22-04-2004 à 10:22:56  profilanswer
 

Salut
 
rs.Open qry, m_AdoCnn, adOpenDynamic, m_ADOLockType, adCmdText  
 
Que représente m_ADOLockType et adCmdText ?

n°705725
drasche
Posté le 22-04-2004 à 10:32:59  profilanswer
 

:heink:
 
à ce stade, tu ferais bien mieux de lire la doc.


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°705727
ptitgizmo
Posté le 22-04-2004 à 10:35:53  profilanswer
 

oups, c'est bon j'ai compris

n°727438
fabien
Vive la super 5 !
Posté le 16-05-2004 à 14:58:27  profilanswer
 

merci drasche pour ce topic, je vais en avoir besoin ces temps ci :o


---------------
Découvre le HFRcoin ✈ - smilies
n°738079
fabien
Vive la super 5 !
Posté le 25-05-2004 à 16:51:33  profilanswer
 

salut tout le monde!
 
j'ai un probleme avec mon algo.
Je fait un jeux de jackpot, et a chaque valeur trouvé, on gagne une somme.
 
si on trouve "777" on gagne 500 €
si on trouve "666" on gagne 100 €
....
si on trouve 00x on gagne 10 €
si on trouve 0xx on gagne 5 €
avec x un nombre quelconque.
 
Je voulais donc utiliser les select:
 
 
 

Code :
  1. resultat = Label1.Caption & Label2.Caption & Label3.Caption
  2.     Select Case resultat
  3.    
  4.     Case 777
  5.         gain = 500
  6.     Case 666
  7.         gain = 100
  8.     Case 555 Or 444
  9.         gain = 50
  10.     Case 111 Or 222 Or 333
  11.         gain = 30
  12.     Case 0 Or 888 Or 999
  13.         gain = 20
  14.     'Case resultat(1) = 0 And resultat(2) = 0 And resultat(3) <> 0
  15.     '    gain = 10
  16.     'Case resultat(1) = 0 And resultat(2) <> 0 And resultat(3) <> 0
  17.     '    gain = 5
  18.     ' les deux derniers case c'etait pour tester sinon je sais que c'est faux
  19.     End Select


 
mais le probleme c'est a cause des resultats avec des 0
le plus simple serait de faire avec des if, mais voyez vous une solutions avec un select ?


Message édité par fabien le 25-05-2004 à 16:52:50

---------------
Découvre le HFRcoin ✈ - smilies
n°738107
fabien
Vive la super 5 !
Posté le 25-05-2004 à 17:12:12  profilanswer
 

bon j'ai fait ca finalement:
 

Code :
  1. resultat = Label1.Caption & Label2.Caption & Label3.Caption
  2.     resultat2 = Array(Label1.Caption, Label2.Caption, Label3.Caption)
  3.     If resultat = 777 Then
  4.         gain = 500
  5.     ElseIf resultat = 666 Then
  6.         gain = 100
  7.     ElseIf resultat = 555 Or resultat = 444 Then
  8.         gain = 50
  9.     ElseIf resultat = 111 Or resultat = 222 Or resultat = 333 Then
  10.         gain = 30
  11.     ElseIf resultat = "000" Or resultat = 888 Or resultat = 999 Then
  12.         gain = 20
  13.     ElseIf resultat2(0) = 0 And resultat2(1) = 0 And resultat2(2) <> 0 Then
  14.         gain = 10
  15.     ElseIf resultat2(0) = 0 And resultat2(1) <> 0 And resultat2(2) <> 0 Then
  16.         gain = 5
  17.     Else
  18.     gain = 0
  19.     End If


 
Si vous avez des critiques constructive pour ameliorer ca, n'hesitez pas :)


---------------
Découvre le HFRcoin ✈ - smilies
n°738124
drasche
Posté le 25-05-2004 à 17:25:21  profilanswer
 

select case :o
de rien :jap:


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°738132
fabien
Vive la super 5 !
Posté le 25-05-2004 à 17:28:58  profilanswer
 

drasche a écrit :

select case :o
de rien :jap:

je voulais savoir, en vb comment on fait pour lire tel caractere de tel variable. faut que ca soit obligatoirement un tableau ?
car en php lorsque je fais ca:
 
$variable="test";
 
et que je fais
 
echo $variable[1];
 
ca affiche "t"
 
c'est possible de faire ca avec vb ?
 


---------------
Découvre le HFRcoin ✈ - smilies
n°738134
drasche
Posté le 25-05-2004 à 17:29:33  profilanswer
 

nope, la fonction à utiliser est Mid$


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°738167
fabien
Vive la super 5 !
Posté le 25-05-2004 à 17:48:32  profilanswer
 

drasche a écrit :

nope, la fonction à utiliser est Mid$


 
ok je vais voir.
 
Sinon qu'est ce que tu voulais dire par:
 

drasche a écrit :

select case :o
de rien :jap:


Message édité par fabien le 25-05-2004 à 17:48:41

---------------
Découvre le HFRcoin ✈ - smilies
n°738174
drasche
Posté le 25-05-2004 à 17:52:27  profilanswer
 

le Select Case est l'équivalent du switch dans les syntaxes C-like.
 
exemple:

Code :
  1. resultat = Label1.Caption & Label2.Caption & Label3.Caption
  2. resultat2 = Array(Label1.Caption, Label2.Caption, Label3.Caption)
  3. Select Case resultat
  4.   Case "777"
  5.     gain = 500
  6.   Case "666"
  7.     gain = 100
  8.   Case "555", "444"
  9.     gain = 50
  10.   Case "111", "222", "333"
  11.     gain = 30
  12.   Case "000", "888", "999"
  13.     gain = 20
  14.   Case Else
  15.      ' le reste du traitement
  16. End Select


 
edit: le Select Case permet d'autres gymnastiques que de simples tests d'égalité et de combinaisons (ici, des Or)


Message édité par drasche le 25-05-2004 à 17:53:23

---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°738205
Harkonnen
Modérateur
Un modo pour les bannir tous
Posté le 25-05-2004 à 18:04:48  profilanswer
 

pourquoi ne pas avoir créé un topic au lieu de le poster dans la FAQ :??:


---------------
J'ai un string dans l'array (Paris Hilton)
n°738206
fabien
Vive la super 5 !
Posté le 25-05-2004 à 18:05:00  profilanswer
 

drasche a écrit :

le Select Case est l'équivalent du switch dans les syntaxes C-like.
 
exemple:

Code :
  1. resultat = Label1.Caption & Label2.Caption & Label3.Caption
  2. resultat2 = Array(Label1.Caption, Label2.Caption, Label3.Caption)
  3. Select Case resultat
  4.   Case "777"
  5.     gain = 500
  6.   Case "666"
  7.     gain = 100
  8.   Case "555", "444"
  9.     gain = 50
  10.   Case "111", "222", "333"
  11.     gain = 30
  12.   Case "000", "888", "999"
  13.     gain = 20
  14.   Case Else
  15.      ' le reste du traitement
  16. End Select


 
edit: le Select Case permet d'autres gymnastiques que de simples tests d'égalité et de combinaisons (ici, des Or)

heu... si tu regarde quelques poste au dessus, tu verra que j'ai d'abord posté le select case qui me posait probleme et je l'ai transformé en if else car je ne peut pas utilisé deux variable dans un select case.


---------------
Découvre le HFRcoin ✈ - smilies
n°738209
drasche
Posté le 25-05-2004 à 18:07:04  profilanswer
 

je vois une seule variable resultat dans ton if et dans le traitement que j'ai répliqué. Tu traiteras resultat2 dans le Case Else :o
 
Harko> je me le demande :o (parce que je l'enverrais directement à la doc en ligne [:ddr555])


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°738217
fabien
Vive la super 5 !
Posté le 25-05-2004 à 18:10:15  profilanswer
 

drasche a écrit :

je vois une seule variable resultat dans ton if et dans le traitement que j'ai répliqué. Tu traiteras resultat2 dans le Case Else :o
 

t'as raison :jap:
 
merci


Message édité par fabien le 25-05-2004 à 18:10:29

---------------
Découvre le HFRcoin ✈ - smilies
n°740266
mareek
Et de 3 \o/
Posté le 26-05-2004 à 15:57:08  profilanswer
 

SPAM:
http://forum.hardware.fr/hardwaref [...] 2128-1.htm


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°742416
fabien
Vive la super 5 !
Posté le 27-05-2004 à 23:26:57  profilanswer
 

ca serait bien de mettre ce lien dans le premier post:
 
http://faq.vb.free.fr/
 


---------------
Découvre le HFRcoin ✈ - smilies
n°742417
drasche
Posté le 27-05-2004 à 23:28:32  profilanswer
 

ya un topic pour les liens :o


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
n°770069
C17
-$$ W A N T E D $$-
Posté le 19-06-2004 à 21:55:23  profilanswer
 

au fait, il existe une commande en VB pour crypter des données en md5?


---------------
C17
n°770534
mareek
Et de 3 \o/
Posté le 20-06-2004 à 22:21:25  profilanswer
 

pas à ma connaissance, il faut utiliser les API windows ou un composant externe


---------------
"I wonder if the internal negative pressure in self pumping toothpaste tubes is adjusted for different market altitudes." John Carmack
n°770539
drasche
Posté le 20-06-2004 à 22:40:46  profilanswer
 

en cherchant sur google, tu trouveras même des implémentations en VB (ptet avec un peu des API) mais ça existe :)


---------------
Whichever format the fan may want to listen is fine with us – vinyl, wax cylinders, shellac, 8-track, iPod, cloud storage, cranial implants – just as long as it’s loud and rockin' (Billy Gibbons, ZZ Top)
mood
Publicité
Posté le   profilanswer
 

 Page :   1  2  3  4  5  6

Aller à :
Ajouter une réponse
 

Sujets relatifs
[BASIC] comment "dérouler" les GOTO ???Mysql et Visual Basic 6.0 - Connecter les 2 ?
[Outil de programmation] Visual Studio .net 2002 pro frVisual c++ 6.0 questions ?
FAQ programmationvisual C++ cours/tutoriels
[BASIC] Exporter une donnée de la base de registre[VISUAL STUDIO 6]Warning bizarre - conseil
[HELP] turbo basic :p 
Plus de sujets relatifs à : [FAQ VB] La FAQ Visual Basic 6.0


Copyright © 1997-2025 Groupe LDLC (Signaler un contenu illicite / Données personnelles)