Új hozzászólás Aktív témák
-
Atomantiii
őstag
válasz Atomantiii #3100 üzenetére
Közben rájöttem a megoldásra.
-
sztanozs
veterán
válasz Atomantiii #3100 üzenetére
Ez melyik VB?
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Atomantiii
őstag
válasz sztanozs #3102 üzenetére
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
válasz Atomantiii #3103 üzenetére
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.JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
sztanozs
veterán
válasz Atomantiii #3105 üzenetére
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).
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Atomantiii
őstag
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.
[ Szerkesztve ]
-
sztanozs
veterán
válasz Atomantiii #3108 üzenetére
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.[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Atomantiii
őstag
válasz sztanozs #3109 üzenetére
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.
[ Szerkesztve ]
-
sztanozs
veterán
válasz Atomantiii #3110 üzenetére
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]JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
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
[ Szerkesztve ]
But who is watching the guardians?
-
Postas99
senior tag
-
sztanozs
veterán
-
válasz Postas99 #3114 üzenetére
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.
[ Szerkesztve ]
But who is watching the guardians?
-
-
bsh
őstag
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.[ Szerkesztve ]
-
sztanozs
veterán
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.
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Delila_1
veterán
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.Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
bsh
őstag
válasz sztanozs #3121 üzenetére
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.
[ Szerkesztve ]
-
-
-
Postas99
senior tag
A VBA mint írtad az office közös makró nyelve aminek nincs köze a VB.NET-hez.
-
Postas99
senior tag
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
-
Postas99
senior tag
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?
[ Szerkesztve ]
-
-
-
-
-
Postas99
senior tag
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?[ Szerkesztve ]
-
Papa100
friss újonc
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.
-
bsh
őstag
válasz sztanozs #3136 üzenetére
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. -
sztanozs
veterán
válasz Papa100 #3140 üzenetére
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 FunctionJOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
-
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? -
sztanozs
veterán
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?
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
szkristof05
csendes 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
válasz szkristof05 #3147 üzenetére
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.[ Szerkesztve ]
JOGI NYILATKOZAT: A bejegyzéseim és hozzászólásaim a személyes véleményemet tükrözik; ezek nem tekinthetők a munkáltatóm hivatalos állásfoglalásának...
-
Postas99
senior tag
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.
Új hozzászólás Aktív témák
- Huawei P30 Pro 256GB, Kártyafüggetlen, 1 Év Garanciával
- Xbox Series X + Venom töltőpad és akksi
- Dell 7920 2x Intel Xeon Gold 6148 (80 szál, 3,7GHz), 192GB - 1,5TB DDR4 ECC, 1TB NVMe SSD 1400W, ÁFA
- Exklúzív! Ilyen SEHOL MÁSHOL NINCS! MAGIC MOUSE KÉK! BLUE!
- HP OMEN Gaming 16-xd0009np - ÚJ 16" FHD GAMER laptop - Ryzen 7-7840HS, 16GB, 512SSD, RTX4050 (6GB)