La recherche a retourné 43 résultats

Aller sur la recherche avancée

par Christophe
sam. 07/déc./2019 9:49
Forum : Débutants
Sujet : [RESOLU] Touche ENTREE (ComboBox)
Réponses : 8
Vues : 1733

Re: Touche ENTREE (ComboBox)

Effectivement avec GetActiveGadget() comme le dit Ar-s

Exemple
Enumeration
#Client_TxtNom
#Client_TxtAd
#Client_Nom
#Client_Nom2
#Client_Ad
#ToucheEntree
EndEnumeration

Global ExitMenu,wrow

Procedure AfficherAdresse()
Debug "Affiche Adresse"
;code pour afficher l'adresse du client ...
par Christophe
jeu. 05/déc./2019 9:11
Forum : Débutants
Sujet : [RESOLU] Touche ENTREE (ComboBox)
Réponses : 8
Vues : 1733

Re: Touche ENTREE (ComboBox)

Bonjour omega, j'ai rajouté un raccourci clavier (touche entree) :)
Enumeration
#Client_TxtNom
#Client_TxtAd
#Client_Nom
#Client_Ad
#ToucheEntree
EndEnumeration

Global ExitMenu,wrow

Procedure AfficherAdresse()
Debug "Affiche Adresse"
;code pour afficher l'adresse du client
EndProcedure ...
par Christophe
mer. 23/oct./2019 18:07
Forum : Débutants
Sujet : Suppression de l'option #PB_String_ReadOnly sur StringGadet
Réponses : 5
Vues : 1334

Re: Supprésion de l'option #PB_String_ReadOnly sur StringGa

Une solution avec API
OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
StringGadget(1,10,50,480,20,"",#PB_String_ReadOnly)
ButtonGadget(2,100,100,100,50,"Sans ReadOnly")
ButtonGadget(3,300,100,100,50,"Avec ReadOnly")
TextGadget(4,10,30,100,20,"Avec ReadOnly ...
par Christophe
mer. 23/oct./2019 14:48
Forum : Débutants
Sujet : Récupérer les états des cases cochées dans une listIcon
Réponses : 6
Vues : 1377

Re: Récupérer les états des cases cochées dans une listIcon

Bonjour Micoute, je ne sais pas si c'est ce que tu recherches...
Procedure TestCheck()
Debug "Liste des Nom(s) Coché"
For x=0 To CountGadgetItems(0)-1
If GetGadgetItemState(0, x) = #PB_ListIcon_Checked
Debug GetGadgetItemText(0, x)
EndIf
Next
EndProcedure


OpenWindow(0,0,0,600,400,"ListIcon ...
par Christophe
mer. 23/oct./2019 14:25
Forum : Débutants
Sujet : Débutant et API Window
Réponses : 3
Vues : 1250

Re: Débutant et API Window

Bonjour Fels
essaie ceci


;/**********************************************************
;/ Title: Ownerdraw Hover Buttons
;/ Author: Sparkie
;/ Date: January 11, 2008 (original code December 22, 2004)
;/ Modifier : RASHAD
;/ Date: 23/10/2014
;/ OS Support: Microsoft Windows All
;/ PB Support ...
par Christophe
mer. 25/sept./2019 16:42
Forum : Débutants
Sujet : [RESOLU] Probléme avec CopyImage
Réponses : 6
Vues : 1400

Re: Probléme avec CopyImage

Merci à vous 2, j'ai effectivement resolu le probleme de latence je ne recharge plus l'image mais j' interverti leur ID en passant par des variables et non des constantes de cette façon
IdImage = #ImageGif
IdImageT = #ImageGifT
swap IdImage, IdImageT

Naheulf, tu as raison lorsque l'on change ...
par Christophe
mar. 24/sept./2019 22:44
Forum : Débutants
Sujet : [RESOLU] Probléme avec CopyImage
Réponses : 6
Vues : 1400

Re: Probléme avec CopyImage

Comme un bout de code vaut mieux qu'un long discours...

https://drive.google.com/drive/folders/1SaaAYc5nkYErhmJxK8fPZcmifzLZyBsr

Ceci n'est qu'une ébauche ou plutôt une partie du code principale. Il se peut que chez vous le code fonctionne correctement mais chez moi lorsque le CatchImage au ...
par Christophe
mar. 24/sept./2019 20:44
Forum : Débutants
Sujet : [RESOLU] Probléme avec CopyImage
Réponses : 6
Vues : 1400

[RESOLU] Probléme avec CopyImage

Bonjour à tous,
j'ai 2 questions...
je me suis aperçu qu'il n'était pas possible de faire un CopyImage avec une image au format GIF, quelqu'un a t'il une solution ?

Ma 2éme question : si il n'y a pas moyen de le faire sans passer par includeBinary et catchImage peux t-on faire un SWAP ID ? En ...
par Christophe
dim. 08/sept./2019 7:22
Forum : Débutants
Sujet : Step dans une procedure
Réponses : 22
Vues : 4139

Re: Step dans une procedure

Encore plus simple...
Fonctionne aussi avec une boucle For Next

Code : Tout sélectionner

Procedure TestStep(Min, Max, ValeurPas)
For a = Min To Max Step 0
  Debug a
  a+ValeurPas
Next
EndProcedure

TestStep(0, 100, 2)
par Christophe
sam. 24/août/2019 19:13
Forum : Débutants
Sujet : [SOLVED] InitNetwork()
Réponses : 10
Vues : 2181

Re: InitNetwork()

Bonjour à tous,

Microdevweb regarde ce topic https://www.purebasic.fr/french/viewtop ... 90#p203190
par Christophe
mer. 10/juil./2019 10:38
Forum : Débutants
Sujet : DPI 2
Réponses : 17
Vues : 3191

Re: DPI 2

Son ecran est limité à 985, pas à 800 donc on devrait voir un bout de l'éditeur, qu'on soit en 100%, 125% ou 150%.
@Ar-s je ne comprends pas trop ton raisonnement, il affiche bien une fenetre de 985 mais comme son moniteur est réglé sur 800 comment peux t-il voir sa fenetre complete ? son editeur ...
par Christophe
mer. 10/juil./2019 8:48
Forum : Débutants
Sujet : DPI 2
Réponses : 17
Vues : 3191

Re: DPI 2

Bonjour MLD,
j'ai essayé, et chez moi avec la case DPI cochée ou pas l'EditorGadget Apparait dans la plus grande résolution
Par contre une chose m'intrigue... comment veux tu afficher ton EditorGaget à l'ecran si celui ci est en dehors de ta resolution ? il est en "y 825" alors que ton écran est ...
par Christophe
mar. 25/juin/2019 11:09
Forum : Débutants
Sujet : [Résolu] Retirer un mot d'un fichier
Réponses : 4
Vues : 1536

Re: Retirer un mot d'un fichier

Bonjour SPH

Une methode simple consiste à réécrire ton fichier sans le "la"

#dst=1
#tmp=2

chemin$="c:\Temp\1.txt"
temp$="c:\temp\2.txt"

CreateFile(#tmp, temp$)

If ReadFile(#dst, chemin$)
While Eof(#dst) = 0 ; loop as long the 'end of file' isn't reached
mot$=ReadString(#dst)
mot$=LCase(mot ...
par Christophe
lun. 24/juin/2019 11:56
Forum : Débutants
Sujet : [Résolu] Comment envoyer une liste en paramètre
Réponses : 7
Vues : 2378

Re: Comment envoyer une liste en paramètre

Re Micoute
Remplace : Declare Mettre_a_jour_Liste(List Nom(), Id) par Declare Mettre_a_jour_Liste(List Nom.NomDeTaStructure(), Id)

Mettre_a_jour_Liste(Lst_Alimentaire(), #Lst_Alimentaire) par Mettre_a_jour_Liste(Lst_Alimentaire.NomDeTaStructure(), #Lst_Alimentaire)

Procedure Mettre_a_jour ...
par Christophe
lun. 24/juin/2019 10:10
Forum : Débutants
Sujet : [Résolu] Comment envoyer une liste en paramètre
Réponses : 7
Vues : 2378

Re: Comment envoyer une liste en paramètre

Bonjour Micoute,
je ne sais pas si c'est ce que tu veux...

Code : Tout sélectionner

Global NewList Liste()

Procedure Affiche(List Nom())
  ForEach Nom()
    Debug Nom()
  Next
EndProcedure

For x = 0 To 100
  AddElement(liste())
  liste() = x
Next

Affiche(Liste())

Aller sur la recherche avancée