Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • #3199 Fire/SOUL/CD félisten Mzmatus #3198
    Új Válasz #3199
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Fire/SOUL/CD

    félisten

    válasz Mzmatus #3198 üzenetére

    Bocs, nincs sok időm jelenleg (még mindig) PH-ra...

    Utánaolvastam, olybá tűnik, hogy 2 megoldás lehet

    1. .NET plugin írásával, akkor beépített funkciók érhetőek el
    (Ez sem okoz gondot (mármint .NET plugin-t írnom, csak ahhoz viszont fel kell pattintanom mindenképp egy AutoCAD-t, talán hétvégén megsasolom)

    2. Hagyományos Winapi függvények használatával, sajna ez összetettebb mutatvány, több infó szükségeltetik hozzá (csomó paramétert és változót kell ismerni stb)

    Ez utóbbit megmutatom hogyan kell elkövetni (x64-re/hez van deklarálva a fileopendialog import stb), ez univerzális kód -bár nem próbáltam AutoCAD-ben, mert nincs fent- ezért mennie kell 100%-ban, bármely VBA-ban is legyen.
    A kód megnyitja a fájlablakot, szűrőt használ (DVB fájlokat listázza csak(rákerestem a neten, az újabb CAD-k ilyen kiterjesztéssel mentik a VBA kódot, ha meg esetleg mégsem, akkor a forrásban írd át a *.DVB-t *.*-ra, akkor minden fájl látszódni fog), ha egy ilyen fájlt kijelölsz, akkor kiírja a teljes útvonalával együtt, ha meg bezárod az ablakot, akkor meg, hogy nem jelöltél ki semmit... Szóval most ennyi fért az időmbe, ha lesz időm hétvégén folyt. köv.

    Option Explicit

    Private Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (MYOPENFILENAME As OPENFILENAME) As Long

    Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As LongPtr
    hInstance As LongPtr
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As LongPtr
    lpfnHook As LongPtr
    lpTemplateName As String
    End Type

    Sub GetFileWithFullPath()

    Dim MyOpenFile As OPENFILENAME
    Dim MyResult As Long

    With MyOpenFile
    'kezdő drive/folder
    .lpstrInitialDir = "D:\"
    'fájlablak fejléce
    .lpstrTitle = "Fire/SOUL/CD"
    'fájlablak szűrő
    .lpstrFilter = "AutoCAD VBA" & Chr$(0) & "*.dvb" & Chr$(0)
    'default flag beállítás
    .flags = 0
    .nFilterIndex = 1
    .hwndOwner = 0
    .lpstrFile = String(257, 0)
    .nMaxFile = LenB(.lpstrFile) - 1
    .lStructSize = LenB(MyOpenFile)
    .lpstrFileTitle = .lpstrFile
    .nMaxFileTitle = .nMaxFile
    End With

    MyResult = GetOpenFileName(MyOpenFile)

    If MyResult = 0 Then
    MsgBox ("Nem választottál ki fájlt!")
    Else
    MsgBox (Trim(Left(MyOpenFile.lpstrFile, InStr(1, MyOpenFile.lpstrFile, vbNullChar) - 1)))
    End If

    End Sub

Új hozzászólás Aktív témák