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

• sztanozs veterán

  #3202

  #3194 Mzmatus

  2025-10-29 10:28: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

  #3194 Mzmatus

  Claude szerint:
  Method 1: Using AutoCAD's GetOpenFilename

  Sub OpenFileDialog()
  Dim fileName As Variant
  Dim filterString As String

  ' Define file filter (format: "Description|*.ext")
  filterString = "DWG Files (*.dwg)|*.dwg|All Files (*.*)|*.*"

  ' Show open file dialog
  fileName = ThisDrawing.Application.GetOpenFilename( _
  "Select a file", _
  filterString, _
  "dwg", _
  0)

  ' Check if user cancelled
  If VarType(fileName) <> vbBoolean Then
  MsgBox "Selected file: " & fileName
  ' Do something with the file path
  Else
  MsgBox "No file selected"
  End If
  End Sub

  Ugy tunik ez se letezik. Ezzel lehet esetleg beprobalkozni?
  Sub OpenFileUsingCommand()
Dim fileName As String
ThisDrawing.SendCommand "(setq myfile (getfiled " & Chr(34) & "Select File" & Chr(34) & " " & Chr(34) & Chr(34) & " " & Chr(34) & "dwg" & Chr(34) & " 0))" & vbCr
' Then retrieve the variable value
End Sub

  Method 2 - ugyanaz mint a WinApi, amit korabban Fire/SOUL/CD irt...

  Method 3 - .NET-ben van OpenFile Dialog, csak ahoz a kodot at kell irni .NET-re
  https://help.autodesk.com/view/OARX/2025/ENU/?guid=OARX-ManagedRefGuide-Autodesk_AutoCAD_Windows_OpenFileDialog

• 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

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

• 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

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

• 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

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

• 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

  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")

• 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

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

• 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

  Ú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).

• 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

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

• 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

  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.

• 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

  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.

• 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

  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.

• 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

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

• 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

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

• 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

  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.

• 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

  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

  #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

  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?

• 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

  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

• 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

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

• 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

  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.

• 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

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

• 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

  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

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

• 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

  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]

• 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

  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.

• 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

  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).

• 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

  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.

• 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

  Ez melyik VB?

• sztanozs veterán

  #3098

  #3097 Vladek83

  2019-05-20 10:23: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

  #3097 Vladek83

  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

  #3095

  #3094 Kija

  2019-05-06 10:26: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

  #3094 Kija

  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).

• sztanozs veterán

  #3092

  #3091 Kija

  2019-04-24 14:48: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

  #3091 Kija

  Ha HTML az email, akkor XML DOM, ha nem akkor kereshetsz szövegre.

• sztanozs veterán

  #3082

  #3081 Lokids

  2019-01-09 14:57: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

  

  sztanozs

  veterán

  #3081 Lokids

  
  On Error Resume Next

  Ezt vedd ki és nézd meg milyen hibát dob.

• sztanozs veterán

  #3080

  #3079 Lokids

  2019-01-09 14:35:22

  Ú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

  #3079 Lokids

  SMTP SSL valószínüleg nem ezen a porton fut, az is biztosan jó?

• sztanozs veterán

  #3076

  #3071 mdk01

  2019-01-09 10:30: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

  

  sztanozs

  veterán

  #3071 mdk01

  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)...

• sztanozs veterán

  #3063

  #3061 Olwynn

  2018-11-26 11:19: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

  

  sztanozs

  veterán

  #3061 Olwynn

  json.net csomagot kell használni.

  Ini fájlra van windows API is: [link]

• sztanozs veterán

  #3052

  #3051 Zalanius

  2018-07-17 11:19: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

  

  sztanozs

  veterán

  #3051 Zalanius

  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.

• sztanozs veterán

  #3035

  #3034 Lokids

  2018-04-25 17:09: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

  

  sztanozs

  veterán

  #3034 Lokids

  Kapcsold ki az R1C1-et a beállításokban, és akkor rendesen mutatja majd:
  

• sztanozs veterán

  #3033

  #3030 Lokids

  2018-04-25 15:45: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

  

  sztanozs

  veterán

  #3030 Lokids

  van az "F: "-ben a kettőspont után egy space

• sztanozs veterán

  #3021

  #3020 batagy

  2018-03-22 17:23: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

  #3020 batagy

  Late Binding kell, és az majd működik mind a kettő verzióval.

• sztanozs veterán

  #3019

  #3018 batagy

  2018-03-22 16:03: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

  

  sztanozs

  veterán

  #3018 batagy

  Valószínüleg a megfelelő referenciák nincsenek beállítva. Illetve a Win10-es gépen nincs fent az az XML verzió, ami be van hivatkozva.

• sztanozs veterán

  #3017

  #3014 vilag

  2018-03-10 10: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

  

  sztanozs

  veterán

  #3014 vilag

  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

  #3013

  #3012 vilag

  2018-03-09 10:22: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

  

  sztanozs

  veterán

  #3012 vilag

  VBA jelszót feltörni triviálisnak tűnik (google első találat): [link]

• sztanozs veterán

  #3007

  #3004 smallmer

  2018-03-06 16:32: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

  #3004 smallmer

  VBA van office-ban, a fejlesztői felületet Alt+F11-el tudod megnyitni (ha nyitva van az Excel).

• sztanozs veterán

  #3003

  #3002 smallmer

  2018-03-06 10:58: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

  

  sztanozs

  veterán

  #3002 smallmer

  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

  #3001

  #3000 smallmer

  2018-03-06 10:30: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

  #3000 smallmer

  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

  #2999

  #2997 vilag

  2018-03-05 19:22:26

  Ú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

  #2997 vilag

  Kódtörlés: [link]
  Az első kérdésedre amúgy "nem" a válasz mert nem kódból ellenőrzöd a vba protection kódot, hanem az excel csinálja meg neked, szóval a kódot csak időzítve, vagy programozható eseményhez kötve tudod töröltetni.

• sztanozs veterán

  #2996

  #2995 _kovi_

  2018-01-15 09:56: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

  

  sztanozs

  veterán

  #2995 _kovi_

  Akkor Registry Run - annál gyorsabban nem indul el semmi login után.

• sztanozs veterán

  #2994

  #2993 _kovi_

  2018-01-12 16:13: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

  

  sztanozs

  veterán

  #2993 _kovi_

  Szervíz nem hiszem, hogy tudna (rendesen) interaktálni a desktoppal modern windows os esetén: [link]
  Esetleg HKLM/Software/Microsoft/CurrentVersion/Run - ba lehetne berakni, hogy korábban elinduljon.
  Vagy job schedulerrel lehet loginra (de asszem az is deferred).

• sztanozs veterán

  #2990

  #2989 _kovi_

  2018-01-12 11:28: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

  #2989 _kovi_

  amúgy indítópultba elég, ha behúzod a vbs fájlt (mármint ha a Start menü > Programok > Startup - ról van szó)

• sztanozs veterán

  #2988

  #2987 _kovi_

  2018-01-12 11:15: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

  #2987 _kovi_

  vbs fájlt (pl cthlshifth.vbs) kell létrehozni neki és így lehet futtatni:
  wscript.exe //nologo cthlshifth.vbs

• sztanozs veterán

  #2986

  #2985 _kovi_

  2018-01-12 10:48: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

  

  sztanozs

  veterán

  #2985 _kovi_

  Set objWsh = WScript.CreateObject("WScript.Shell")
objWsh.SendKeys "+^H"

  Bővebben: [link]

• sztanozs veterán

  #2980

  #2979 Lokids

  2017-12-21 11:43: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

  

  sztanozs

  veterán

  #2979 Lokids

  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

  #2977

  #2975 Lokids

  2017-12-21 11: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

  #2975 Lokids

  Megírod ide, hogy szeretnéd töröltetni: link

  Biztos, hogy a range-et jól veszi fel ez a sor:
  Set WBRange = Workbooks(OutputKAT_F_Name).Worksheets(s_wsName).Range("A2:" & HeaderKAT_Last_Col & s_OutRow)
  Nézz rá debuggerben.

• sztanozs veterán

  #2966

  #2965 Lokids

  2017-12-14 09:59: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

  

  sztanozs

  veterán

  #2965 Lokids

  Szerintem nem space van ott, hanem nbsp - CHAR(160). Azt nem vágja a trim és nem kapja fel a " ".

• sztanozs veterán

  #2860

  #2859 alexy92

  2017-06-01 14:48: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

  #2859 alexy92

  Könnyebb kódot egyszerűbb javítani.

• sztanozs veterán

  #2858

  #2857 alexy92

  2017-06-01 14:24: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

  #2857 alexy92

  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

  #2856

  #2855 alexy92

  2017-06-01 12:51: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

  

  sztanozs

  veterán

  #2855 alexy92

  Úbaszki, mi ez a kódkígyó...

  Semmi indent, egy csomó tök feleslges sor.

• sztanozs veterán

  #2852

  #2849 alexy92

  2017-06-01 11:39: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

  #2849 alexy92

  próbáld meg így:
  If Err Then

  Esetleg lehetne egy Err.Clear az On Error Resume Next előtt...
  Amúgy nem lehet, hogy Selection.Copy mindig hibát dob neked? Asszem talán akkor is hibát dob, ha nem az aktív lapon van a Selection...

• sztanozs veterán

  #2848

  #2847 alexy92

  2017-05-31 13:45: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

  

  sztanozs

  veterán

  #2847 alexy92

  szedd szét így, és tudod majd debugolni:
  If Err.Number <> 0 Then
sub3
Else
sub2
End If

• sztanozs veterán

  #2836

  #2835 Bazs87

  2017-05-16 11:36:26

  Ú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

  #2835 Bazs87

  Ok, mindent bele és gyúrj rá a keresésre - szinte minden esetlegesen felmerülő problémádra van már megoldás.

• sztanozs veterán

  #2834

  #2833 Bazs87

  2017-05-16 11:29: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

  

  sztanozs

  veterán

  #2833 Bazs87

  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

  #2831

  #2829 Bazs87

  2017-05-16 09:40: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

  #2829 Bazs87

  Miért kell selectelned? Az maximum copy-paste-hez kell.
  Minden mást meg lehet oldani ActiveCell nélkül.

• sztanozs veterán

  #2827

  #2826 martonx

  2017-05-15 17:07: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

  #2826 martonx

  Mert a DLL addin-t (XLL) telepíteni és regisztrálni kellene ami a jelenlegi környezetben igen macerás.

• sztanozs veterán

  #2825

  #2824 Ispy

  2017-05-15 16:12: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

  

  sztanozs

  veterán

  #2824 Ispy

  Köszi, ezt én is megtaláltam már. Az a baj ezzel, hogy ezek nem .NET FileStream objektum megoldások, hanem a VBScript-ben is használt FSO (FileSystemObject). Ezt nem tudom megetetni a másik (SHA512Managed) .NET osztállyal.

• sztanozs veterán

  #2823

  #2822 Ispy

  2017-05-15 15:30: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

  

  sztanozs

  veterán

  #2822 Ispy

  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

  #2821 2017-05-15 14:28: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

  Erre rá tudna pillantani valaki? [link]
  Tudom, hogy perverz, de nagyon kellene...

• sztanozs veterán

  #2783

  #2782 Petya25

  2017-04-19 14:33: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

  #2782 Petya25

  PIVOT lekérdezést kell csinálni: [link]

• sztanozs veterán

  #2760

  #2759 vilag

  2017-02-27 14:51:17

  Ú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

  #2759 vilag

  Szerintem, ha az utolsó utáni sor felső borderjét beállítod, akkor szűrés után is "ott marad".

• sztanozs veterán

  #2756

  #2755 vilag

  2017-02-09 11:22: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

  #2755 vilag

  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

  #2754

  #2753 vilag

  2017-02-08 16:02: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

  

  sztanozs

  veterán

  #2753 vilag

  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

• sztanozs veterán

  #2752

  #2751 vilag

  2017-02-08 10:43:26

  Ú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

  #2751 vilag

  Inkább vbscripttel csinálnám - az nem ennyire túlbonyolított: [link]

  Persze admin jog kell mind a két megoldáshoz, nem lehet ez a gond nálad?

• sztanozs veterán

  #2749

  #2747 sztanozs

  2017-01-17 12:41: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

  

  sztanozs

  veterán

  #2747 sztanozs

  VBA-hoz találtam korábban self-updater-t, azt szabtam testre:
  [link]

• sztanozs veterán

  #2747

  #2746 A Gabor

  2017-01-17 12:14: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

  #2746 A Gabor

  Ez VB6, VBA vagy VB.NET kérdés?

• sztanozs veterán

  #2721

  #2720 Amiens

  2016-08-02 12:12: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

  #2720 Amiens

  Az Outlook.Application csak olyan címzett nevében hajlandó küldeni, amelyikre SendAs joggal rendelkezel: [link]
  Esetleg használhatod a SentOnBehalfOfName property-t, de szerintem látszani fog, hogy tőled jött.

• sztanozs veterán

  #2719

  #2718 Amiens

  2016-08-01 14:51: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

  

  sztanozs

  veterán

  #2718 Amiens

  Tedd fel valahova, hogy oldottad meg. Addig nem igazán tudunk segíteni, amíg nem látjuk, mit csináltál.

• sztanozs veterán

  #2708

  #2707 Nikkie

  2016-04-14 14:12:27

  Ú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

  #2707 Nikkie

  Készítettem egy macrót - a többi részt elolvasva, az hiszem már itt hibázik a kérdés

• sztanozs veterán

  #2663

  #2662 Atomantiii

  2015-10-20 10:59:58

  Ú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

  #2662 Atomantiii

  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) = True

  Ha eltünteti, amikor leveszed a fókuszt:
  Listbox1.HideSelection = False

  Ja amúgy ez kb 3 perc google volt. Ha nem megy az angol, akkor gyorsan állj neki.

• sztanozs veterán

  #2650

  #2646 Atomantiii

  2015-10-15 13:24: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

  #2646 Atomantiii

  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

  #2634

  #2632 cigam

  2015-05-11 14:14: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

  

  sztanozs

  veterán

  #2632 cigam

  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

  #2631

  #2630 cigam

  2015-05-11 08:56:29

  Ú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

  #2630 cigam

  A form beállításai között van valami rajzolási beállítás - lehet, hogy a doublebuffering.
  A lényeg az, hogy ne próbálj plusz rajzolásokat beleerőszakolni a rendszerbe, próbáld meg kihasználni azt, amit a rendszer ad.

• sztanozs veterán

  #2629

  #2628 cigam

  2015-05-10 19:45:41

  Ú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

  #2628 cigam

  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

  #2626

  #2625 cigam

  2015-05-09 11:10: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

  

  sztanozs

  veterán

  #2625 cigam

  Állítsd be a megfelelő kódlapot és kakukk.

• sztanozs veterán

  #2624

  #2623 cigam

  2015-05-08 20:15: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

  #2623 cigam

  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.

• sztanozs veterán

  #2611

  #2608 Don_

  2015-04-28 10:03:29

  Ú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

  #2608 Don_

  vagy named range-vel...

• sztanozs veterán

  #2588

  #2587 salmiakki

  2015-02-25 11:54: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

  

  sztanozs

  veterán

  #2587 salmiakki

  Próbáld meg lerajzolni azokat a helyzeteket, amikor egy kontrol takar egy másikat és ez alapján meglesznek a megoldások.

• sztanozs veterán

  #2579

  #2578 belaur

  2014-12-15 19:20: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

  #2578 belaur

  [link] > ReadOnly attribútum

• sztanozs veterán

  #2572

  #2571 Apollo17hu

  2014-12-14 09:02: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

  #2571 Apollo17hu

  kompatibilitási problémák léphetnek fel, ha terjeszteni szeretnéd

• sztanozs veterán

  #2564

  #2562 Dtomka

  2014-12-04 12:00: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

  

  sztanozs

  veterán

  #2562 Dtomka

  Milyen nyelvet?

• sztanozs veterán

  #2561

  #2560 martonx

  2014-12-04 09:30:27

  Ú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

  #2560 martonx

  Én VB6-ból vezéreltem utoljára (mscom-mal) soros porti modemet... (ja nem pythonból linux alatt tavaly )

• sztanozs veterán

  #2557

  #2556 zolynet

  2014-11-26 16:42: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

  

  sztanozs

  veterán

  #2556 zolynet

  Mivel SUB-ba raktad, így Exit Sub kell Exit Function helyett.
  BTW ez a funkció az egész weblapot leszedi, így neked kell kézzel (kóddal) navigálnod a DOM-ban és kiszedni az url-eket.

• sztanozs veterán

  #2555

  #2554 zolynet

  2014-11-26 12:56: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

  #2554 zolynet

  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

  #2526

  #2525 Diopapa

  2014-10-09 10: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

  

  sztanozs

  veterán

  #2525 Diopapa

  Akkor olyan bejárás kell, hogy először megkeresed az első lehetséges utat (tetszőleges bejárással) és a talált útnál rövidebb utat keresel visszalépés-alternatív próbálkozás-hosszabb kizárás módszerrel.

• sztanozs veterán

  #2524

  #2523 Diopapa

  2014-10-09 10:41:27

  Ú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

  #2523 Diopapa

  fa bejárása

  A probléma akkor oldahtó meg egyszerűen, ha az útvonalak által generált gráf körmentes (fa).

• sztanozs veterán

  #2521

  #2520 vilag

  2014-10-08 11:37: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

  #2520 vilag

  Köszi

• sztanozs veterán

  #2519

  #2518 vilag

  2014-10-08 08:10: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

  

  sztanozs

  veterán

  #2518 vilag

  

  Megosztani nem szeretnéd?

• sztanozs veterán

  #2516

  #2515 vilag

  2014-10-03 09:18: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

  #2515 vilag

  van netes generátor egy csomó: [link]

• sztanozs veterán

  #2511

  #2510 cigam

  2014-09-24 13:27: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

  

  sztanozs

  veterán

  #2510 cigam

  Igen, de ez nem túl pontos.
  Ezt célszerű használni inkább: Stopwatch (System.Diagnostic)
  [link]

• sztanozs veterán

  #2509

  #2507 cigam

  2014-09-24 06:34: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

  

  sztanozs

  veterán

  #2507 cigam

  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

  #2506

  #2505 cigam

  2014-09-23 13:53: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

  #2505 cigam

  DateTime VB.NET-ben, vagy Date VB6-ban. Esetleg Long (timestamp) vagy Double (Excel).

• sztanozs veterán

  #2504

  #2503 cigam

  2014-09-23 13:07: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

  

  sztanozs

  veterán

  #2503 cigam

  De ugye a kódod lefutása is időbe kerül és a timer esemény lekezelése is időbe kerül. A 1000 ms pedig az előző kód lefutása után értendő. Egyszerűbb, ha 100 ms-ként csinálod és elmentett Time (Now) és aktuális Time (Now) közötti különbséget írod mindig ki.

• sztanozs veterán

  #2500

  #2499 cigam

  2014-09-22 22:02: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

  #2499 cigam

  Mivel/hogyan csináltad a stoppert?

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