J'utilise avec succès le code ci-dessous pour obtenir le
nom de l'ordinateur dans une "Form".
Mais que changer pour obtenir le même résultat
dans toutes les "Forms" du projet sans y réinscrire le
même code dans chacune d'elles ?
Merci d'avance.
a+
Jean-Pol DAVID
--------
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim strString As String
strString = String(255, Chr$(0))
GetComputerName strString, 255
strString = Left$(strString, InStr(1, strString, Chr$(0)) - 1)
Text1 = strString
End Sub
----------
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
LE TROLL
Bonjour,
Une variable publique dans laquelle tu mets le nom de l'ordinateur sur la form1, ainsi depuis toutes les formes tu y auras accès:
'form1 Public nomPC as string
' exp depuis form3
MsgBox form1.nomPC
-- Site de MES LOGICIELS http://irolog.free.fr Site éditeur de MES ROMANS édités http://irolog.free.fr/romans mon adresse EMail http://irolog.free.fr/ecrire/index.htm ------------------------------------------------------------------------------------ "David" a écrit dans le message de news:
Bonjour à tous,
J'utilise avec succès le code ci-dessous pour obtenir le nom de l'ordinateur dans une "Form". Mais que changer pour obtenir le même résultat dans toutes les "Forms" du projet sans y réinscrire le même code dans chacune d'elles ?
Merci d'avance.
a+ Jean-Pol DAVID -------- Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load() Dim strString As String strString = String(255, Chr$(0)) GetComputerName strString, 255 strString = Left$(strString, InStr(1, strString, Chr$(0)) - 1) Text1 = strString End Sub ----------
Bonjour,
Une variable publique dans laquelle tu mets le nom de l'ordinateur sur la
form1, ainsi depuis toutes les formes tu y auras accès:
'form1
Public nomPC as string
' exp depuis form3
MsgBox form1.nomPC
--
Site de MES LOGICIELS
http://irolog.free.fr
Site éditeur de MES ROMANS édités
http://irolog.free.fr/romans
mon adresse EMail
http://irolog.free.fr/ecrire/index.htm
------------------------------------------------------------------------------------
"David" <bs173990@skynet.be> a écrit dans le message de news:
uepQRGeIHHA.816@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
J'utilise avec succès le code ci-dessous pour obtenir le
nom de l'ordinateur dans une "Form".
Mais que changer pour obtenir le même résultat
dans toutes les "Forms" du projet sans y réinscrire le
même code dans chacune d'elles ?
Merci d'avance.
a+
Jean-Pol DAVID
--------
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim strString As String
strString = String(255, Chr$(0))
GetComputerName strString, 255
strString = Left$(strString, InStr(1, strString, Chr$(0)) - 1)
Text1 = strString
End Sub
----------
Une variable publique dans laquelle tu mets le nom de l'ordinateur sur la form1, ainsi depuis toutes les formes tu y auras accès:
'form1 Public nomPC as string
' exp depuis form3
MsgBox form1.nomPC
-- Site de MES LOGICIELS http://irolog.free.fr Site éditeur de MES ROMANS édités http://irolog.free.fr/romans mon adresse EMail http://irolog.free.fr/ecrire/index.htm ------------------------------------------------------------------------------------ "David" a écrit dans le message de news:
Bonjour à tous,
J'utilise avec succès le code ci-dessous pour obtenir le nom de l'ordinateur dans une "Form". Mais que changer pour obtenir le même résultat dans toutes les "Forms" du projet sans y réinscrire le même code dans chacune d'elles ?
Merci d'avance.
a+ Jean-Pol DAVID -------- Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load() Dim strString As String strString = String(255, Chr$(0)) GetComputerName strString, 255 strString = Left$(strString, InStr(1, strString, Chr$(0)) - 1) Text1 = strString End Sub ----------
Jean-marc
"David" a écrit dans le message de news:
Bonjour à tous,
J'utilise avec succès le code ci-dessous pour obtenir le nom de l'ordinateur dans une "Form". Mais que changer pour obtenir le même résultat dans toutes les "Forms" du projet sans y réinscrire le même code dans chacune d'elles ?
Hello,
Il suffit d'ajouter un module standard (.bas) à ton projet. Dans ce module, tu places une fonction comme ceci:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function MyGetComputerName() As String Dim strString As String
"David" <bs173990@skynet.be> a écrit dans le message de news:
uepQRGeIHHA.816@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
J'utilise avec succès le code ci-dessous pour obtenir le
nom de l'ordinateur dans une "Form".
Mais que changer pour obtenir le même résultat
dans toutes les "Forms" du projet sans y réinscrire le
même code dans chacune d'elles ?
Hello,
Il suffit d'ajouter un module standard (.bas) à ton projet.
Dans ce module, tu places une fonction comme ceci:
Private Declare Function GetComputerName Lib "kernel32" Alias
"GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function MyGetComputerName() As String
Dim strString As String
J'utilise avec succès le code ci-dessous pour obtenir le nom de l'ordinateur dans une "Form". Mais que changer pour obtenir le même résultat dans toutes les "Forms" du projet sans y réinscrire le même code dans chacune d'elles ?
Hello,
Il suffit d'ajouter un module standard (.bas) à ton projet. Dans ce module, tu places une fonction comme ceci:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function MyGetComputerName() As String Dim strString As String