Zufälliger Artikel

Problemstellung:

Wie kann ich das aktuelle temporäre Verzeichnis meines Systems ermitteln?

Folgenden Code in öffentliches Modul kopieren:

Public Declare Function GetTempPath _
    Lib "kernel32" Alias "GetTempPathA" ( _
    ByVal nBufferLength As Long, _
    ByVal lpBuffer As String) As Long
    
Public Function GetTempFolder() As String
    Dim strTempFolder As String
    Dim lngRet As Long
    strTempFolder = String(255, 0)
    lngRet = GetTempPath(255, strTempFolder)
    If lngRet <> 0 Then
        strTempFolder = Left(strTempFolder, lngRet)
        GetTempFolder = Left(strTempFolder, _
            Len(strTempFolder) - 1)
    End If
End Function

Aufruf:

MsgBox GetTempFolder

Ergebnis:


Ähnliche Artikel

Home

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Problemstellung:

Wie kann ich einen Long-Farbwert in RGB-Farbwerte umrechnen?

Lösung:
Folgende Funktion in ein öffentliches Modul kopieren:

Public Enum eRGBParts
     rgbRed = 1
     rgbGreen = 2
     rgbBlue = 3
 End Enum
 
Public Function GetRGBValue( _
     ByVal lngColor As Long, _
     ByVal lngRGB As eRGBParts) As Integer
 
    Select Case lngRGB
         Case 1 'Rot
             GetRGBValue = lngColor And &HFF&
         Case 2 'Grün
             GetRGBValue = lngColor \ &H100& And &HFF&
         Case 3 'Blau
             GetRGBValue = lngColor \ &H10000 And &HFF&
     End Select
 End Function

Aufruf:

MsgBox "Rot:" & GetRGBValue(8454143, rgbRed) & vbNewLine _
     & "Grün: " & GetRGBValue(8454143, rgbGreen) & _
     vbNewLine & "Blau: " & GetRGBValue(8454143, rgbBlue)

Ergebnis:


Ähnliche Artikel

Kommentar schreiben

Sicherheitscode
Aktualisieren

Login Form

1.png1.png9.png3.png2.png6.png1.png
Heute77
Gestern57
Diese Woche190
Dieser Monat1320
Total1193261

  • IP: 54.80.183.100
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

1
Online

23. Mai 2018