liensRésolu

Question

Bonjour je suis nouveau dans le domaine de visual basic g commencer il y a 6 mois a l'ecole et maintenant je suis en train d'essayer de construire un programme basic et j'aimerais vous poser quelque question?
1) Je viens de créer 3 feuille dans mon projet et l'une d'elle compte comme feuille de demarrage et elle contient 3 commandbuttons (une pour quitter et 2 pour acceder a mes autres feuilles alors j'aimerais savoir comment rendre ces bouton en liens vers les feuille sachant que g essayer avec le load et le unload et que ca ma rien donner.
Je vous remercie a tous et j'attend vos reponses 
El Mexicanos

mortalino · Accepted Answer

Salut,

il faut l'appeler comme ceci :

TaForm2.Show

et pour la fermer :

Unload Me (Me si tu exécute ce code depuis LA form concernée)

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

Mexicanos · Answer

Merci pour le service je continue mon programme et en cas d'autre question je te fais signe
a+
Mexicanos

Mexicanos · Answer

Maintenant dans une de mes feuilles, j'ai mis un bouton "Envoyer message" et j'aimerais savoir comment tu fais pour dire au programme d'envoyer un message vers un e-mail par exemple?
amitier


mexicanos

mortalino · Answer

Ca dépend de ta messagerie, là c'est particuler, et je ne connais que Lotus Notes : Public Sub SendNotesMail(ByVal Subject As String, ByVal Attachment As String, _ ByVal Recipient As String, ByVal ccRecipient As String, _ ByVal bccRecipient As String, ByVal BodyText As String, _ ByVal SaveIt As Boolean, ByVal Password As String) Dim Maildb As Object 'La base des mails Dim UserName As String 'Le nom d'utilisateur Dim MailDbName As String 'Le nom de la base des mails Dim MailDoc As Object 'Le mail Dim AttachME As Object 'L'objet pièce jointe en RTF Dim Session As Object 'La session Notes Dim EmbedObj As Object 'L'objet incorporé 'Crée une session notes Set Session = CreateObject("Notes.NotesSession") '*** Cette ligne est réservée aux versions 5.x et supérieur : *** '' Session.Initialize (Password) 'Récupère le nom d'utilisateur et crée le nom de la base des mails UserName = Session.UserName MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf" 'Ouvre la base des mails Set Maildb = Session.GETDATABASE("", MailDbName) If Not Maildb.IsOpen Then Maildb.OPENMAIL 'Paramètre le mail à envoyer Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" MailDoc.sendto = Recipient MailDoc.CopyTo = ccRecipient MailDoc.BlindCopyTo = bccRecipient MailDoc.Subject = Subject MailDoc.Body = BodyText MailDoc.SAVEMESSAGEONSEND = SaveIt 'Prend en compte les pièces jointes If Attachment <> "" Then Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment") Set EmbedObj = AttachME.EMBEDOBJECT(1454, "", Attachment, "Attachment") MailDoc.CREATERICHTEXTITEM ("Attachment") End If 'Envoie le mail MailDoc.PostedDate = Now() MailDoc.SEND 0, Recipient Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing Set EmbedObj = Nothing End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique Si tu veux envoyer par une autre messagerie, regarde les codes dans le Forum (cadre Rechercher au dessus) @++

--Mortalino-- Le mystérieux chevalier, ~Provençal, le Gaulois~

Mexicanos · Answer

ben disons que une de mes feuille sois reserver a l'envoie d'un e-mail ben comment faire pour qu'il envoie le texte une fois fini vers l'e-mail ( disons que g mis dans le feuille une textbox pour le texte et une autre pour encoder l'e-mail?)
merci

Mexicanos · Answer

la je vais te donner un code source de ce que g fais en cours avec les feuille que on ma donner et j'aimerais savoir si tu sais m'expliquer un peu ce que ca veux dire se truc car je comprends que dalle et on nous lache ca comme ca il y a certain truc que g compris mais d'autre pas donc voila je te montre :

Private Sub cmdAff_Click()
    Const conMsg As String = "Numéro invalide."
    Const conBtns As Integer = vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal
    Dim intRepUtil As Integer
    Dim intArtNum As Integer
    Dim udtArtEnr As ArtStruc
    intArtNum = Val(txtNum.Text)
    If intArtNum > 0 Then
        Get #1, intArtNum, udtArtEnr
        txtNom.Text = udtArtEnr.strNom
        txtPrix.Text = udtArtEnr.intPrix
    Else
        intRepUtil = MsgBox(conMsg, conBtns, "Fichier à Accès Direct")
    End If
    txtNum.SetFocus
End Sub




Private Sub cmdEnr_Click()
    Const conBtns As Integer = vbOKOnly + vbInformation + vbDefaultButton1 + vbApplicationModal
    Const conMsg As String = "Numéro invalide."
    Dim intReponse As Integer
    Dim intArtNum As Integer
    Dim udtArtEnr As ArtStruc
    intArtNum = Val(txtNum.Text)
    If intArtNum > 0 Then
        udtArtEnr.strNom = txtNom.Text
        udtArtEnr.intPrix = Val(txtPrix.Text)
        Put #1, intArtNum, udtArtEnr
    Else
        intReponse = MsgBox(conMsg, conBtns, "Fichier à accès direct")
    End If
    txtNum.Text = ""
    txtNom.Text = ""
    txtPrix.Text = ""
    txtNum.SetFocus
    
End Sub




Private Sub cmdInit_Click()
    Const conMsg As String = "Voulez-vous initialiser le fichier?"
    Const conBtns1 As Integer = vbYesNo + vbExclamation + vbDefaultButton2 + vbApplicationModal
    Const conBtns2 As Integer = vbOKOnly + vbInformation
    Dim intRepUtil As Integer
    Dim intArtNum As Integer
    Dim udtArtEnr As ArtStruc
    udtArtEnr.strNom = Space(7)
    udtArtEnr.intPrix = 0
    intRepUtil = MsgBox(conMsg, conBtns1, "Fichier à Accès Direct")
    If intRepUtil = vbYes Then
        For intArtNum = 1 To 10
            Put #1, intArtNum, udtArtEnr
        Next intArtNum
        intRepUtil = MsgBox("Le fichier a été initialisé.", conBtns2, "Random")
    Else
        intRepUtil = MsgBox("Le fichier n'a pas été initialisé.", conBtns2, "Random")
    End If
    txtNum.SetFocus
End Sub


Private Sub cmdQuitter_Click()
    Unload frmPrix
End Sub


Private Sub Form_Load()
    frmPrix.Top = (Screen.Height - frmPrix.Height) / 2
    frmPrix.Left = (Screen.Width - frmPrix.Width) / 2
    Dim udtArtEnr As ArtStruc
    Open "D:\jeux	ravail\Laboratoire d'Informatique\VisualBasic\Prix\projet\Art.dat" For Random As #1 Len = Len(udtArtEnr)
    
    
    
End Sub




Private Sub Form_Unload(Cancel As Integer)
    Close #1
End Sub


Private Sub txtNom_GotFocus()
    txtNom.SelStart = 0
    txtNom.SelLength = Len(txtNom.Text)
End Sub
Private Sub txtNum_GotFocus()
    txtNum.SelStart = 0
    txtNum.SelLength = Len(txtNum.Text)
End Sub
Private Sub txtPrix_GotFocus()
    txtPrix.SelStart = 0
    txtPrix.SelLength = Len(txtPrix.Text)
End Sub

Voila merci a toi

mortalino · Answer

Recherche dans les sources existantes, je suis pas calé au niveau des envois Mails.
http://search.codes-sources.com/

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

Liens

7 réponses

Votre réponse

Discussions similaires