- MasterDeeJay: H110-es lapban 10.gen Comet Lake működhet?
- gban: Ingyen kellene, de tegnapra
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Elektromos rásegítésű kerékpárok
- Gurulunk, WAZE?!
- Luck Dragon: Asszociációs játék. :)
- sziku69: Fűzzük össze a szavakat :)
- Lalikiraly: SÜNI energiaital.
- Viber: ingyen telefonálás a mobilodon
- MasterDeeJay: Legújabb beszerzésem: Sata to Sas adapter
Új hozzászólás Aktív témák
-
#3178
sztanozs
veterán
bszilvagyi
#3177
sztanozs
veterán
-
sztanozs
veterán
válasz
pmonitor
#3164
üzenetére
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.
-
#3155
sztanozs
veterán
tintoretto
#3154
sztanozs
veterán
válasz
tintoretto
#3154
üzenetére
Jó helyen jártál, csak ehhez nem kell makró.
-
#3151
sztanozs
veterán
szkristof05
#3149
sztanozs
veterán
válasz
szkristof05
#3149
üzenetére
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.
-
#3148
sztanozs
veterán
szkristof05
#3147
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. -
-
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 Function -
#3111
sztanozs
veterán
Atomantiii
#3110
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] -
#3109
sztanozs
veterán
Atomantiii
#3108
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. -
#3106
sztanozs
veterán
Atomantiii
#3105
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).
-
#3104
sztanozs
veterán
Atomantiii
#3103
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. -
#3102
sztanozs
veterán
Atomantiii
#3100
sztanozs
veterán
válasz
Atomantiii
#3100
üzenetére
Ez melyik VB?
-
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ő).
-
sztanozs
veterán
Ha 5 nap alatt át tudod fordítani VBA-ból VB.NET-be (és XLL-be befordítod), akkor nagyjából effektíven meg tudod védeni a belenyúlás és a forráskód megszerzése ellen. Más ésszerű lehetőséged nem nagyon van.
mod: ezt találtam még neked: [link]
Másrészről egyáltalán nem etikus, amit szeretnél. Bár éveket dolgoztál rajta, de ezt a cég érdekében (vsz a munkavégzés automatizálásából) tetted. Bár lehet, hogy rossz érzés magad mögött hagyni, mégis csak legalább annyira (igazából sokkal inkább) a cégé a kód, mint a tiéd. Alapesetben igazából magaddal sem viheted, hacsak a cégtől erre vonatkozóan nem kapsz egyértelmű felhatalmazást.
-
sztanozs
veterán
válasz
smallmer
#3002
üzenetére
Ok, akkor ez nem annyira járható út. De simán tudsz csinálni egy másik excelt, ami először betölti a sablon-t és utána a többi excelt.
Amennyiben a sablon fájlban publikus-ként van definiálva a funkció/szubrutin, amit el akarsz érni, akkor azt probléma nélkül meg tudod tenni másik fájlból is (csak fel kell venned a sablon fájlt referenciaként). -
sztanozs
veterán
válasz
smallmer
#3000
üzenetére
A legegyszerűbb lenne, ha a sablon makrója nyitná meg a 200 excel fájlt (darabra, vagy egyszerűen csak az adott helyen levő és szabálynak megfelelő nevű fájlokat), szépen megnyitná a munkalapokat, megnézné az adatokat és vagy copy/paste vagy adatmásolással átrakná a sablon fájlba (és az elmentené más néven).
Igazából szerintem ehhez mindent megtalálsz stackoverflow-n:
Open
Copy/Paste szűrve -
-
sztanozs
veterán
-
sztanozs
veterán
Ahogy nézem SortFields-be megadott range nem lehet több oszlop széles. Vsz ez a problémája.
Ha több oszlop szerint szeretnél rendezni, akkor mindet egyesével hozzá kell adni.
Majd miután beállítottad a rendezési feltételeket, jöhet a Sort parancs.Valahogy így:
Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort. _
SortFields.Add Key:=Range(Range("A2:A" & s_OutRow)), SortOn:= _
xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Sort.SetRange Range("A2:" & HeaderKAT_Last_Col & s_OutRow) -
-
sztanozs
veterán
válasz
alexy92
#2857
üzenetére
Első körben a felesleges Select és Activate sorokat vedd ki:
- két (vagy több) select egymás után felesleges, csak az utolsó maradjon meg (kiváve, ah a következőben fel van használva a selection, de ezeket inkább egy sorba kell tömöríteni
- aktív sheet-et vagy workbook-ot újra aktiválni felesleges
- a valami.Select + Selected.Value = ... felesleges, helyette valami.Value = ... elég, nem kell kijelölni, ráadásul gyorsabb is
- ha nem Select-tel dolgozol, hanem közvetlen referenciával, akkor nem kell Activate és Select:Workbooks("Workbook.xls").Worksheet("Sheetnév").Range("CellaReferencia").Value = "valami"
- Copy/PasteSpecial:value helyett sokkal (!) gyorsabb az Array copy: [link] -
-
sztanozs
veterán
Google 5sec,
elsőmásodik találat (bár az elsőben is ott van, csak nem az első válaszban és kicsit fellengzősebben):With ActiveWindow
If .FreezePanes Then .FreezePanes = False
'Freeze F6: 5 oszlop és 6 sor zárolása
.SplitColumn = 5 'fix oszlopok száma
.SplitRow = 6 'fix sorok száma
.FreezePanes = True
End With -
-
sztanozs
veterán
Szeretnék VBA alatt elérni a System.IO.File statikus osztályt, hogy a File.Open statikus függvénnyel FileStream-et állítsak elő. Ehelyett nekem az is megfelelő, ha a FileStream osztály inicializálni tudom. De ugye VBA alatt csak defualt - argumentum nélküli - konstruktor hívható, de a FileStream-nek nincs ilyen, ezért a new keyword sem használható.
Igazából az volna, hogy most működő - Excel addin - System.Security.Cryptography.SHA512Managed objekumomat nem byte-array-jel etessem meg, hanem FileStream-mel. Ez egyrész jóval gyorsabb, másrészt memóriatakarékosabb, harmadrészt működik 2GB feletti fájlokkal is.
PowerShell és natív .NET kilőve. Esetleg még VBS jöhet szóba, de az ugyanez a tészta. -
sztanozs
veterán
Ezzel le tudod kérdezni a memberhip-et:
Function IsMember(userDomain As String, userName As String, groupDomain As String, groupName As String) As Boolean
Dim grp As Object
Dim grpPath As String, userPath As String
grpPath = "WinNT://" & groupDomain & "/" & groupName
Set grp = GetObject(grpPath & ",group")
userPath = "WinNT://" & userDomain & "/" & userName
IsMember = grp.IsMember(userPath)
End FunctionÍgy hívd meg (angol windows-on - magyaron ugye más az Admin Group neve):
IsMember(Environ("userdomain"), Environ("username"), ".", "Administrators") -
sztanozs
veterán
Szerintem felesleges Windows API-val küzdeni...
VBS simán átültethető VBA-ba:
Public Sub InstallFont()
Dim objShell As Object ' Shell
Dim objFolder As Object ' Folder
Dim objFSO As Object
Dim srcFolder, srcFile
'Ide kell a Font forrás könyvtára
srcFolder = "\\networkserver\sharedfolder\publicfonts"
'Ide kell a font file neve
srcFile = "code128.ttf"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(srcFolder)
Set objFSO = CreateObject("Scripting.Filesystemobject")
If Not objFSO.FileExists("C:\Windows\Fonts\" & srcFile) Then
Dim objFolderItem As Object ' FolderItem
Set objFolderItem = objFolder.ParseName(srcFile)
On Error Resume Next
objFolderItem.InvokeVerb "Install"
If Err Then
Debug.Print Err.Description
Err.Clear
End If
On Error GoTo 0
Set objFolderItem = Nothing
End If
Set objFSO = Nothing
Set objFolder = Nothing
Set objShell = Nothing
End Sub -
#2663
sztanozs
veterán
Atomantiii
#2662
sztanozs
veterán
válasz
Atomantiii
#2662
üzenetére
Olyan rég volt már VB6, hogy szvsz elég sokat utána kellene olvasni - plusz szerintem már senkinek nincs fent fejlesztőkörnyezet, így aktívan senki nem tud segíteni.
Amúgy pl. negyedik elem kijelölésre:
Listbox1.Selected(4) = TrueHa eltünteti, amikor leveszed a fókuszt:
Listbox1.HideSelection = FalseJa amúgy ez kb 3 perc google volt. Ha nem megy az angol, akkor gyorsan állj neki.
-
#2650
sztanozs
veterán
Atomantiii
#2646
sztanozs
veterán
válasz
Atomantiii
#2646
üzenetére
Felteszem vagy a komponens, vagy az adatbázis (mező), vagy a végén a megjelenítő nem támogatja az Unicode-ot - ezért kerül ez konvertálásra időközben.
-
sztanozs
veterán
Csinálok mindjárt egy próbát a gépemen, nem szabadna villogjon...
C#-ban lesz elsőre (VB.NET már rég nincs a kezemben).
Itten van - semmit nem állítottam a formon és egyáltalán nem villog:
namespace TestControlMove
{
public partial class Form1 : Form
{
bool MozogE = false;
Point Eredeti;
public Form1()
{
InitializeComponent();
}
private void pictureBox1_MouseDown(object sender, MouseEventArgs e)
{
Eredeti = e.Location;
MozogE = true;
}
private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
{
if (MozogE)
{
pictureBox1.Location = pictureBox1.Location + new Size(e.X - Eredeti.X, e.Y - Eredeti.Y);
}
}
private void pictureBox1_MouseUp(object sender, MouseEventArgs e)
{
MozogE = false;
}
}
} -
sztanozs
veterán
Próbálj objektumorientáltan gondolkozni - a left/right/mid csak a visszafele kompatibilitás miatt maradt bent.
Amúgy nem az IO zavar be, hanem az ablak Left paramétere.
Használd inkább a String objektum beépített függvényeit:
szoveg = left(szoveg, 4)
helyett
szoveg = szoveg.Substring(0, 4) -
sztanozs
veterán
pl.:
string[] AllLines = File.ReadAllLines(file);AllLines.Length vagy AllLines.LongLength
Automatice megpróbálja felismerni - amennyiben UTF-8 BOM-mal vagy UTF-32.
Ha UTF-8 BOM nélkül, vagy ASCII valami kódlappal, akkor azt nem ismeri fel.Eredetiből:
This method attempts to automatically detect the encoding of a file based on the presence of byte order marks. Encoding formats UTF-8 and UTF-32 (both big-endian and little-endian) can be detected. -
#2572
sztanozs
veterán
Apollo17hu
#2571
sztanozs
veterán
válasz
Apollo17hu
#2571
üzenetére
kompatibilitási problémák léphetnek fel, ha terjeszteni szeretnéd
-
sztanozs
veterán
válasz
zolynet
#2554
üzenetére
Szedd le így:
Set htmlDoc = CreateObject("HTMLFile")
urlString = "http://www.nfh.hu/pozitiv-lista?title=&field_shop_value=&page=0"
Set httpScraper = CreateObject("Microsoft.XMLHTTP")
httpScraper.Open "GET", urlString, False
httpScraper.send
If httpScraper.statusText = "OK" Then
htmlDoc.body.innerHTML = httpScraper.responseText
loadForm = True
Else
loadForm = False
Set htmlDoc = Nothing
Exit Function
End If
Set httpScraper = NothingÉs DOM-mal feldolgozod.
-
sztanozs
veterán
Nem, DateTime-ban tárold és a kivonás egy TimeSpan objektumot hoz létre. Ez már magában időtartamot reprezentál. MSDN-ről:
Dim startTime As Date = Now
' Run the process that is to be timed.
Dim runLength As Global.System.TimeSpan = Now.Subtract(startTime)
Dim millisecs As Integer = runLength.Milliseconds -
sztanozs
veterán
-
sztanozs
veterán
A bob_tm a html elem ID-ja. Az alapján meg lehet találni a document.getElementById függvénnyel. Inkább javascripttel próbálkozz (bár VBS-sel is megoldható persze).
)
Új hozzászólás Aktív témák
Hirdetés
- One otthoni szolgáltatások (TV, internet, telefon)
- Egyre csak fejlődik az AI, emberek tízezreit rúgja majd ki a BT
- Kuponkunyeráló
- Milyen billentyűzetet vegyek?
- Kazy Computers - Fehérvár - Megbízható?
- One mobilszolgáltatások
- AliExpress tapasztalatok
- Jövedelem
- Az áremelések és a GTA VI késése miatt nem költekeznek a játékosok?
- Lexus, Toyota topik
- További aktív témák...
- Telefon felvásárlás!! iPhone 11/iPhone 11 Pro/iPhone 11 Pro Max
- AKCIÓ! nVidia Quadro P4000 8GB GDDR5 videokártya garanciával hibátlan működéssel
- Bomba ár! HP ProBook 430 G5 - i5-8GEN I 8GB I 256GB SSD I HDMI I 13,3" I Cam I W11 I Garancia!
- Samsung Galaxy A12 64GB, Kártyafüggetlen, 1 Év Garanciával
- Csere-Beszámítás! Gigabyte Aorus Elite RX 9070 XT 16GB Videokártya! Bemutató darab!
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest