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

• Fire/SOUL/CD félisten

  #3200

  #3198 Mzmatus

  2025-10-22 05:13:21

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #3198 Mzmatus

  #3198 Mzmatus

  Próbáltam. Nem.
  

  Közben eszembe jutott egy egyszerű (remélhetőleg AutoCAD VBA-ban is működő) megoldás. Szóval mi lenne, ha egy Excel objektumot hoznánk létre és annak használnánk a függvényeit, pl. a GetOpenFilename függvényt.
  Próbáld ki, hátha műxik...

  Sub FireAutoCADFileOpenDialog()

Dim MyExcelApp As Object
Dim MyFilePath As String

Set MyExcelApp = CreateObject("Excel.Application")

MyFilePath = MyExcelApp.GetOpenFilename(Title:="Válassz egy fájlt", _
FileFilter:="AutoCAD DVB Files (*.dvb),*.dvb")

If MyFilePath <> "False" Then MsgBox "A kiválasztott fájl: " & MyFilePath

Set MyExcelApp = Nothing

End Sub

• Fire/SOUL/CD félisten

  #3199

  #3198 Mzmatus

  2025-10-21 22:52:02

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #3198 Mzmatus

  #3198 Mzmatus

  Próbáltam. Nem.
  

  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

• Mzmatus csendes tag

  #3198

  #3197 Bobrooney

  2025-10-21 21:21:59

  Új Válasz

  Ú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

  

  Mzmatus

  csendes tag

  #3197 Bobrooney

  #3197 Bobrooney

  Minden kritikát és bántást mellőzve! Bármelyik AI nem adna hamarabb választ a problémádra?

  Próbáltam. Nem.
  

• Bobrooney senior tag

  #3197

  #3196 Mzmatus

  2025-10-20 08:20:00

  Új Válasz

  Ú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

  

  Bobrooney

  senior tag

  #3196 Mzmatus

  #3196 Mzmatus

  Kedves "Fire/SOUL/CD" !
  Nagyon köszönöm, hogy foglalkoztál a kérésemmel.
  Megpróbáltam használni a leírtakat, de az Application.FileDialog... nem ismert számára.
  Hasonlót találtam, (Application.Preferences.OpenSave) de ez egy másfajta dialógus ablak megnyítására használatos. (egy figyelmeztetés megjelenítése - true/False )
  Egyébként ezen az oldalon vannak az Autocad VBA-val kapcsolatos dolgok, objektumok, eseménykezelések, eljárások, tulajdonságok, stb.. Folyamatosan keresgélek benne, de eddig még nem találtam meg a választ.
  https://help.autodesk.com/view/OARX/2023/ENU/
  Ha esetleg szánnál rá pár percet, megköszönném. Hátha azonnal rátalálsz.
  
  Eddigi segítségedet is köszönöm.
  Üdv, Zoltán

  Minden kritikát és bántást mellőzve! Bármelyik AI nem adna hamarabb választ a problémádra?

• Mzmatus csendes tag

  #3196

  #3195 Fire/SOUL/CD

  2025-10-16 17:27:12

  Új Válasz

  Ú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

  

  Mzmatus

  csendes tag

  #3195 Fire/SOUL/CD

  #3195 Fire/SOUL/CD

  Nem tudom, hogy az AutoCAd VBA mennyire tér el úgy általában a "sima" VBA-tól, de ezzel tehetsz egy próbát (itt egy commandbutton kattintásra lefutó VBA kódot adok, de nem az a lényeg, hanem ami a SUB-n belül van)

  Private Sub CommandButton1_Click()

Dim MyFileDialog As Object

'Itt 4 paraméter lehet (msoFileDialogFilePicker, msoFileDialogFolderPicker, msoFileDialogOpen, msoFileDialogSaveAs)
Set MyFileDialog = Application.FileDialog(msoFileDialogOpen)
MyFileDialog.Show

End Sub

  Kedves "Fire/SOUL/CD" !
  Nagyon köszönöm, hogy foglalkoztál a kérésemmel.
  Megpróbáltam használni a leírtakat, de az Application.FileDialog... nem ismert számára.
  Hasonlót találtam, (Application.Preferences.OpenSave) de ez egy másfajta dialógus ablak megnyítására használatos. (egy figyelmeztetés megjelenítése - true/False )
  Egyébként ezen az oldalon vannak az Autocad VBA-val kapcsolatos dolgok, objektumok, eseménykezelések, eljárások, tulajdonságok, stb.. Folyamatosan keresgélek benne, de eddig még nem találtam meg a választ.
  https://help.autodesk.com/view/OARX/2023/ENU/
  Ha esetleg szánnál rá pár percet, megköszönném. Hátha azonnal rátalálsz.
  
  Eddigi segítségedet is köszönöm.
  Üdv, Zoltán

• Fire/SOUL/CD félisten

  #3195

  #3194 Mzmatus

  2025-10-13 09:15:48

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #3194 Mzmatus

  #3194 Mzmatus

  Autocad vba

  Nem tudom, hogy az AutoCAd VBA mennyire tér el úgy általában a "sima" VBA-tól, de ezzel tehetsz egy próbát (itt egy commandbutton kattintásra lefutó VBA kódot adok, de nem az a lényeg, hanem ami a SUB-n belül van)

  Private Sub CommandButton1_Click()

Dim MyFileDialog As Object

'Itt 4 paraméter lehet (msoFileDialogFilePicker, msoFileDialogFolderPicker, msoFileDialogOpen, msoFileDialogSaveAs)
Set MyFileDialog = Application.FileDialog(msoFileDialogOpen)
MyFileDialog.Show

End Sub

• Mzmatus csendes tag

  #3194

  #3193 sztanozs

  2025-10-09 19:33:51

  Új Válasz

  Ú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

  

  Mzmatus

  csendes tag

  #3193 sztanozs

  #3193 sztanozs

  milyen vb a kerdes?
  vb.net
  vb6
  vba
  valami mas?

  Autocad vba

• sztanozs veterán

  #3193

  #3192 Mzmatus

  2025-10-07 10:19:52

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3192 Mzmatus

  #3192 Mzmatus

  Sziasztok!
  A windows fájlmegyitás dialógusablakát szeretném előhívni.
  Régen, a vb6 -ban az FSO objektummal egyszerűen megoldható volt, de ez már nem működik.
  Kérném a segítségeteket. Előre is köszönöm.

  milyen vb a kerdes?
  vb.net
  vb6
  vba
  valami mas?

• Mzmatus csendes tag

  #3192 2025-10-06 17:47:30

  Új Válasz

  Ú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

  

  Mzmatus

  csendes tag

  Sziasztok!
  A windows fájlmegyitás dialógusablakát szeretném előhívni.
  Régen, a vb6 -ban az FSO objektummal egyszerűen megoldható volt, de ez már nem működik.
  Kérném a segítségeteket. Előre is köszönöm.

• sonar addikt

  #3191 2025-02-09 07:37:00

  Új Válasz

  Ú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

  

  sonar

  addikt

  Sziasztok,

  visual studio 2022-ben (.NET8)
  Egy consol applikációt kellene átalakítanom dll-é (class library-nak hívják ebben ahogy megtudtam).
  Valahogy nem akadok rá a megfelelő tutorial-ra.
  Tudna valaki segíteni? HOgy mire keressek rá? Mert a használt kulcsszavak se googli-ban se duckduck-ban nem hoztak jó eredményeket.

• Vladek83 tag

  #3190 2024-04-13 16:05:48

  Új Válasz

  Ú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

  

  Vladek83

  tag

  Sziasztok,

  vb.net-ben van egy alkalmazásom.
  Webview2-ben nyílik meg egy Onedrive táblázat.
  Amit szeretnék elérni:
  A táblázat egyik cellájába klikkelek, akkor azt adja vissza egy TextBox-ba vagy még ami jobb lenne DataGridView-ben, ezekre nem találtam eddig megoldást..
  Ha valakinek lenne ötlete/javaslata szívesen venném..

  Üdv,

• Amiens tag

  #3189

  #3188 simongnxs

  2024-03-11 09:27:45

  Új Válasz

  Ú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

  

  Amiens

  tag

  #3188 simongnxs

  #3188 simongnxs

  Sziasztok,
  kérném a segítségeteket!
  Írtam egy makrót, de nem működik.
  Szeretnék egy olyan programot, ami:
  megnyitja a kijelölt grafikon adattábláját
  megnyitja az Adat1 szerkesztését
  változtatja meg az adatok értékei képletét eggyel nagyobb sorszámúra például így: =adatok_havi!$J$7:$AS$7 - ból legyen =adatok_havi!$J$8:$AS$8
  az oszlop értéke maradjon az eredeti, csak a sor értéke legyen eggyel nagyobb.
  aztán beleklikkel a diagramm címébe
  és ott is eggyel nagyobb számra cseréli a sor számát.

  Sajnos, amit a makorrögzítéssel csinálok, az nem hozza az eredményt, illetve a chatgpt 3.5 is csupa olyan kódot generál, ami nem működik.
  Tudom, hogy az Ember okosabb az AI-nél
  Segítsetek, kérlek!
  
  
  
  

  Szia!
  
  Az adattartományt formázd táblázatba, gyorsabb és egyszerűbb; utána automatikus a grafikon vizualizációja is!

  Jobban jársz!

• simongnxs újonc

  #3188 2024-03-10 10:42:09

  Új Válasz

  Ú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

  

  simongnxs

  újonc

  Sziasztok,
  kérném a segítségeteket!
  Írtam egy makrót, de nem működik.
  Szeretnék egy olyan programot, ami:
  megnyitja a kijelölt grafikon adattábláját
  megnyitja az Adat1 szerkesztését
  változtatja meg az adatok értékei képletét eggyel nagyobb sorszámúra például így: =adatok_havi!$J$7:$AS$7 - ból legyen =adatok_havi!$J$8:$AS$8
  az oszlop értéke maradjon az eredeti, csak a sor értéke legyen eggyel nagyobb.
  aztán beleklikkel a diagramm címébe
  és ott is eggyel nagyobb számra cseréli a sor számát.

  Sajnos, amit a makorrögzítéssel csinálok, az nem hozza az eredményt, illetve a chatgpt 3.5 is csupa olyan kódot generál, ami nem működik.
  Tudom, hogy az Ember okosabb az AI-nél
  Segítsetek, kérlek!
  
  
  
  

• Postas99 őstag

  #3187

  #3186 F1DO

  2024-01-30 14:08:49

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3186 F1DO

  #3186 F1DO

  Beletettem ezt, de nem jelenik meg semmi, csak a várakozási idő

  Set InfoShape = ws.Shapes.AddTextbox(Orientation:=1, Left:=100, Top:=100, Width:=200, Height:=50)
  InfoShape.TextFrame.Characters.Text = "A keresett érték (" & SearchValue & ") megtalálva."
  
  ' Várakozás 2 másodpercig
  Application.Wait (Now + TimeValue("0:00:02"))
  
  ' Alakzat törlése
  InfoShape.Delete

  A megoldás amit kerestél:

  Sub MessageBoxTimer()
Dim AckTime As Integer, InfoBox As Object
Set InfoBox = CreateObject("WScript.Shell")
'Set the message box to close after 10 seconds
AckTime = 10
Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
AckTime, "This is your Message Box", 0)
Case 1, -1
Exit Sub
End Select
End Sub

• F1DO senior tag

  #3186

  #3185 Delila_1

  2024-01-23 16:39:37

  Új Válasz

  Ú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

  

  F1DO

  senior tag

  #3185 Delila_1

  #3185 Delila_1

  Msgbox helyett egy alakzatot jeleníts meg szöveggel, majd 2 mp után töröld.

  Beletettem ezt, de nem jelenik meg semmi, csak a várakozási idő

  Set InfoShape = ws.Shapes.AddTextbox(Orientation:=1, Left:=100, Top:=100, Width:=200, Height:=50)
  InfoShape.TextFrame.Characters.Text = "A keresett érték (" & SearchValue & ") megtalálva."
  
  ' Várakozás 2 másodpercig
  Application.Wait (Now + TimeValue("0:00:02"))
  
  ' Alakzat törlése
  InfoShape.Delete

• Delila_1 veterán

  #3185

  #3184 F1DO

  2024-01-23 15:46:49

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3184 F1DO

  #3184 F1DO

  Sziasztok!

  Excel VB kód - annyit tesz hogy vár egy keresési értéket - ehhez megnyilik egy beviteli mező. A keresési érték beadásakor indul a keresés, annyi kellene, hogy jelenítsen meg egy üzenetet 2 másodpercre ha megtalálta és akkor is ha nem .

  messagebox-al, popup-al próbálkoztam, de mindig ott az OK gomb és ameddig arra nem nyomok rá nem lép tovább a kód.

  MsgBox "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", vbExclamation + vbSystemModal, "Keresés eredménye"

  + itt az adott VB kódrészlet végén ez a késleltetés is szerepel
  Application.Wait (Now + TimeValue("0:00:02"))

  illetve:

  CreateObject("WScript.Shell").PopUp "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", 2

  Megjelennek ezek révén az üzenetek, csak ott az OK gomb is ami nem kéne.

  Msgbox helyett egy alakzatot jeleníts meg szöveggel, majd 2 mp után töröld.

• F1DO senior tag

  #3184 2024-01-23 15:41:55

  Új Válasz

  Ú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

  

  F1DO

  senior tag

  Sziasztok!

  Excel VB kód - annyit tesz hogy vár egy keresési értéket - ehhez megnyilik egy beviteli mező. A keresési érték beadásakor indul a keresés, annyi kellene, hogy jelenítsen meg egy üzenetet 2 másodpercre ha megtalálta és akkor is ha nem .

  messagebox-al, popup-al próbálkoztam, de mindig ott az OK gomb és ameddig arra nem nyomok rá nem lép tovább a kód.

  MsgBox "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", vbExclamation + vbSystemModal, "Keresés eredménye"

  + itt az adott VB kódrészlet végén ez a késleltetés is szerepel
  Application.Wait (Now + TimeValue("0:00:02"))

  illetve:

  CreateObject("WScript.Shell").PopUp "A keresett érték (" & SearchValue & ") nem található, üres sorba felvétele megtörtént.", 2

  Megjelennek ezek révén az üzenetek, csak ott az OK gomb is ami nem kéne.

• Postas99 őstag

  #3183

  #3182 Postas99

  2023-01-16 15:52:33

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3182 Postas99

  #3182 Postas99

  Szia!

  Csak egy combobox vagy FORM-on levő combobox?

  A gond azzal van, hogy nem az excel megnyitásra teszed be a combobox populate opciót, hanem a combobox.change opcióra.
  Használd ezt:
  
  Sub Workbook_Open()
'ide tedd a kododat
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If

End Sub

• Postas99 őstag

  #3182

  #3181 Sátán44

  2023-01-16 15:35:50

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3181 Sátán44

  #3181 Sátán44

  Van egy excel táblázatom, amiben elhelyeztem egy Combox-ot. Amikor lenyitom a legördülő menüt üres a táblázat egészen addig, amíg egy karaktert nem írok be. Utána működik a találati lista szűrése.
  Szeretném, ha a táblázat megnyitást követően a legördülő gombra kattintva látható legyen az AL oszlopban feltöltött szöveg listám, majd ezután gépelve szűkítse a találatokat. Ez hogy oldható meg?

  Kód:
  
  Option Explicit
Private Comb_Arrow As Boolean

Private Sub ComboBox1_Change()
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If
 End Sub
 
 Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("szerepkorok").Range _
    ("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
End Sub

  Szia!

  Csak egy combobox vagy FORM-on levő combobox?

• Sátán44 addikt

  #3181 2022-12-14 15:22:30

  Új Válasz

  Ú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

  

  Sátán44

  addikt

  Van egy excel táblázatom, amiben elhelyeztem egy Combox-ot. Amikor lenyitom a legördülő menüt üres a táblázat egészen addig, amíg egy karaktert nem írok be. Utána működik a találati lista szűrése.
  Szeretném, ha a táblázat megnyitást követően a legördülő gombra kattintva látható legyen az AL oszlopban feltöltött szöveg listám, majd ezután gépelve szűkítse a találatokat. Ez hogy oldható meg?

  Kód:
  
  Option Explicit
Private Comb_Arrow As Boolean

Private Sub ComboBox1_Change()
Dim i As Long
        If Not Comb_Arrow Then
        With Me.ComboBox1
            .List = Worksheets("szerepkorok").Range("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
            .ListRows = Application.WorksheetFunction.Min(6, .ListCount)
            .DropDown
               If Len(.Text) Then
                    For i = .ListCount - 1 To 0 Step -1
                       If InStr(1, .List(i), .Text, vbTextCompare) = 0 Then .RemoveItem i
                         Next
                          .DropDown
                           End If
         End With
         End If
 End Sub
 
 Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Comb_Arrow = (KeyCode = vbKeyUp) Or (KeyCode = vbKeyDown)
    If KeyCode = vbKeyReturn Then Me.ComboBox1.List = Worksheets("szerepkorok").Range _
    ("AL4", Worksheets("szerepkorok").Cells(Rows.Count, "AL").End(xlUp)).Value
End Sub

• sztanozs veterán

  #3180

  #3179 Dian

  2022-10-12 17:11:07

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3179 Dian

  #3179 Dian

  Sziasztok,
  Nem tudom tud e vki segíteni nekem. Lenne egy megoldandóm, viszont sem a VBA-hoz sem a makrokhoz nem értek, így csak reménykedni tudok, hogy lesz vkinek egy kész megoldása.
  Köszönöm szépen előre

  Egy több lapból álló excel egyik lapfüléből (legyen ez védett 1) folyamatosan gyűjteni kellene, egy másik lapra automatikusan, hogy mikor, kicsoda, mit, miről, mire módosított. És nyilván ne lehessen kitörölni ezt a fület.
  A védett 1 lapfül, ahol módosítani lehet és ezt követni is szeretnénk, ott bizonyos oszlopokba csak bizonyos személyek írhatnak, de ezt egyszerű excel megoldással meg lehetett csinálni.

  A worksheet_change eseményre kell feliratkozni és ott felvinni az eseményt egy új lapra...

• Dian újonc

  #3179 2022-10-12 16:33:54

  Új Válasz

  Ú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

  

  Dian

  újonc

  Sziasztok,
  Nem tudom tud e vki segíteni nekem. Lenne egy megoldandóm, viszont sem a VBA-hoz sem a makrokhoz nem értek, így csak reménykedni tudok, hogy lesz vkinek egy kész megoldása.
  Köszönöm szépen előre

  Egy több lapból álló excel egyik lapfüléből (legyen ez védett 1) folyamatosan gyűjteni kellene, egy másik lapra automatikusan, hogy mikor, kicsoda, mit, miről, mire módosított. És nyilván ne lehessen kitörölni ezt a fület.
  A védett 1 lapfül, ahol módosítani lehet és ezt követni is szeretnénk, ott bizonyos oszlopokba csak bizonyos személyek írhatnak, de ezt egyszerű excel megoldással meg lehetett csinálni.

• sztanozs veterán

  #3178

  #3177 bszilvagyi

  2022-02-08 14:23:06

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3177 bszilvagyi

  #3177 bszilvagyi

  Sziasztok!
  Esetleg valaki foglalkozott már VB6 alatt webkamera kezeléssel? Elavult dolog, az egyszer biztos, de sajnos a célgép ennyit tesz lehetővé.
  
  Jelenleg az avicap32-vel működik a dolog, viszont a 640x480-as limit elég kevés, a kamera HD-t is tud.
  A program maga annyi, hogy egy gomb megnyomására az éppen látható képből elment egyet egy adott helyre.
  
  Olvastam, hogy DirectShow-val is meg lehetne oldani a dolgot, ha bárki tud valami érdemi dolgot hozzáfűzni, megköszönném.

  https://www.vbforums.com/showthread.php?708081-VB6-DirectShow-WebCam-Minimal-Code

• bszilvagyi csendes tag

  #3177 2022-02-08 13:26:53

  Új Válasz

  Ú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

  

  bszilvagyi

  csendes tag

  Sziasztok!
  Esetleg valaki foglalkozott már VB6 alatt webkamera kezeléssel? Elavult dolog, az egyszer biztos, de sajnos a célgép ennyit tesz lehetővé.
  
  Jelenleg az avicap32-vel működik a dolog, viszont a 640x480-as limit elég kevés, a kamera HD-t is tud.
  A program maga annyi, hogy egy gomb megnyomására az éppen látható képből elment egyet egy adott helyre.
  
  Olvastam, hogy DirectShow-val is meg lehetne oldani a dolgot, ha bárki tud valami érdemi dolgot hozzáfűzni, megköszönném.

• zakoss tag

  #3176 2022-02-02 12:36:23

  Új Válasz

  Ú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

  

  zakoss

  tag

  Sziasztok,

  Abban szeretnék segítséget kérni, hogy van-e valakinek olyan működő scriptje ami outlookban a kijelölt levelek mellékletek,csatolmányait (.docx, .pdf) kinyomtatja ha meghívom a makrót hozzá.

  Találtam hozzá oldalakat amiken kis átalakítást kellett hozzátenni, hogy működő legyen, viszont az alapértelmezett nyomtatóra nem küldi ki pl: Print Attachments on Selected Messages

  Előre is köszi a segítsgéget.

• Vladek83 tag

  #3175

  #3174 sztanozs

  2021-12-28 15:28:10

  Új Válasz

  Ú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

  

  Vladek83

  tag

  #3174 sztanozs

  #3174 sztanozs

  Ez csak két tizedesre formálja a kiíratást, ténylegesen nem kerekíti két tizedesre.

  Szerintem:
  TextBox1.Text = Format(Int(100*Val(TextBox1.Text))/100, "0.00")

  Szia,

  ezt találtam, ez most működik:

  Dim aNumber As Double = TextBox1.Text
      TextBox1.Text = aNumber.ToString("n2")

  [köszönöm] kipróbálom

• sztanozs veterán

  #3174

  #3173 Vladek83

  2021-12-27 10:10:38

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3173 Vladek83

  #3173 Vladek83

  Sziasztok!

  a következő kód nem azt csinálja, amit szeretnék, 2 tizedesig kellene, hogy számoljon, de sajnos kerekít.:

  TextBox1.Text = Format(Val(TextBox1.Text), "0.00")

  Turtam a netet, de eddig semmi..?

  Üdv,

  Ez csak két tizedesre formálja a kiíratást, ténylegesen nem kerekíti két tizedesre.

  Szerintem:
  TextBox1.Text = Format(Int(100*Val(TextBox1.Text))/100, "0.00")

• Vladek83 tag

  #3173 2021-12-24 13:24:16

  Új Válasz

  Ú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

  

  Vladek83

  tag

  Sziasztok!

  a következő kód nem azt csinálja, amit szeretnék, 2 tizedesig kellene, hogy számoljon, de sajnos kerekít.:

  TextBox1.Text = Format(Val(TextBox1.Text), "0.00")

  Turtam a netet, de eddig semmi..?

  Üdv,

• pmonitor aktív tag

  #3172

  #3171 sztanozs

  2021-11-30 15:37:08

  Új Válasz

  Ú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

  

  pmonitor

  aktív tag

  #3171 sztanozs

  #3171 sztanozs

  Ez milyen VB egyébként? VBA (Office), VB6 vagy VB.NET?

  Tuti, hogy .Net.

• sztanozs veterán

  #3171

  #3170 Diopapa

  2021-11-30 15:29:54

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3170 Diopapa

  #3170 Diopapa

  Köszi, hogy gondolkodtatok rajta, közben megoldottam. Public volt a változó, eddig ezzel nem volt gond ebben a formában csak most a BGW miatt. Most Public Shared lett és egyből átadta az egyik változó az értéket a másiknak.

  Köszi mégegyszer.

  Ez milyen VB egyébként? VBA (Office), VB6 vagy VB.NET?

• Diopapa addikt

  #3170 2021-11-30 14:24:56

  Új Válasz

  Ú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

  

  Diopapa

  addikt

  Köszi, hogy gondolkodtatok rajta, közben megoldottam. Public volt a változó, eddig ezzel nem volt gond ebben a formában csak most a BGW miatt. Most Public Shared lett és egyből átadta az egyik változó az értéket a másiknak.

  Köszi mégegyszer.

• sztanozs veterán

  #3169

  #3168 pmonitor

  2021-11-30 12:02:25

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3168 pmonitor

  #3168 pmonitor

  Igaz. De akkor meg kérdés, hogy BGW nélkül hogy olvassa ki? És még jól is működik Neki.

  Úgy működött gondolom, hogy a F2 függvénye vagy statikus volt, vagy magát az F2-t a BGW-ben példányosította (pl mint egy progress form).

• pmonitor aktív tag

  #3168

  #3167 sztanozs

  2021-11-30 11:53:35

  Új Válasz

  Ú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

  

  pmonitor

  aktív tag

  #3167 sztanozs

  #3167 sztanozs

  Igen, de a Formnak nem a UI Thread által piszkált részében akar bármit is csinálni.

  Igaz. De akkor meg kérdés, hogy BGW nélkül hogy olvassa ki? És még jól is működik Neki.

• sztanozs veterán

  #3167

  #3166 pmonitor

  2021-11-30 09:51:21

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3166 pmonitor

  #3166 pmonitor

  Miért? A Form nem Control?

  szerk.:
  Valahogy így lehet ezt megcsinálni:
  Imports System.Threading
Public Class Form1

Public variable As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync(Me)
Timer1.Start()
End Sub


Sub Update()
Text = variable
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim frm As Form1 = e.Argument
For i = 1 To 100
If (frm.InvokeRequired) Then frm.Invoke(New MethodInvoker(AddressOf Update), Nothing)
Thread.Sleep(1000)
Next
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
variable += 1
End Sub
End Class

  Igen, de a Formnak nem a UI Thread által piszkált részében akar bármit is csinálni.

• pmonitor aktív tag

  #3166

  #3165 sztanozs

  2021-11-30 09:44:07

  Új Válasz

  Ú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

  

  pmonitor

  aktív tag

  #3165 sztanozs

  #3165 sztanozs

  Nem egy kontrolhoz akar hozzáférni (amit amúgy kézzel lehet publikusnak is deklarálni, csak az IDE rakja alapból Private-ba) - ha elolvastad volna a kérdést -, hanem egy publikus változóhoz.

  Amúgy tervezésileg tényleg katyvasz, hogy egy BGW egy másik formon levő függvényt használ, de egy változóhoz vagy függvényhez való hozzáférés nem gond.

  Miért? A Form nem Control?

  szerk.:
  Valahogy így lehet ezt megcsinálni:
  Imports System.Threading
Public Class Form1

Public variable As Integer

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
BackgroundWorker1.RunWorkerAsync(Me)
Timer1.Start()
End Sub


Sub Update()
Text = variable
End Sub

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim frm As Form1 = e.Argument
For i = 1 To 100
If (frm.InvokeRequired) Then frm.Invoke(New MethodInvoker(AddressOf Update), Nothing)
Thread.Sleep(1000)
Next
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
variable += 1
End Sub
End Class

• sztanozs veterán

  #3165

  #3164 pmonitor

  2021-11-30 09:37:44

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3164 pmonitor

  #3164 pmonitor

  Ha egyik formból szeretnél hozzáférni egy másik form metódusához/változójához, az általában rossz program szerkezetre utal. Vb.Net-ben meg tudod oldani, hogy az ilyeneket modulban valósítod meg.

  @sztanozs: Meg ha átadná, akkor sem fér hozzá egy control-hoz a DoWork()-ban. Csoda, hogy egyáltalán nem száll el a futásidőben.

  Nem egy kontrolhoz akar hozzáférni (amit amúgy kézzel lehet publikusnak is deklarálni, csak az IDE rakja alapból Private-ba) - ha elolvastad volna a kérdést -, hanem egy publikus változóhoz.

  Amúgy tervezésileg tényleg katyvasz, hogy egy BGW egy másik formon levő függvényt használ, de egy változóhoz vagy függvényhez való hozzáférés nem gond.

• pmonitor aktív tag

  #3164

  #3162 Diopapa

  2021-11-30 09:32:53

  Új Válasz

  Ú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

  

  pmonitor

  aktív tag

  #3162 Diopapa

  #3162 Diopapa

  Sziasztok, egy kis segítség kellene... Van 2 formom, nevezzük az egyiket Egyesnek, a másikat Kettesnek. Az Egyes fő formon deklarálva van egy public változó. Erről a formról van meghívva egy backgroundworker. Ez a BGW a Kettes formon levő függvényt használ. Ezen a Kettes formon levő függvényben az Egyes formon levő public változó tartalmát "nothing"-nek látja. Ugyanezen függvény használata nem BGW-vel természetesen a változó valós értékét mutatja.

  Mit rontok el? Válaszaitokat előre is köszönöm!

  Ha egyik formból szeretnél hozzáférni egy másik form metódusához/változójához, az általában rossz program szerkezetre utal. Vb.Net-ben meg tudod oldani, hogy az ilyeneket modulban valósítod meg.

  @sztanozs: Meg ha átadná, akkor sem fér hozzá egy control-hoz a DoWork()-ban. Csoda, hogy egyáltalán nem száll el a futásidőben.

• sztanozs veterán

  #3163

  #3162 Diopapa

  2021-11-30 09:18:35

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3162 Diopapa

  #3162 Diopapa

  Sziasztok, egy kis segítség kellene... Van 2 formom, nevezzük az egyiket Egyesnek, a másikat Kettesnek. Az Egyes fő formon deklarálva van egy public változó. Erről a formról van meghívva egy backgroundworker. Ez a BGW a Kettes formon levő függvényt használ. Ezen a Kettes formon levő függvényben az Egyes formon levő public változó tartalmát "nothing"-nek látja. Ugyanezen függvény használata nem BGW-vel természetesen a változó valós értékét mutatja.

  Mit rontok el? Válaszaitokat előre is köszönöm!

  Nem adod át a kettes formnak az egyes form létrehozott objektumának a referenciáját.
  Ha esetleg Static változó lenne, akkor erre nem lenne szükség, de ez nem egy szép megoldás.

• Diopapa addikt

  #3162 2021-11-30 07:01:01

  Új Válasz

  Ú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

  

  Diopapa

  addikt

  Sziasztok, egy kis segítség kellene... Van 2 formom, nevezzük az egyiket Egyesnek, a másikat Kettesnek. Az Egyes fő formon deklarálva van egy public változó. Erről a formról van meghívva egy backgroundworker. Ez a BGW a Kettes formon levő függvényt használ. Ezen a Kettes formon levő függvényben az Egyes formon levő public változó tartalmát "nothing"-nek látja. Ugyanezen függvény használata nem BGW-vel természetesen a változó valós értékét mutatja.

  Mit rontok el? Válaszaitokat előre is köszönöm!

• lenkei83 tag

  #3161

  #3160 sztanozs

  2021-10-18 09:31:33

  Új Válasz

  Ú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

  

  lenkei83

  tag

  #3160 sztanozs

  #3160 sztanozs

  Mert ez csak az 'activecell'-re működik (az a cella, ami ki van jelölve).
  Ráadásul alapból egy UDF (User Defined Function) nem módosíthatja azt a cellát, ami meghívta, szóval csak trükközéssel működik.

  Szia!

  Közben az Excel fórumban kitárgyaltuk, feltöltöttem ide a táblát: [https://1drv.ms/x/s!Ans3TmRiC9RGhaMx1z_INz4zg7X91Q?e=lSc26r]

• sztanozs veterán

  #3160

  #3159 lenkei83

  2021-10-18 09:27:31

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3159 lenkei83

  #3159 lenkei83

  Sziasztok!

  Mi lehet a kód mögötte? [link]

  Ez részben működik:     Public Function rgb_colorincell(Red As Integer, Green As Integer, Blue As Integer) As Long
    
    ActiveCell.Interior.Color = rgb(Red, Green, Blue)
    
    End Function

  
  Itt csak annyi a baj, hogy ha lehúzom a képletet több cellára, akkor viszont nem működik. Minden egyes cellába kézzel kell betolni a képletet.

  Köszi
  P.

  Mert ez csak az 'activecell'-re működik (az a cella, ami ki van jelölve).
  Ráadásul alapból egy UDF (User Defined Function) nem módosíthatja azt a cellát, ami meghívta, szóval csak trükközéssel működik.

• lenkei83 tag

  #3159 2021-10-17 10:12:20

  Új Válasz

  Ú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

  

  lenkei83

  tag

  Sziasztok!

  Mi lehet a kód mögötte? [link]

  Ez részben működik:     Public Function rgb_colorincell(Red As Integer, Green As Integer, Blue As Integer) As Long
    
    ActiveCell.Interior.Color = rgb(Red, Green, Blue)
    
    End Function

  
  Itt csak annyi a baj, hogy ha lehúzom a képletet több cellára, akkor viszont nem működik. Minden egyes cellába kézzel kell betolni a képletet.

  Köszi
  P.

• Hege1234 addikt

  #3158 2021-09-29 12:07:02

  Új Válasz

  Ú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

  

  Hege1234

  addikt

  Sziasztok! (windows 10)

  egy .vbs fájlt szeretnék indítani a windows-al együtt amit egy paranccsal
  be is tesz a startup mappába (a hibaüzenet ellenére a fájl ott van)
  (trakts autostart enable létrehozza a .vbs fájlt)
  trakt-scrobbler.vbs
  CreateObject("Wscript.Shell").Run "trakts run", 0, False

  ezt a hibaüzenetet kapom
  

  Trakt Scrobbler github link

  simán a trakts run-t beírva a cmd ablakba hibátlanul működik
  de ugye ilyenkor háttérbe futtatja, gondolom mert semmire nem reagál csak villog a kurzor
  és egy másik cmd ot futtatva látom, hogy aktív a státusz és ha indítok valamit akkor már szinkronizálja is a trakt-al

  próbáltam azt is, hogy egy .bat fájlba beírom csak a "trakts run" -t és feladatütemezésnél hozzáadom, hogy rejtettként fusson minden bejelentkezésnél de az sem működött mert a trakts status -ra
  The scrobbler is not running üzenet jött

  lehet ez inkább windows-os hiba lesz
  vagy a vbs-ben lévő sor hibás?

  köszi előre is!

• sztanozs veterán

  #3157

  #3156 dettyjoe

  2021-03-26 14:31:45

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3156 dettyjoe

  #3156 dettyjoe

  Sziasztok,
  Mindenekelőtt valamennyiötöknek eredményekben gazdag, boldog újesztendőt kívánok.
  Soha nem írtam még fórumra, de most elakadtam. Abban szeretnék segítséget kérni, hogy egy gombbal (Command Button) hogyan lehet egy ciklust leállítani, majd ugyanazzal a gombbal úfolytatni a ciklust. Mindezt Visual Basic-ban képzeltem el.
  Ha valaki segítene, azt nagyon megköszönném.
  Szervusztok,
  JoePapa

  VB6, VBA vagy VB.NET (esetleg vbscript)?

• dettyjoe újonc

  #3156 2020-12-30 09:13:03

  Új Válasz

  Ú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

  

  dettyjoe

  újonc

  Sziasztok,
  Mindenekelőtt valamennyiötöknek eredményekben gazdag, boldog újesztendőt kívánok.
  Soha nem írtam még fórumra, de most elakadtam. Abban szeretnék segítséget kérni, hogy egy gombbal (Command Button) hogyan lehet egy ciklust leállítani, majd ugyanazzal a gombbal úfolytatni a ciklust. Mindezt Visual Basic-ban képzeltem el.
  Ha valaki segítene, azt nagyon megköszönném.
  Szervusztok,
  JoePapa

• sztanozs veterán

  #3155

  #3154 tintoretto

  2020-12-10 08:37:36

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3154 tintoretto

  #3154 tintoretto

  Köszönöm a segítséget!

  (Egyszerű gyerekként azt hittem, jó helyen járok.)
  Jó lesz ez makro nélkül is nekem!

  Jó helyen jártál, csak ehhez nem kell makró.

• tintoretto csendes tag

  #3154 2020-12-09 21:48:35

  Új Válasz

  Ú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

  

  tintoretto

  csendes tag

  Köszönöm a segítséget!

  (Egyszerű gyerekként azt hittem, jó helyen járok.)
  Jó lesz ez makro nélkül is nekem!

• Fire/SOUL/CD félisten

  #3153

  #3152 tintoretto

  2020-12-09 16:58:31

  Új Válasz

  Ú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

  

  Fire/SOUL/CD

  félisten

  #3152 tintoretto

  #3152 tintoretto

  Sziasztok.
  Segítségre lenne szükségem Excel 2013-hoz.
  Van egy 28*28-as (azaz 784 elemű) táblázatom, aminek minden
  celláját át kellene szerkesztenem. Ilyesmit tartalmaz minden cella, hogy:
  "=HA(ÉS(T!$AZ$4="";T!$BB$4="";T!$BA$4=":");(HOL.VAN($O$2;'S'!$B$5:$B$31;0)+1)/2;"")".
  Természetesen mindegyik más cellahivatkozásokkal, egy részük kitölthető lenne, egy részük nem. Szóval az az út nem ezért sem járható, meg az abszolút hivatkozások miatt sem.
  Az lenne a művelet, hogy minden cellatartalom függvényben az 1. és a 2. egyenlőségjelet <> jelekre szeretném átírni.Akár úgy is jó, hogy manuálisan pozicionálom a kurzort és makró futtatás, majd újra pozicionálom a kurzort, újra futtatás, és így tovább.
  Arra gondoltam, hogy talán egy makróval meg lehetne oldani (de a VBA-t sajnos nem ismerem)
  Tudna valaki segíteni?

  Sima Keresés és csere opcióval is kivitelezhető.
  # CTRL+H
  # Keresett szöveg: ="" (macskakörmök közt nincs szóköz)
  # Csere erre: <>"" (macskakörmök közt nincs szóköz)
  # Listába mind
  # CTRL+A
  # Az összes cseréje
  Arra ügyelj, ha azon a 28*28 cellamátrixon kívül is vannak képletet tartalmazó cellák és azokban is megtalálható az ="", akkor azokban is le fog így cserélődni ez esetben. Ilyenkor annyit lehet tenni, hogy a Listába mind után a listaelemek közül kitörlöd azokat, amelyek nem a 28*28 tartományba esnek. Egy vagy több listaelemet is ki lehet jelölni és DEL-el kitörölni a listából. Ha ez megvan, csak ezt követően lehet az Összes cseréjére menni...

  Mindez képben | Eredménye

  A Te eredeti képleteden csak annyit módosítottam, hogy a külső táblahivatkozásokat kiszedtem belőle, ezért üresek azok a cellák, amikben amúgy a képletek találhatóak....

  Ui: Legközelebb a Microsoft Excel topic-ban tegyél fel ilyen jellegű kérdést.
  Segítőkész és jó koponyák vannak ott, ha szükséges, akkor a VBA kódban is kaphatsz segítséget.

• tintoretto csendes tag

  #3152 2020-12-09 15:23:13

  Új Válasz

  Ú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

  

  tintoretto

  csendes tag

  Sziasztok.
  Segítségre lenne szükségem Excel 2013-hoz.
  Van egy 28*28-as (azaz 784 elemű) táblázatom, aminek minden
  celláját át kellene szerkesztenem. Ilyesmit tartalmaz minden cella, hogy:
  "=HA(ÉS(T!$AZ$4="";T!$BB$4="";T!$BA$4=":");(HOL.VAN($O$2;'S'!$B$5:$B$31;0)+1)/2;"")".
  Természetesen mindegyik más cellahivatkozásokkal, egy részük kitölthető lenne, egy részük nem. Szóval az az út nem ezért sem járható, meg az abszolút hivatkozások miatt sem.
  Az lenne a művelet, hogy minden cellatartalom függvényben az 1. és a 2. egyenlőségjelet <> jelekre szeretném átírni.Akár úgy is jó, hogy manuálisan pozicionálom a kurzort és makró futtatás, majd újra pozicionálom a kurzort, újra futtatás, és így tovább.
  Arra gondoltam, hogy talán egy makróval meg lehetne oldani (de a VBA-t sajnos nem ismerem)
  Tudna valaki segíteni?

• sztanozs veterán

  #3151

  #3149 szkristof05

  2020-11-19 14:05:51

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3149 szkristof05

  #3149 szkristof05

  Köszönöm szépen a válaszát! Légyszíves el küldené nekem a kódsort hogy hogyan lehet növelni a cache méretét?

  Mivel a sávszélessség kevés (vsz szerver oldalon), így a nagyobb cache mérettel sem lehet megoldani a problémát. Csak annyi lenne az eremény, hogy nem 4 mp-ként "csatlakozna újra" 3 mp-ig, hanem pl 10 mp-enként 6 mp-ig nem lenne adás.

• Postas99 őstag

  #3150 2020-11-18 19:00:12

  Új Válasz

  Ú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

  

  Postas99

  őstag

  Matek guru vagy XOR guru segítsége kéne.

  Adott a következő proléma:
  X= Y XOR (Y>>1)
  X értékét tudom.
  Van-e erre nem BRUTE FORCE megoldás valamilyen bit eltolásos módszerben.
  Igazán azért lenne fontos mert ezt a műveletet egymásra épülően kell elvégezni. A kiszámolt Y érték a következő X értéke.
  Előre is köszönöm.

• szkristof05 tag

  #3149

  #3148 sztanozs

  2020-08-20 00:18:44

  Új Válasz

  Ú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

  

  szkristof05

  tag

  #3148 sztanozs

  #3148 sztanozs

  Lassabb a stream letöltési sebessége, mint az adás bitrátája, ezért mindig kifut a letöltött tartalomból (vagy pedig a szerverről kifut a letölthető stream, így a szerver bontja a kapcsolatot). Lehet növelni a cache méretét, de ez csak azt fogja hozni, hogy ritkábban csatlakozik le (ha nem a szerver bont le), viszont újracsatlakozásnál többet kell várni.
  Sokat nem lehet ez ellen tenni.
  Esetleg az segíthet, ha szerzel olyan hozzáférést (tipikusan VPN), ahonnan nagyobb letöltési sebességgel érhető el a stream.

  Köszönöm szépen a válaszát! Légyszíves el küldené nekem a kódsort hogy hogyan lehet növelni a cache méretét?

• sztanozs veterán

  #3148

  #3147 szkristof05

  2020-08-18 09:54:44

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3147 szkristof05

  #3147 szkristof05

  Sziasztok!
  Segítségeteket kérném! Az a problémám hogy van egy Windows media playerem a programomban és hozzá van rendelve különbözö tv csatornáknak a stream linkjei és sok tv csatorna azt csinálja hogy kb 4 másodpercenként újra csatlakozik!
  Tudnátok ebben segíteni hogy ne csinálja ezt?
  Sehol se találtam erre a hibára megoldást

  Lassabb a stream letöltési sebessége, mint az adás bitrátája, ezért mindig kifut a letöltött tartalomból (vagy pedig a szerverről kifut a letölthető stream, így a szerver bontja a kapcsolatot). Lehet növelni a cache méretét, de ez csak azt fogja hozni, hogy ritkábban csatlakozik le (ha nem a szerver bont le), viszont újracsatlakozásnál többet kell várni.
  Sokat nem lehet ez ellen tenni.
  Esetleg az segíthet, ha szerzel olyan hozzáférést (tipikusan VPN), ahonnan nagyobb letöltési sebességgel érhető el a stream.

• szkristof05 tag

  #3147 2020-08-17 18:23:24

  Új Válasz

  Ú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

  

  szkristof05

  tag

  Sziasztok!
  Segítségeteket kérném! Az a problémám hogy van egy Windows media playerem a programomban és hozzá van rendelve különbözö tv csatornáknak a stream linkjei és sok tv csatorna azt csinálja hogy kb 4 másodpercenként újra csatlakozik!
  Tudnátok ebben segíteni hogy ne csinálja ezt?
  Sehol se találtam erre a hibára megoldást

• sztanozs veterán

  #3146

  #3144 Bazs87

  2020-06-22 12:33:02

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3144 Bazs87

  #3144 Bazs87

  Sziasztok!

  Talán él még valaki, aki a témával foglalkozik

  A következő problémában szeretném az esetleges segítségeteket kérni:

  Mintát szeretnék kérni egy 4*4-es mátrix invertálásához.
  Valaki csinált már esetleg hasonlót?

  Nagyon rég volt már lináris algebra, de általánosságban VB-ben vagy használsz valami erre a célra kifejlesztetett cél-csomagot (dll vagy ocx) vagy megírod a kalkulációt kézzel. Mire szeretnéd használni a mátrix inverzét?

• Postas99 őstag

  #3145

  #3144 Bazs87

  2020-06-20 23:24:18

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3144 Bazs87

  #3144 Bazs87

  Sziasztok!

  Talán él még valaki, aki a témával foglalkozik

  A következő problémában szeretném az esetleges segítségeteket kérni:

  Mintát szeretnék kérni egy 4*4-es mátrix invertálásához.
  Valaki csinált már esetleg hasonlót?

  a mátrix elemeket akarod felcserélni ? 1-16 csere 1->16->1 erre gondolsz? Jól értem?

• Bazs87 tag

  #3144 2020-06-19 16:59:15

  Új Válasz

  Ú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

  

  Bazs87

  tag

  Sziasztok!

  Talán él még valaki, aki a témával foglalkozik

  A következő problémában szeretném az esetleges segítségeteket kérni:

  Mintát szeretnék kérni egy 4*4-es mátrix invertálásához.
  Valaki csinált már esetleg hasonlót?

• Mr. Y őstag

  #3143

  #3139 Postas99

  2020-05-26 12:44:33

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3139 Postas99

  #3139 Postas99

  Válasszuk ketté:

  1, Megszámolod a COM portokat.
  2, hozzádadod a combobox elemeihez.

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next
        ComboBox1.Sorted = True

  _________________________________________
  HA van COM PORT (COM1,COM2,COM3)
  akkor kiválasztod az alapértelmezettnek a legelsőnek megtalált értéket, természetesen ha az kell akkor a sorted-et ki lehet venni, ha sorba akarod rendezni akkor ezzel szebb lesz az eredmény.

   If ComboBox1.TabIndex <> 0 Then
            ComboBox1.SelectedIndex = 0
        End If
  Mi lenne ha ezt használnád?

  Sehogyan sem megy.
  Szerintem nem a programban van a hiba, ha egyszer az egyik gépen megy, a másikon pedig nem.

• sztanozs veterán

  #3142

  #3140 Papa100

  2020-05-21 16:05:19

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3140 Papa100

  #3140 Papa100

  Kedves Fórumozók!
  Nem boldogulok az alábbi feladattal. Egy QR kódot szeretnék excel táblába menteni.
  A QR kódot Internet Explorerrel online generálom, és az IE oldalról kellene átmásolni a munkalapra. A QR megjelenik az Explorer oldalon, de nem tudom átmásolni.
  Sub FillInternet2()
Dim IE As Object
Dim adat As String
adat = "https://chart.googleapis.com/chart?chs=200x200&cht=qr&chl=BEGIN:VCARD%0AN:Teszt%20Elek%0AEND:VCARD"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate adat
While IE.ReadyState <> 4
DoEvents
Wend
IE.Visible = True
    For Each itm In IE.document.all
            n = n + 1
             Cells(20 + n, 1) = itm
                If itm = "[object HTMLImageElement]" Then
                'Cells(2, 27) = Img.getAttribute("src")
                End If
     Next
IE.Quit
End Sub
Segítségeteket előre is nagyon köszönöm.
  

  Option Explicit

'Használata:
'GenerateQR Range("B2"), "https://chart.googleapis.com/chart?chs=200x200&cht=qr&chl=BEGIN:VCARD%0AN:Teszt%20Elek%0AEND:VCARD"
'
Public Sub GenerateQR(R As Range, Url As String)
Dim im As Object
Set im = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Image.1", Link:=False, DisplayAsIcon:=False, Left:=R.Left, Top:=R.Top + 2, Width:=1, Height:=1)
im.Object.AutoSize = True
im.Object.BorderStyle = 0
im.Object.PictureAlignment = 0
Set im.Object.Picture = GetPicture(Url)
R.ColumnWidth = im.Width * 0.141 * 1.333
R.RowHeight = im.Height + 4
End Sub

Private Function GetPicture(Url As String) As StdPicture
Dim wv As Object
Set wv = CreateObject("WIA.Vector")
wv.BinaryData = GetWebData(Url)
Set GetPicture = wv.Picture
Set wv = Nothing
End Function

Private Function GetWebData(Url As String) As Byte()
Dim objHTTP
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
objHTTP.Open "GET", Url, False
objHTTP.Send
If objHTTP.statusText = "OK" Then
GetWebData = objHTTP.ResponseBody
End If
Set objHTTP = Nothing
End Function

• bsh addikt

  #3141

  #3136 sztanozs

  2020-05-21 14:49:11

  Új Válasz

  Ú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

  

  bsh

  addikt

  #3136 sztanozs

  #3136 sztanozs

  Tehát neked volt VB6 kódod, és abból szeretnél VB.NET-et csinálni?

  nem VB, hanem VBA (és elvileg nem 6 hanem 7), és nem szerettem volna vb.net-re átültetni, hanem VBA-ból VB-be és futtatható programot csinálni belőle (tudtommal VBA-ból nem lehet). a vb.net onnan jött, hogy google kereső szerint VB-t visual studioval kell fejleszteni. azt nem említette, hogy az vb.NET...
  de már kész van a program.

• Papa100 csendes tag

  #3140 2020-05-21 14:10:53

  Új Válasz

  Ú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

  

  Papa100

  csendes tag

  Kedves Fórumozók!
  Nem boldogulok az alábbi feladattal. Egy QR kódot szeretnék excel táblába menteni.
  A QR kódot Internet Explorerrel online generálom, és az IE oldalról kellene átmásolni a munkalapra. A QR megjelenik az Explorer oldalon, de nem tudom átmásolni.
  Sub FillInternet2()
Dim IE As Object
Dim adat As String
adat = "https://chart.googleapis.com/chart?chs=200x200&cht=qr&chl=BEGIN:VCARD%0AN:Teszt%20Elek%0AEND:VCARD"
Set IE = CreateObject("InternetExplorer.Application")
IE.navigate adat
While IE.ReadyState <> 4
DoEvents
Wend
IE.Visible = True
    For Each itm In IE.document.all
            n = n + 1
             Cells(20 + n, 1) = itm
                If itm = "[object HTMLImageElement]" Then
                'Cells(2, 27) = Img.getAttribute("src")
                End If
     Next
IE.Quit
End Sub
Segítségeteket előre is nagyon köszönöm.
  

• Postas99 őstag

  #3139

  #3138 Mr. Y

  2020-05-20 19:52:08

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3138 Mr. Y

  #3138 Mr. Y

  Most lefordul és visszajött az eredeti probléma, ami az egyes gépen nem állt fent.

  

  Válasszuk ketté:

  1, Megszámolod a COM portokat.
  2, hozzádadod a combobox elemeihez.

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next
        ComboBox1.Sorted = True

  _________________________________________
  HA van COM PORT (COM1,COM2,COM3)
  akkor kiválasztod az alapértelmezettnek a legelsőnek megtalált értéket, természetesen ha az kell akkor a sorted-et ki lehet venni, ha sorba akarod rendezni akkor ezzel szebb lesz az eredmény.

   If ComboBox1.TabIndex <> 0 Then
            ComboBox1.SelectedIndex = 0
        End If
  Mi lenne ha ezt használnád?

• Mr. Y őstag

  #3138

  #3137 Postas99

  2020-05-20 19:14:56

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3137 Postas99

  #3137 Postas99

  2 textbox kell pl.

  majd ennyit tegyél hozzá (dupla katt a texbox1-re majd kód beillesztés:
  TextBox2.Text = ""
        For Each c As Char In TextBox1.Text
            TextBox2.Text &= Convert.ToString(Convert.ToInt32(c), 16)
        Next

  Most lefordul és visszajött az eredeti probléma, ami az egyes gépen nem állt fent.

  

• Postas99 őstag

  #3137

  #3135 Mr. Y

  2020-05-20 16:03:49

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3135 Mr. Y

  #3135 Mr. Y

  Független kérdés:

  Van módja annak, hogy egy szöveget ne ASCII formátumban jelenítsen meg, hanem HEX vagy BIN-ben?
  Vagy ezt a fordítót nekem kell megírnom?

  2 textbox kell pl.

  majd ennyit tegyél hozzá (dupla katt a texbox1-re majd kód beillesztés:
  TextBox2.Text = ""
        For Each c As Char In TextBox1.Text
            TextBox2.Text &= Convert.ToString(Convert.ToInt32(c), 16)
        Next

• sztanozs veterán

  #3136

  #3123 bsh

  2020-05-20 10:26:05

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3123 bsh

  #3123 bsh

  nem excelről van szó, honnan veszitek ezt? köze nincs hozzá. miért gondol mindenki excel-re ha VBA merül fel? egy mysql adatbázis turkáló program ez. (és az a része működik is. bár az se volt egyszerű...) egyetlen függőség egy mysql odbc connector driver ado-n keresztül, de lehet anélkül is meg lehetne oldani a kapcsolatot.
  igazából nem nagyon tudom, mi a vb.NET. nem nagyon akarnék .net függőségeket.
  nem akarom winforms-ba átrakni, hanem a visual studió ilyen userformot hoz létre miután létrehoztam egy VB projektet, és csak winforms elemek vannak. comboboxra nem is találok multicolumn-ról semmit, egyáltalán, tulajdonságainál sincs. a winforms-os CB az ennyire más?
  sokszáz szintaktikai eltérés és hiba volt, ezeket végigjavítottam vagy kikommenteltem, most lefordíja hiba nélkül a programot és megjelenik a form és látom, hogy az sql lekérdezések is mennek rendben. most igazából csak a triviális dolgokkal van egyelőre gond: a különböző comboboxok feltöltése (statikus) szövegekkel, eredmények megjelenítése (na az szép lesz, vba listbox helyett listview vagy datagrid lesz...)

  akkor úgy kérdezem: hogy fogjak hozzá egy ilyen VBA->standalone exe művelethez? a net szerint a visual studio a módja. azt se ismerem.

  Tehát neked volt VB6 kódod, és abból szeretnél VB.NET-et csinálni?

• Mr. Y őstag

  #3135

  #3133 Postas99

  2020-05-20 06:11:38

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3133 Postas99

  #3133 Postas99

  Ezeket próbáltad már?

  [link] [link]
  Valójában mindkettő azt mondja, zárd be a VS-t majd töröld a .vs könyvtárat és a .suo fájlt madj indítsd el a VS-t és próbáld újra

  Független kérdés:

  Van módja annak, hogy egy szöveget ne ASCII formátumban jelenítsen meg, hanem HEX vagy BIN-ben?
  Vagy ezt a fordítót nekem kell megírnom?

• Mr. Y őstag

  #3134

  #3133 Postas99

  2020-05-19 20:31:44

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3133 Postas99

  #3133 Postas99

  Ezeket próbáltad már?

  [link] [link]
  Valójában mindkettő azt mondja, zárd be a VS-t majd töröld a .vs könyvtárat és a .suo fájlt madj indítsd el a VS-t és próbáld újra

  Mindenképpen megnézem, aztán visszajelzek. Köszi

• Postas99 őstag

  #3133

  #3132 Mr. Y

  2020-05-19 20:26:06

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3132 Mr. Y

  #3132 Mr. Y

  Szintén ugyan az. Fordításnál Error

  Ezeket próbáltad már?

  [link] [link]
  Valójában mindkettő azt mondja, zárd be a VS-t majd töröld a .vs könyvtárat és a .suo fájlt madj indítsd el a VS-t és próbáld újra

• Mr. Y őstag

  #3132

  #3128 Postas99

  2020-05-19 20:16:37

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3128 Postas99

  #3128 Postas99

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next

  Szintén ugyan az. Fordításnál Error

• Postas99 őstag

  #3131

  #3129 bsh

  2020-05-19 20:15:20

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3129 bsh

  #3129 bsh

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

  Mi lenne a cél?

  Miért nem használsz inkább DGV-t?
  Vagy az lenne a fontos hogy a comboboxba feltöltött elemeket ki tudd választani?
  Mert ha túl nagy a populate érték ez a combobox dolog elfajulhat és qrva szar onnan bármilyen adatot könnyen kiválasztani.
  Ehhez képest a datagridview ugyanúgy feltölthető ha sok az elem benne akkor még scrollozható is és onnan is ki lehet szedni current cell value-t.

  Szóval mi lenne a cél?

• Postas99 őstag

  #3130

  #3129 bsh

  2020-05-19 19:43:19

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3129 bsh

  #3129 bsh

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

  VBA-t írtál. VBA!=VB.NET
  Idézlek ha nem gond: "De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez."

  [Gugliztam helyetted] gondolom erre lenne szükséged

• bsh addikt

  #3129

  #3127 Postas99

  2020-05-19 19:29:39

  Új Válasz

  Ú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

  

  bsh

  addikt

  #3127 Postas99

  #3127 Postas99

  A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.

  [Informálódj]

  A VBA mint írtad az office közös makró nyelve
  hol írtam én ilyet?
  combobox feltöltése sql adatokkal az megy, köszi.
  multicolumn combobox-hoz építő jellegű hozzászólás?
  vagy ha az nem megoldható, akkor mi legyen helyette?

• Postas99 őstag

  #3128

  #3126 Mr. Y

  2020-05-19 19:18:33

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3126 Mr. Y

  #3126 Mr. Y

  Szerintem igen (egyszerre sosincs itt a két gép). Mindkettő 64Bites, így azt gyanítom, hogy azonosak a beállítások is. A debug meg a futtatás, csak más környezetből jöttem

   For Each sp As String In My.Computer.Ports.SerialPortNames
            ComboBox1.Items.Add(sp)
        Next

• Postas99 őstag

  #3127

  #3123 bsh

  2020-05-19 19:10:47

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3123 bsh

  #3123 bsh

  nem excelről van szó, honnan veszitek ezt? köze nincs hozzá. miért gondol mindenki excel-re ha VBA merül fel? egy mysql adatbázis turkáló program ez. (és az a része működik is. bár az se volt egyszerű...) egyetlen függőség egy mysql odbc connector driver ado-n keresztül, de lehet anélkül is meg lehetne oldani a kapcsolatot.
  igazából nem nagyon tudom, mi a vb.NET. nem nagyon akarnék .net függőségeket.
  nem akarom winforms-ba átrakni, hanem a visual studió ilyen userformot hoz létre miután létrehoztam egy VB projektet, és csak winforms elemek vannak. comboboxra nem is találok multicolumn-ról semmit, egyáltalán, tulajdonságainál sincs. a winforms-os CB az ennyire más?
  sokszáz szintaktikai eltérés és hiba volt, ezeket végigjavítottam vagy kikommenteltem, most lefordíja hiba nélkül a programot és megjelenik a form és látom, hogy az sql lekérdezések is mennek rendben. most igazából csak a triviális dolgokkal van egyelőre gond: a különböző comboboxok feltöltése (statikus) szövegekkel, eredmények megjelenítése (na az szép lesz, vba listbox helyett listview vagy datagrid lesz...)

  akkor úgy kérdezem: hogy fogjak hozzá egy ilyen VBA->standalone exe művelethez? a net szerint a visual studio a módja. azt se ismerem.

  A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.

  [Informálódj]

• Mr. Y őstag

  #3126

  #3125 Postas99

  2020-05-19 19:07:31

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3125 Postas99

  #3125 Postas99

  Mindkért fordítás ugyanúgy van beállítva?
  ANYCPU vagy X86, X64?
  Itt lesz a kutya elásva, mi van a debug résszel?

  Szerintem igen (egyszerre sosincs itt a két gép). Mindkettő 64Bites, így azt gyanítom, hogy azonosak a beállítások is. A debug meg a futtatás, csak más környezetből jöttem

• Postas99 őstag

  #3125

  #3118 Mr. Y

  2020-05-19 18:53:12

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3118 Mr. Y

  #3118 Mr. Y

  Eddig futtatásnál volt a probléma.
  Most, hogy használtam a feltételt, már meg sem jelöli a gondot, fordításnál dobja ezt ki:

  

  Ugyan ez, ha az egészet belerakom

  Mindkért fordítás ugyanúgy van beállítva?
  ANYCPU vagy X86, X64?
  Itt lesz a kutya elásva, mi van a debug résszel?

• Mr. Y őstag

  #3124

  #3119 sztanozs

  2020-05-19 17:57:24

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3119 sztanozs

  #3119 sztanozs

  Esetleg, ha ez az if feltétel?
  If Combobox1.Items.Count > 0 Then

  Ugyan ez az eredmény

• bsh addikt

  #3123

  #3121 sztanozs

  2020-05-19 17:41:10

  Új Válasz

  Ú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

  

  bsh

  addikt

  #3121 sztanozs

  #3121 sztanozs

  ez nem ilyen egyszerű - mivel az office nem ismeri a VB.NET-et, csak a VBA-t, csak úgy tudod átrakni winforms-ba, ha onnan oldod meg a teljes excel manipulációt - tehát a felhasználót nem hagyod az excelben matatni.

  nem excelről van szó, honnan veszitek ezt? köze nincs hozzá. miért gondol mindenki excel-re ha VBA merül fel? egy mysql adatbázis turkáló program ez. (és az a része működik is. bár az se volt egyszerű...) egyetlen függőség egy mysql odbc connector driver ado-n keresztül, de lehet anélkül is meg lehetne oldani a kapcsolatot.
  igazából nem nagyon tudom, mi a vb.NET. nem nagyon akarnék .net függőségeket.
  nem akarom winforms-ba átrakni, hanem a visual studió ilyen userformot hoz létre miután létrehoztam egy VB projektet, és csak winforms elemek vannak. comboboxra nem is találok multicolumn-ról semmit, egyáltalán, tulajdonságainál sincs. a winforms-os CB az ennyire más?
  sokszáz szintaktikai eltérés és hiba volt, ezeket végigjavítottam vagy kikommenteltem, most lefordíja hiba nélkül a programot és megjelenik a form és látom, hogy az sql lekérdezések is mennek rendben. most igazából csak a triviális dolgokkal van egyelőre gond: a különböző comboboxok feltöltése (statikus) szövegekkel, eredmények megjelenítése (na az szép lesz, vba listbox helyett listview vagy datagrid lesz...)

  akkor úgy kérdezem: hogy fogjak hozzá egy ilyen VBA->standalone exe művelethez? a net szerint a visual studio a módja. azt se ismerem.

• Delila_1 veterán

  #3122

  #3120 bsh

  2020-05-19 17:14:04

  Új Válasz

  Ú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

  

  Delila_1

  veterán

  #3120 bsh

  #3120 bsh

  Sziasztok,
  lenne egy nagyon láma kérdésem, és valamiért google-el se találtam rá választ.
  Előrebocsájtom, hogy VB-ről fingom sincs, se Visual Studióról De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez. Ezt gondoltam egy külön önálló alkalmazásként megírni, mivel azt hallottam, hogy "rendkívül egyszerű VBA-ról VB-re átteni egy kódot, szinte ugyanaz a kettő, stb..." Hát egyelőre nem így látom...
  Szóval sok problémát megoldottam, de ilyen triviálisakra nem találok megoldást:
  VBA userform-on activex combobox, két oszloppal, amiből csak egy látszik, a boundcolumn az amelyik nem látszik. (columnwidth=0)
  példa:
  megjelenő szöveg: valós érték (ami nem jelenik meg, mondjuk egy sql id):
józsi 125540
manci 65981
benő 8989898

  VS-ben meg winforms.comboxot használ (meg .net-et???), és ott nem bírok sehogy ilyen kétoszlopos-boundcolumnos dolgot csinálni. Hogy kellene ezt?
  Vagy lehet valahogy olyan projektet létrehozni, ahol nem winforms-t használ, hanem activex-et, és akkor tényleg elég triviális lenne átteni a kódot.

  A RowSource tulajdonságnál megadod a lista tartományát, a címsor nélkül, pl. Munka1!A2:B15, ahol az első a címsor.
  Beállítod az oszlopok számát a ColumnCount-nál. Az egyes oszlopok szélességét a ColumnWidths tulajdonsághoz írd be pont mértékegységben, pontosvesszőkkel elválasztva az adatokat.
  Ha címsort is akarsz látni, akkor A1-től add meg a tartományt, és a ColumnHeads legyen True.

• sztanozs veterán

  #3121

  #3120 bsh

  2020-05-19 17:12:09

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3120 bsh

  #3120 bsh

  Sziasztok,
  lenne egy nagyon láma kérdésem, és valamiért google-el se találtam rá választ.
  Előrebocsájtom, hogy VB-ről fingom sincs, se Visual Studióról De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez. Ezt gondoltam egy külön önálló alkalmazásként megírni, mivel azt hallottam, hogy "rendkívül egyszerű VBA-ról VB-re átteni egy kódot, szinte ugyanaz a kettő, stb..." Hát egyelőre nem így látom...
  Szóval sok problémát megoldottam, de ilyen triviálisakra nem találok megoldást:
  VBA userform-on activex combobox, két oszloppal, amiből csak egy látszik, a boundcolumn az amelyik nem látszik. (columnwidth=0)
  példa:
  megjelenő szöveg: valós érték (ami nem jelenik meg, mondjuk egy sql id):
józsi 125540
manci 65981
benő 8989898

  VS-ben meg winforms.comboxot használ (meg .net-et???), és ott nem bírok sehogy ilyen kétoszlopos-boundcolumnos dolgot csinálni. Hogy kellene ezt?
  Vagy lehet valahogy olyan projektet létrehozni, ahol nem winforms-t használ, hanem activex-et, és akkor tényleg elég triviális lenne átteni a kódot.

  ez nem ilyen egyszerű - mivel az office nem ismeri a VB.NET-et, csak a VBA-t, csak úgy tudod átrakni winforms-ba, ha onnan oldod meg a teljes excel manipulációt - tehát a felhasználót nem hagyod az excelben matatni.

• bsh addikt

  #3120 2020-05-19 17:00:49

  Új Válasz

  Ú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

  

  bsh

  addikt

  Sziasztok,
  lenne egy nagyon láma kérdésem, és valamiért google-el se találtam rá választ.
  Előrebocsájtom, hogy VB-ről fingom sincs, se Visual Studióról De lenne egy VBA-ban írt form és kód hozzá, ami egy adatbázisos mókát képez. Ezt gondoltam egy külön önálló alkalmazásként megírni, mivel azt hallottam, hogy "rendkívül egyszerű VBA-ról VB-re átteni egy kódot, szinte ugyanaz a kettő, stb..." Hát egyelőre nem így látom...
  Szóval sok problémát megoldottam, de ilyen triviálisakra nem találok megoldást:
  VBA userform-on activex combobox, két oszloppal, amiből csak egy látszik, a boundcolumn az amelyik nem látszik. (columnwidth=0)
  példa:
  megjelenő szöveg: valós érték (ami nem jelenik meg, mondjuk egy sql id):
józsi 125540
manci 65981
benő 8989898

  VS-ben meg winforms.comboxot használ (meg .net-et???), és ott nem bírok sehogy ilyen kétoszlopos-boundcolumnos dolgot csinálni. Hogy kellene ezt?
  Vagy lehet valahogy olyan projektet létrehozni, ahol nem winforms-t használ, hanem activex-et, és akkor tényleg elég triviális lenne átteni a kódot.

• sztanozs veterán

  #3119

  #3118 Mr. Y

  2020-05-18 23:02:09

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3118 Mr. Y

  #3118 Mr. Y

  Eddig futtatásnál volt a probléma.
  Most, hogy használtam a feltételt, már meg sem jelöli a gondot, fordításnál dobja ezt ki:

  

  Ugyan ez, ha az egészet belerakom

  Esetleg, ha ez az if feltétel?
  If Combobox1.Items.Count > 0 Then

• Mr. Y őstag

  #3118

  #3116 sztanozs

  2020-05-18 20:56:12

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3116 sztanozs

  #3116 sztanozs

  Rakd bele az egászet (vagy csak a SelectedIndex) sort egy If be:
  If SerialPort.GetPortNames().Length > 0 Then
...
End If

  Eddig futtatásnál volt a probléma.
  Most, hogy használtam a feltételt, már meg sem jelöli a gondot, fordításnál dobja ezt ki:

  

  Ugyan ez, ha az egészet belerakom

• Mr. Y őstag

  #3117

  #3114 Postas99

  2020-05-18 20:55:14

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  #3114 Postas99

  #3114 Postas99

  Nem akarlak h.lyenek nézni van sorosport a gépeden? Csak mert ha az index nullát ad vissza az is egy érték ellenben ha n tudja kérdezni az lehet a probléma.
  Mi a catch lekezelése?

  Ugyazon vs verzióról van szó?
  A .net szintén azonos a két gépen? Os verzió?

  Persze, hogy van. 4 darab is.
  Ugyan az a verzió szerintem, mindkét gépre ugyan onnan szedtem le és ugyan azt telepítettem.
  Ugyan úgy Win10 mindkettő. Ugyan úgy Intel, csak a céges egy i5 vPro, az itthoni meg egy i9-es.
  Ami még eltérő lehet, hogy az itthoni egy ROG, így a játékok végett gondolom elég sokmindent feltelepített már, lehet ez probléma? Ütközés esetleg?

  Plusz volt egy olyan különbség, hogy az itthoni gépen a tűzfal megtámadta, mikor rámentem a Debug-ra. De miután engedélyeztem, már nem volt ezzel baja.

• sztanozs veterán

  #3116

  #3113 Mr. Y

  2020-05-18 10:44:43

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3113 Mr. Y

  #3113 Mr. Y

  Sziasztok!

  Remélem nem halt ki a topik fél év inaktivitás után, így próbálkozom.
  Adott egy program, amit megírtam a céges laptopon (MS VisualStudio alatt). Ez egy Soros kommunikációs diagnosztikai program, ami hibátlan volt.
  Áthoztam az itthoni gépre és folyamatossan hibára fut, valamiért nem képes beolvasni a COM portokat.
  Van erre valakinek valami ötlete, hogy miért nem működik az itthoni gépen?

  Előre is köszönöm

  

  Fordításnlál azt dobja ki, hogy a Selected.Index = 0 értéke nem valós. De semmi sem az szerinte

  Rakd bele az egászet (vagy csak a SelectedIndex) sort egy If be:
  If SerialPort.GetPortNames().Length > 0 Then
...
End If

• sztanozs veterán

  #3115

  #3113 Mr. Y

  2020-05-18 10:03:54

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3113 Mr. Y

  #3113 Mr. Y

  Sziasztok!

  Remélem nem halt ki a topik fél év inaktivitás után, így próbálkozom.
  Adott egy program, amit megírtam a céges laptopon (MS VisualStudio alatt). Ez egy Soros kommunikációs diagnosztikai program, ami hibátlan volt.
  Áthoztam az itthoni gépre és folyamatossan hibára fut, valamiért nem képes beolvasni a COM portokat.
  Van erre valakinek valami ötlete, hogy miért nem működik az itthoni gépen?

  Előre is köszönöm

  

  Fordításnlál azt dobja ki, hogy a Selected.Index = 0 értéke nem valós. De semmi sem az szerinte

  Fordításnál, vagy futtatásnál?

• Postas99 őstag

  #3114

  #3113 Mr. Y

  2020-05-18 06:12:46

  Új Válasz

  Ú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

  

  Postas99

  őstag

  #3113 Mr. Y

  #3113 Mr. Y

  Sziasztok!

  Remélem nem halt ki a topik fél év inaktivitás után, így próbálkozom.
  Adott egy program, amit megírtam a céges laptopon (MS VisualStudio alatt). Ez egy Soros kommunikációs diagnosztikai program, ami hibátlan volt.
  Áthoztam az itthoni gépre és folyamatossan hibára fut, valamiért nem képes beolvasni a COM portokat.
  Van erre valakinek valami ötlete, hogy miért nem működik az itthoni gépen?

  Előre is köszönöm

  

  Fordításnlál azt dobja ki, hogy a Selected.Index = 0 értéke nem valós. De semmi sem az szerinte

  Nem akarlak h.lyenek nézni van sorosport a gépeden? Csak mert ha az index nullát ad vissza az is egy érték ellenben ha n tudja kérdezni az lehet a probléma.
  Mi a catch lekezelése?

  Ugyazon vs verzióról van szó?
  A .net szintén azonos a két gépen? Os verzió?

• Mr. Y őstag

  #3113 2020-05-16 09:25:11

  Új Válasz

  Ú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

  

  Mr. Y

  őstag

  Sziasztok!

  Remélem nem halt ki a topik fél év inaktivitás után, így próbálkozom.
  Adott egy program, amit megírtam a céges laptopon (MS VisualStudio alatt). Ez egy Soros kommunikációs diagnosztikai program, ami hibátlan volt.
  Áthoztam az itthoni gépre és folyamatossan hibára fut, valamiért nem képes beolvasni a COM portokat.
  Van erre valakinek valami ötlete, hogy miért nem működik az itthoni gépen?

  Előre is köszönöm

  

  Fordításnlál azt dobja ki, hogy a Selected.Index = 0 értéke nem valós. De semmi sem az szerinte

• Atomantiii addikt

  #3112

  #3111 sztanozs

  2019-12-30 16:39:43

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3111 sztanozs

  #3111 sztanozs

  mert a kék az aktív kontroll kijelölése, a szürke pedig az épp nem aktív kontrollé.
  Ha azt szeretnéd, hogy a nem aktív kontroll is kék legyen, akkor mókolni kell: [link]

  Köszönöm majd megpróbálom hátha összejön.

• sztanozs veterán

  #3111

  #3110 Atomantiii

  2019-12-30 14:46:25

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3110 Atomantiii

  #3110 Atomantiii

  Köszi ez már majdnem jó, csak az a baj, hogy nem kékkel jelöli ki az adott sort mint az aktív listviewben, hanem halványszürke lesz a másik listview kijelölt sora.

  Ha pedig a hideselection = true-n van akkor egyáltalán nem látszik a kijelölés, ahogy írtad.

  mert a kék az aktív kontroll kijelölése, a szürke pedig az épp nem aktív kontrollé.
  Ha azt szeretnéd, hogy a nem aktív kontroll is kék legyen, akkor mókolni kell: [link]

• Atomantiii addikt

  #3110

  #3109 sztanozs

  2019-12-29 20:38:35

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3109 sztanozs

  #3109 sztanozs

  asszem listview2.listitems.item(index).selected = true, csak ne legyen a hideselection = true, mert akkor a nem aktív listview-n nem látszik a kijelölés.
  és ha multiselect van, akkor végig kell menni a teljes listview1 listán és átállítani a listview2-ben, ahol nem megfelelő a selected értéke.

  Köszi ez már majdnem jó, csak az a baj, hogy nem kékkel jelöli ki az adott sort mint az aktív listviewben, hanem halványszürke lesz a másik listview kijelölt sora.

  Ha pedig a hideselection = true-n van akkor egyáltalán nem látszik a kijelölés, ahogy írtad.

• sztanozs veterán

  #3109

  #3108 Atomantiii

  2019-12-29 10:48:20

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3108 Atomantiii

  #3108 Atomantiii

  Még mindig VB6: azt hogy tudom megcsinálni, hogy ha van 2 db listviewem, engedélyezve van a fullrowselect és fel van töltve adatokkal mindkét listview és az egyik listviewben rákattintok az első sorra és így kijelöli az egész sort akkor a kijelölés a másik listview első sorára is megtörténjen?

  Próbálgattam a selecteditem-eket, de mindig azt írja, hogy az adott érték csak olvasható és nem adható meg másik listviewvnél értéknek.

  asszem listview2.listitems.item(index).selected = true, csak ne legyen a hideselection = true, mert akkor a nem aktív listview-n nem látszik a kijelölés.
  és ha multiselect van, akkor végig kell menni a teljes listview1 listán és átállítani a listview2-ben, ahol nem megfelelő a selected értéke.

• Atomantiii addikt

  #3108 2019-12-24 13:37:13

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  Még mindig VB6: azt hogy tudom megcsinálni, hogy ha van 2 db listviewem, engedélyezve van a fullrowselect és fel van töltve adatokkal mindkét listview és az egyik listviewben rákattintok az első sorra és így kijelöli az egész sort akkor a kijelölés a másik listview első sorára is megtörténjen?

  Próbálgattam a selecteditem-eket, de mindig azt írja, hogy az adott érték csak olvasható és nem adható meg másik listviewvnél értéknek.

• Atomantiii addikt

  #3107

  #3106 sztanozs

  2019-12-10 11:25:36

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3106 sztanozs

  #3106 sztanozs

  VB.NET-nél a nyelvre gondolok. A Visual Studio 2019 az IDE hozzá (de lehet benne többek között C#-ban, F#-ban, C++ -ban vagy akár Python-ban is fejleszteni).

  Köszönöm a választ.

• sztanozs veterán

  #3106

  #3105 Atomantiii

  2019-12-10 08:40:03

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3105 Atomantiii

  #3105 Atomantiii

  VB.Net-nél a 2019-es visual stúdióra gondolsz?

  VB.NET-nél a nyelvre gondolok. A Visual Studio 2019 az IDE hozzá (de lehet benne többek között C#-ban, F#-ban, C++ -ban vagy akár Python-ban is fejleszteni).

• Atomantiii addikt

  #3105

  #3104 sztanozs

  2019-12-09 18:30:18

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3104 sztanozs

  #3104 sztanozs

  Wow, eléggé régi az a verzió, csodálom, hogy még Win10-alatt is "normálisan" működik.
  VB.NET-tel próbálkozz meg szvsz.

  VB.Net-nél a 2019-es visual stúdióra gondolsz?

• sztanozs veterán

  #3104

  #3103 Atomantiii

  2019-12-09 13:35:45

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3103 Atomantiii

  #3103 Atomantiii

  Ez még a 6-os. Tudom nem mai darab, de nekem ez az érthető még kb bár egyszer lehet meg kellene próbálnom egy újabb verziót csak azt nem tudom melyiket amivel még nagyjából én is boldogulni tudnék.

  De rájöttem, hogy maga az ico fájlokban benne van több méret is 16x16-ostól a 48x48-asig, win 7-ig a 16x16-ost használta, míg a win 10 már a legnagyobbat választotta ki magának.

  Wow, eléggé régi az a verzió, csodálom, hogy még Win10-alatt is "normálisan" működik.
  VB.NET-tel próbálkozz meg szvsz.

• Atomantiii addikt

  #3103

  #3102 sztanozs

  2019-12-09 11:51:10

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3102 sztanozs

  #3102 sztanozs

  Ez melyik VB?

  Ez még a 6-os. Tudom nem mai darab, de nekem ez az érthető még kb bár egyszer lehet meg kellene próbálnom egy újabb verziót csak azt nem tudom melyiket amivel még nagyjából én is boldogulni tudnék.

  De rájöttem, hogy maga az ico fájlokban benne van több méret is 16x16-ostól a 48x48-asig, win 7-ig a 16x16-ost használta, míg a win 10 már a legnagyobbat választotta ki magának.

• sztanozs veterán

  #3102

  #3100 Atomantiii

  2019-12-09 11:23:34

  Új Válasz

  Ú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

  

  sztanozs

  veterán

  #3100 Atomantiii

  #3100 Atomantiii

  Van még itt valaki?

  Van egy programom, amiben image 1-et használok és ikonokat jelenítenék meg vele 16 x 16-os méretben.

  Itt kezdődik a probléma, hogy eddig win 7-en és az alatti operációs rendszereken jó méretben jelennek meg az ikonok:
  

  míg win 10 alatt sajnos nagyobb méretben jelennek meg az ikonok, mint ahogy kellene.
  

  Hogyan lehetne ezt javítani, hogy win 10-en is helyes méretben jelenjenek meg a képek?

  Ez melyik VB?

• Atomantiii addikt

  #3101

  #3100 Atomantiii

  2019-12-08 19:41:09

  Új Válasz

  Ú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

  

  Atomantiii

  addikt

  #3100 Atomantiii

  #3100 Atomantiii

  Van még itt valaki?

  Van egy programom, amiben image 1-et használok és ikonokat jelenítenék meg vele 16 x 16-os méretben.

  Itt kezdődik a probléma, hogy eddig win 7-en és az alatti operációs rendszereken jó méretben jelennek meg az ikonok:
  

  míg win 10 alatt sajnos nagyobb méretben jelennek meg az ikonok, mint ahogy kellene.
  

  Hogyan lehetne ezt javítani, hogy win 10-en is helyes méretben jelenjenek meg a képek?

  Közben rájöttem a megoldásra.

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