12. oktober 2003 - 13:43Der er
4 kommentarer og 1 løsning
Hvordan opretter jeg en function! Jeg er helt ny i VB
Hejsa. Jeg har fundet et stykke kode på nettet, som jeg vil prøve at få til at virke.
1. del skal indsættes som General declaration! Det har jeg gjort.
3. del skal indsættes som "form load" Det har jeg også gjort!
2. del skal indsættes som en function. Det kan jeg så ikke helt hitte ud af! Er der nogen som kan hjælpe?
MVh. Lasse. Det er Visual Basic 6 jeg bruger! Den kode som skal indsætte som function ser således ud! :
Public Function HentComputerNavn() As String Dim sBuffer As String * 255 If GetComputerNameA(sBuffer, 255&) <> 0 Then HentComputerNavn = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1) Else HentComputerNavn = "Ikke kendt" End If End Function
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function HentComputerNavn() As String Dim dwLen As Long Dim strString As String dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String(dwLen, "X") If GetComputerName(strString, dwLen) <> 0 Then HentComputerNavn = Left(strString, dwLen) Else HentComputerNavn = "Ikke kendt" End If End Function
Private Sub Form_Load() Me.Caption = HentComputerNavn MsgBox HentComputerNavn End Sub '---------------------------------- Form1 ----------------------------------
Tak for det! Ja, det virker sgu! 100 Points på vej til dig!
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
