- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- Windows 10
- Microsoft Office és Office 365 topic
- SkyShowtime
- Otthoni hálózat és internet megosztás
- Linux kezdőknek
- Musk szerint már jövőre itt vannak a Tesla Optimus humanoid robotok
- Ubuntu Linux
- YouTube
- Kodi és kiegészítői magyar nyelvű online tartalmakhoz (Linux, Windows)
Új hozzászólás Aktív témák
-
Zalanius
tag
válasz Bobrooney #3050 üzenetére
Ez félig bugnak tűnik, de található rá magyarázat. A szürke popup kivételével sikerült is reprodukálnom. A cellához tartozó link nem egy egyedi string érték, hanem egy collection. Két cella egyesítésekor az első cella linkje marad csak meg, a többié elveszik, eddig rendben. Ha ezután módosítod a grafikus nézetben a linket, akkor a háttérben egy .Add() függvényt használhat az Excel. Ez csak tipp, de eléggé gyanús. Mi történik ezután: az egyesített cella első részcellájában KETTŐ link lesz, az (1) indexen a régi, a (2) indexen az új. A többi részcellában eddig semmi nem volt, ezért oda az (1) indexen az új kerül.
Tegyük fel, hogy az A oszlopban vannak a linkes cellák, némelyik egyesített. Ekkor egy teljeskörű teszthez például bevethető ez, most 4 sort feltételezve:
Dim rowcount%
rowcount = 4
For i = 1 To rowcount
If Range("A1").Offset(i - 1, 0).Hyperlinks.Count > 0 Then
For j = 1 To Range("A1").Offset(i - 1, 0).Hyperlinks.Count
MsgBox Range("A1").Offset(i - 1, 0).Hyperlinks(j).Address, vbOKOnly, _
Range("A1").Offset(i - 1, 0).AddressLocal & ", index: " & j & _
", full count: " & Range("A1").Offset(i - 1, 0).Hyperlinks.Count
Next
End If
NextHa a problémádat jól leírja a fenti, és VBA-ban kell feldolgoznod a linkeket, akkor a Count tulajdonságot kell indexként használni, és így mindig a legutoljára beállított linket olvassa a kód.
Persze van egy olyan olvasata is ennek az enyhén bugos helyzetnek, hogy formailag szép dolog az egyesített cella, de amint a tábla célja nem a külsőségekről szól, hanem valamilyen automatizált feldolgozásról, ott részemről csak felesleges nyűg.
--= Zalán =--
-
sztanozs
veterán
válasz Zalanius #3051 üzenetére
Az a gond, hogy egy cellában egyszerre csak egy link lehet, hiába csinálsz bármit, csak egy lesz élő. Hiperlink cserénél célszerű először törölni, uátna létrehozni az újat.
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...
-
martonzso
újonc
Sziasztok, remélem jó helyre írok...
Adatbázis kezelő rendszer fejlesztésére keresek programozót. A feladat a következő lenne:
- hibajegykezelő rendszer megírása
- valami valahol meghibásodik, kap egy kódot a hiba, max 15 mező infóval, amit esetleg másik adatbázisból szed (cím, berendezések típusa stb.)
- egy mezőben nyomonkövetni a javítás státuszát
- pár egyszerűbb lekérdezés
- a program és az adatbázis elhelyezése a céges szerveren
- az adatbázis bárhonnan elérhető legyen
- napi 4-5 hibajegy keletkezik, folyamatban max 20-30Nos, a fenti pár mondat nem a legkomolyabb specifikáció, csak a feladat nagyjábóli leírása, ezért csak egy nagyságrendi árat szeretnék kérdezni, ha ez meghatározható a fentiekből.
előre is köszi!
-
Petya25
addikt
válasz martonzso #3055 üzenetére
Szia
Ez kb az Excel tábla és a több millás rendszer között bárhol lehet.
Excel fájl a hálózaton egy share-ben "ingyen" vagy egy netről is elérhető felületű program felhasználókezeléssel és satöbbi, nem mindegy.
Szerintem ez túl tág leírás korrekt válaszhoz.Antonio Coimbra de la Coronilla y Azevedo, bizony!
-
zakoss
tag
Sziasztok,
VB.net-ben jártas emberkét keresek.
Visual Basic alapokon, MS SQL-t használó rendszer fejlesztése témakörében. (projekt) -
Postas99
senior tag
Sziasztok!
Lenne egy érdekes problémám:
Using rdr As New System.IO.StreamReader(openFileDialog1.FileName.ToString())
Do While rdr.Peek() >= 0
InputLine = rdr.ReadLine
InputLine = InputLine.Replace("',", Chr(9))
InputLine = InputLine.Replace("'", "")
InputLine = InputLine.Replace(";", Chr(9))
oRow = oRow + 1
szazalek = oRow
System.Windows.Forms.Clipboard.SetDataObject(InputLine, True)
Try
oBook.Worksheets(1).Range("A" + oRow.ToString).Select()
Catch ex As Exception
End Try
Try
oBook.Worksheets(1).Paste()
Catch ex As Exception
End Try
ProgressBar1.Value = szazalek
Loop
rdr.Close()
End UsingAmi semmi mást nem csinálna ha nem hibázna, hogy beolvas .CSV fájlokat.
Ez idáig tiszta, de a fájlok más más felépítésűek ezért egy kódban kellene megoldanom a feldolgozást..1, CSV
'Label S.r.l.',
'Via Don Mazzucotelli, 6/A',
'24020 Gorle (BG) Italia',
'Tel. +39-035-302.812 Fax +39-035-302.815',
'',
'Dátum: ','06/08/2018 08:24','FOGYASZTÁS RECEPTENKÉNT','Oldal: ','1 - 5',
'',
'Dátum: ','2018.08.01. - 2018.08.01.','Recept:',' - ',
'Kifejezés értékben: ','Nem','Azonosító:',' - ',
'Tűrés: ','Letiltva','Eszköz:',' - ',
'',
'Recept: ','FOGAD4','Leírás: ','',
'',2, CSV
'Label S.r.l.';
'Via Don Mazzucotelli, 6/A';
'24020 Gorle (BG) Italy';
'Phone +39-035-302.812 Fax +39-035-302.815';
'';
'Date: ';'02/08/2018 12:40';'USAGES by RECIPE';'Page: ';'1 - 6';
'';
'Date: ';'01/08/18 - 01/08/18';'Scale:';' - ';
'Valuation: ';'No';'Operator:';' - ';
'Tolerance: ';'No';'Customer:';' - ';
'Recipe:';' - ';
'';A kód kiszedi soroknént és értékenként az aposztróf ' jeleket ha vessző követi ','
SCV2 esetében viszont a ';' értéket kell feldolgozni.
Az értékek a sztringbe visszairódnak, majd ezek excel meghívásával cellánként bemásolásra kerülnek a csv fájl teljes feldolgozásáig.A HIBA
hogy excelbe való másoláskor, néha téveszt és RANDOM üres sorokat is berak. Oszlopokat nem téveszt.
Ezt szeretném kiküszöbölni.
Elakadtam, hogy hol rontottam el a feldolgozást.Esetleg valaki tudna segítséget adni?
Köszönöm
-
Olwynn
újonc
Hello. Sziasztok
Nem tudom olvassátok-e még ezt a fórumot, de nagyon remélem. Nemrég kezdtem el VB 2017 programot használni, programozni. Régen a Delphi-t toltam.Gondjaim akadtak.
Szeretnék egy működő Json fáj olvasót készíteni a form1 -re
és egy INI fájl olvasót is.. (bár ha a json menne, akkor az INI nem is lenne fontos).A lényeg az lenne, hogy a program a json állományból kiolvasná az adatokat és egy label1.text vagy textbox1 -re írná ki. Ezt hogy?
Tudnátok ebben nekem segíteni?
Köszönöm -
e-newsee
addikt
Sziasztok, tudna nekem valaki segíteni?
Adott egy excel macro, ami annyit tud, hogy megadod neki egy tetszőleges windows ablak nevét, amibe az excelből adatokat fog bemásolgatni.
Teszi ezt úgy, hogy meg kell adni egy táblázatban magát az adatot, és hogy mit csináljon ezután a windows.Pl.: beírja az adatot, majd vár egy kicsit, majd nyom 3 tabot, beír egy másik adatot, majd nyom egy entert, aztán vár egy kicsit, majd kezdi elölről a következő excel sor alapján.
Ez nagyjából így nézne ki, ezen a táblázaton lépked végig, és beszínezi, ahol épp tart, hogy lássam:A gondom az, hogy ha a forrás táblázat kilóg a képből, akkor nem tudom, hol tart, és mennyi van még vissza.
Olyan megoldás érdekelne, ami mondjuk a B oszlopban megnézi az utolsó színezett cella sorszámát, és folyamatosan frissíti azt a B2 cellában. Így mindig tudnám, hogy hol jár épp a macró, és mikor ér a végére.
Próbáltam összerakni internetről, de annyira láma vagyok ehhez, hogy nem sikerült.Köszi előre is!
"Csak egy olyan töltött édesség van, ami megoldja az élet problémáit, és az az Oreo." /Sheldon Cooper/
-
Vertus
újonc
Sziasztok,
Olvasgatás után arra jutottam, hogy kérnék egy kis segítséget... Van egy mappa, melyben van 50 db excel fájl. Ezek első munkafüzetén lévő adatokat (azonos formátumuk van) kellene egy közös excel munkalapra másolni.
Alapvetően ez elkészült. Ott vesztettem el a fonalat, hogy az 50 fájl jelszóval védett. Minden fájl neve fix, a hozzá tartozó jelszó is. (minden hónapban össze kell ezeket fűzni).
Ötletem a következő volt:
1. bejárom a mappát, mely az 50 fájl nevét tartalmazza.
2. megnyitás nélkül kiolvasom a fájl nevét/elérési utat (ezzel nem boldogultam), melyből meghatározom a fájl nevét.
3. Megnyitom a fájl név - jelszó párost tartalmazó fájlt, és ott az első oszlopban megkeresem azt. Kiolvasom a mellette lévő oszlopból a hozzá tartozó jelszót. És ekkor azt a fájlt, ahol az előbb járt a feldolgozás, megnyitom a jelszó beírásával, és indulhat a másolás.Van esetleg ettől egyszerűbb megoldás, hogy jelszóval védett fájlból a tartalmat átmásoljam egy közös fájlba?
Bocsánat, ha nagyon alap dolgot kérdeztem, sok mindent kell még megnéznem ezen a területen
-
Zalanius
tag
Excelben, VBA-val akarod ezt megoldani? Vagy valamilyen dotnetes nyelven inkább?
Ha előbbi, akkor nem igazán látom, mi akasztott meg, ha már a feladat lényege elkészült. A 2-es ponthoz segíthet például ez:
Option Base 1
Function GetFileNames(directoryPath As String) As String()
Dim namepathlist() As String
Dim fshelper As Object
Dim targetdir As Object
Dim filecnt%, i%
On Error Resume Next
Set fshelper = CreateObject("Scripting.FileSystemObject")
Set targetdir = fshelper.GetFolder(directoryPath)
filecnt = targetdir.Files.Count
If filecnt > 0 Then
ReDim namepathlist(filecnt, 2)
i = 1
For Each f In targetdir.Files
namepathlist(i, 1) = f.Name
namepathlist(i, 2) = f.path
i = i + 1
Next
End If
On Error GoTo 0
GetFileNames = namepathlist
End FunctionPersze nem biztos, hogy érdemes külön függvényt írni csak ezért, és akár a Dir() függvényre is rá lehet nézni, aztán amelyik egyszerűbb, azzal menni tovább.
Ami meg a 3. pontot illeti, ezt nem így csinálnám, de ennek csak praktikus okai vannak. Mielőtt az egész 50-es iteráció elindul, azelőtt kellene beolvasni változókba az összes előírt fájlnevet és jelszót, ezután jöhet a könyvtár aktuális tartalma, lásd fent, és végül egy olyan iteráció, ami az aktuális listán megy végig, és ha talál az adott példányhoz jelszót, akkor elvégzi a már kész lépéseket.
--= Zalán =--
-
SGeri-vb
újonc
Sziasztok!
Szükségem lenne kis segítségre.
Szóval, adott a feladat:
1. indításkor elindul egy videó,
2. majd ha annak vége, el kell induljon egy másik.Tehát a 2. lépéssel van a probléma, mert nem pontosan tudom, hogy mit kéne változtatni a kódon:
Private Sub AxWindowsMediaPlayer1_PlayStateChange1(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
If scene = 1 Then
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
AxWindowsMediaPlayer1.URL = gamedir + "\1.2.mp4"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End If
End Sub
Illetve van egy scene nevű if, de az máshoz kell, az nem okozhatja a problémát...
Nem látszik a kódon, de az elején indul egy videó(1.1.mp4), majd a PlayStateChange sub-bal
kéne indulnia az 1.2.mp4-nek, miután vége lett az 1.1.mp4-nek.
Akkor indul csak az 1.2, ha a stop gombot( ) nyomom meg.
Tehát amelyik pillanatban vége 1.1-nek, el kell indulnia az 1.2-nek.Mi a probléma?
Üdv,
Gergő[ Szerkesztve ]
-
Delila_1
veterán
válasz Zalanius #3067 üzenetére
Szerkesztés: elnézést, Vertusnak szól,
Nálam a makrót tartalmazó füzet első lapján, az A oszlopban vannak a fájlnevek, kiterjesztéssel. Mellettük a B-ben a hozzájuk tartozó jelszavak.
Két helyen kell a makrót személyre szabnod. Az első az utvonal változó, a második a Match függvényes sor. Mindkettő végére tettem 3 db *-ot.Private Sub Megnyit()
Dim FN As String, sor As Variant, jelszo
Const utvonal As String = "F:\Eadat\Próba\" '***
ChDir utvonal
FN = Dir(utvonal & "*.xlsx")
Do While FN <> ""
On Error Resume Next
sor = Application.Match(FN, Sheets(1).Columns(1), 0) '***
If sor = vbError Then
On Error GoTo 0
Else
jelszo = Sheets(1).Cells(sor, 2)
Workbooks.Open Filename:=utvonal & FN, Password:=jelszo
'*******************************************************
'másolás
'*******************************************************
ActiveWorkbook.Save
ActiveWorkbook.Close
End If
FN = Dir()
Loop
End Sub[ Szerkesztve ]
Programozó: hibás programok megírására és kijavítására kiképzett szakember. Többet ésszel, mint ész nélkül.
-
mdk01
addikt
Sziasztok,
Olyan kérdésem lenne, hogy word alá lehet írni egy olyan makrót ami kiveszi a szövegből az ENTER-eket?
Apukám szokott konvertálni valamilyen fájlból(talán pdf) e-könyv formátumba olvasmányokat és konvertáláskor bent hagyja az ENTER-eket és így szét van tördelve a szöveg.(gondolom a pdf és e-könyv formátum közé beiktat, vagy be tud iktatni egy *.doc formátumot is)
Lehet nem teljesen így történik, de az biztos, hogy az ENTER-eket kell eltüntetni egy *.doc szövegből.
Köszönöm előre is. -
Zalanius
tag
Ehhez nem kell makró, elég egy ^p Replace. Szemléletesebben itt.
--= Zalán =--
-
Rellind
senior tag
Sziasztok.
Visual Studio Enterprise 2017-et használok. Megcsináltam a form-ot, kód is rendben nincs hiba. Viszont a program nem megy. Fut,de nem hajtja végre a feladatot. Mit csinálhatok rosszul? -
Zalanius
tag
válasz Rellind #3073 üzenetére
1000+1 ok lehet, ennyi infóból nem lehet megmondani, hol csúszik el a dolog szemantikailag. Azokból, hogy "form" és "feladat", arra tippelnék, hogy valami gombklikk vagy hasonló eseményre várnád, hogy egy adott kódrészlet meginduljon, de innentől bizonytalan, hogy mi is történik. Breakpointokkal, lépésenkénti debuggal kellene kezdeni.
--= Zalán =--
-
sztanozs
veterán
Az a gond, hogy nem kell minden sortörést kivenni. Mert ha mindent kiveszel, akkor a szöveg teljesen egybe fog folyni (nem lesznek bekezdések, fejezetek, címek, stb)...
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...
-
Lokids
addikt
Sziasztok!
Próbálok CDO-val emailt küldeni, de valahogy nem akar működni.
Mi lehet a gond?Sub Send_Result_MailSMTP( _
ByRef p_FullName As String, _
ByRef p_Dat As String)
Dim cdoMail As Object
Dim cdoConf As Object
Dim Wb1 As Workbook
Dim FilePath As String
Dim TempFileName As String
Dim FileExtStr As String
Dim Flds As Variant
Set Wb1 = ActiveWorkbook
FilePath = "C:\Temp\"
Filename = p_FullName
Workbooks(OutputMon_F_Name).SaveAs Filename:=FilePath & Filename
Set cdoMail = CreateObject("CDO.Message")
Set cdoConf = CreateObject("CDO.Configuration")
Set Flds = cdoConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = webmail.mycompany.local
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
End With
On Error Resume Next
With cdoMail
.From = "myname@email.hu"
.To = "myname@email.hu"
'.CC = SendMail_CC
.Subject = "Monitoring - " & p_Dat
.HtmlBody = "<!DOCTYPE html><html><body><p style=""font-family:'Lucida Consolas', monospace""><pre>" & _
"A mellékelt táblázat a Sharepoint felületen rögzített Monitoring feladatok alapján készült.<br><br></body> </html>"
.AddAttachments FilePath & Filename
.Send
End With
Set cdoMail = Nothing
Set cdoConf = Nothing
Set Flds = Nothing
End Sub[ Szerkesztve ]
If you chase two rabbits you will lose them both.
-
Zalanius
tag
1-2 ötlet:
1. mintha nem volna a config hozzárendelve cdoMail objectedhez. Valami ilyesmit hiányolok:Set cdoMail.Configuration = cdoConf
Amúgy és a továbblépéshez:
- attachment nélkül megy?
- próbáld ki a .Update beillesztését is még a config blokkjának a végén
- ugye próba esetén már nem maradnak kommentben az autentikációs sorokVégül pedig: mit mond az Err? Lehetne mondjuk egy Goto címkés blokk az onerrornál, amiben érdemes megnézni, hogy mi az Err.Description
[ Szerkesztve ]
--= Zalán =--
-
Lokids
addikt
válasz Zalanius #3078 üzenetére
Attachment nélkül sem megy, updatet is hozzáadtam, meg a config sort is. És persze nincs kommentezve az auth sem, csak már a nélkül is próbáltam.
De a legrosszabb, hogy semmi hibát nem dob. Végig fut, mintha nem lenne gond.
If you chase two rabbits you will lose them both.
-
Lokids
addikt
válasz sztanozs #3080 üzenetére
Igen. telnettel jó.
De itt olyan,mintha az excel nem is ismerné fel ezeket a parancsokat. Nem javítja, hogy kis vagy nagybetű, meg ilyenek. 0 hiba. még ha tök értelmetlen valamit írok is bele. Pl a send elé odaírom, hogy .asdfsfhegsd, az se fut hibára.
If you chase two rabbits you will lose them both.
-
-
-
Lokids
addikt
Sziasztok!
Hogy oldanátok meg azt a problémát, hogy nekem két dátum közötti időpontba eső dolgok kellenek.
Az első a most (now), az rendben, de a másik az +2 hét péntek. Azaz ha ezt pénteken futtatom le, akkor könnyű, mert csak 2 hetet kellene hozzáadni, de ha hétfőn, akkor majdnem 3 hetet (az a hét + 2 hét péntekig).
Ezt a második dátumot hogy lehet letárolni egy változóba?[ Szerkesztve ]
If you chase two rabbits you will lose them both.
-
Lokids
addikt
válasz Petya25 #3087 üzenetére
Ezt kifejtenéd kicsit bővebben? Mert én jelenleg ilyesmin gondolkodom, de ez nem túl szép megoldás:
If (Weekday(Now(), vbMonday) = 1) Then
else if = 2 then dateadd (valamennyi)
else if = 3 stb...De mind az 5 napra külön elseif-et írni nem tűnik valami jó megoldásnak.
[ Szerkesztve ]
If you chase two rabbits you will lose them both.
-
Zalanius
tag
Szerintem elég egy If, ha a pénteket vesszük bázisnak, és jól értelmeztem az eddigieket, azaz február 9-15. között kell március 1-jét kihozni. Ha az az egy If nincs, akkor is csak péntekenként ugrana +1 hetet. Excel-VBA-ban valahogy így:
Dim fri%, add%, d1 As Date, d2 As Date
fri = Weekday(Now, vbFriday)
add = 14
If fri <> 1 Then add = add + 8 - fri
d1 = Now
d2 = DateAdd("d", add, d1)
MsgBox d2--= Zalán =--
-
Kija
aktív tag
Sziasztok!
Outlookból kellene átemelnem email részeket Excelbe.
Nagyjából meg is van, de a HTMLBody túl nagy hogy stringként dolgozzak vele (az üzenet bizonyos részeit kellene bizonyos cellákba áthelyeznem).. Ezt hogyan lehet megoldani? -
Kija
aktív tag
És akkor egy másik kérdés.
Egy adott email fiók emailjeiből szeretném lementeni a csatolmány fotókat az email tárgy mezőjéből származó nevű könyvtárba, de úgy hogy a csatolmánynak új nevet adok a könyvtár nevéből, a beérkezés dátumából és egy sorszámból.
Szuperül megszámolja a kód a csatolmányok számát az épp a for ciklus által kiválasztott emailnél, ám a mentés nem megy mert típus hibával megáll az alábbi sornál:Set myFolder = FSO.GetFolder(myPath)
A myPath egy sztring típusú változó és ezen sor előtt megkapja a megfelelő értéket. myFolder Folder típusú változó. FSO pedig FileSystemObject típus.
Mi lehet a gond? -
sztanozs
veterán
Nem jó a sima Folder típus, így kell deklarálni (és Scriptinget behivatkozni):
Dim oFolder As Scripting.Folder
Vagy ha nem akarsz referenciákat, akkor lehet sima Object (vagy akár Variant).
[ 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...
-
Vladek83
tag
Sziasztok,
előre is sorry, ha a kérdés nem ide való..
Kérdésem a következő lenne:
Localhost-on működik / elérem az adatbázist:
Imports MySql.Data.MySqlClient
Public Class Form1
Dim connection As New MySqlConnection("datasource=127.0.0.1;port=3306;username=xyz;password=xyz")
Dim COMMAND As MySqlConnection
Dim table As New DataTableViszont, ha külső tárhelyre töltöm fel, akkor nem jó..
vagy rosszul adom meg az elérési utat..?Imports MySql.Data.MySqlClient
Public Class Form1
Dim connection As New MySqlConnection("datasource=xyz.hu;port=3306;username=xyz;password=xyz")
Dim COMMAND As MySqlConnection
Dim table As New DataTableValakinek lenne javaslata?
[ Szerkesztve ]
-
sztanozs
veterán
válasz Vladek83 #3097 üzenetére
Vsz vagy nem azon a porton fut a szerver, vagy valami tűzfal-szabály nem engedélyezi a csatlkozást a te gépedről. (vagy pl ha a "távoli gép" a saját géped, akkor vagy nincs kiengedve a port vagy az xyz.hu nem a te publikus címedre mutat, vagy natolva van a kapcsolatod és a géped az indternet felől nem is címezhető).
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
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?
Új hozzászólás Aktív témák
- Eredeti játékok OFF topik
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Vodafone otthoni szolgáltatások (TV, internet, telefon)
- E-roller topik
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- Okos Otthon / Smart Home
- Steam Deck
- Mibe tegyem a megtakarításaimat?
- OTP Bank topic
- Luck Dragon: Asszociációs játék. :)
- További aktív témák...