Fri, 30 Jul 2010 20:15:23 +0200 http://www.vbib.be/ VBiB (Visual basic.be) nl-be http://www.vbib.be/images/logo.gif http://www.vbib.be/ crew@vbib.be http://www.vbib.be/gotofor.php?id=45447 oke Bedankt alvast maar hoe zet ik het nu neer dat als ik notepad afsluit er een messagebox komt met een tekst? (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 20:15:23 +0200 http://www.vbib.be/gotofor.php?id=45446 Kinderachtig? Misschien is hij wel een revolutionair voetbalspel aan het maken! (gepost in MS VB 2010 ® - Algemeen door josk79) josk79 MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 18:26:04 +0200 http://www.vbib.be/gotofor.php?id=45445 [quote:b9797f9ae6="Xymtrix"]Ik heb het zelf ook geprobeerd ik krijg wel items in mijn lijst:[vb] Dim xFile As IO.FileInfo Dim xDir As New IO.DirectoryInfo("c:\temp\") Dim teller As Integer = 0 For Each xFile In xDir.GetFiles("*.*", IO.SearchOption.AllDirectories) ListBox1.Items.Add(xFile.Name) 'If teller = 50 Then Exit For Next[/vb] Het probleem is alleen dat je niet voor alles rechten heb en/of is in bezet door het systeem. Als ik gewoon op c:\ wou kijken kreeg ik ook meteen een error, omdat ik geen rechten had voor 'System Volume Information' . Als je in een map begint, krijg je dan nog steeds meteen die error ??[/quote] Could not find a part of the path 'c:\temp'. (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 17:11:12 +0200 http://www.vbib.be/gotofor.php?id=45444 [quote:84cdbe9634="Vozzie"]Hallo, Denk dat deze search je wel zal verder helpen, zoniet roep je maar ,... http://www.google.be/search?hl=nl&q=register+browser+default&meta=&rlz= Groeten[/quote] via vb heb ik eerder vermeld & dat was niet het grootste probleem (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 17:09:32 +0200 http://www.vbib.be/gotofor.php?id=45443 Ik heb het zelf ook geprobeerd ik krijg wel items in mijn lijst:[vb] Dim xFile As IO.FileInfo Dim xDir As New IO.DirectoryInfo("c:\temp\") Dim teller As Integer = 0 For Each xFile In xDir.GetFiles("*.*", IO.SearchOption.AllDirectories) ListBox1.Items.Add(xFile.Name) 'If teller = 50 Then Exit For Next[/vb] Het probleem is alleen dat je niet voor alles rechten heb en/of is in bezet door het systeem. Als ik gewoon op c:\ wou kijken kreeg ik ook meteen een error, omdat ik geen rechten had voor 'System Volume Information' . Als je in een map begint, krijg je dan nog steeds meteen die error ?? (gepost in MS VB 2010 ® - Algemeen door Xymtrix) Xymtrix MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 16:13:35 +0200 http://www.vbib.be/gotofor.php?id=45442 Hallo, Denk dat deze search je wel zal verder helpen, zoniet roep je maar ,... http://www.google.be/search?hl=nl&q=register+browser+default&meta=&rlz= Groeten (gepost in MS VB 2010 ® - Algemeen door Vozzie) Vozzie MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 16:07:30 +0200 http://www.vbib.be/gotofor.php?id=45441 Hallo, 1, 2 blokkeren de gui, 3 en 4 niet...[list=1][*][vb]Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim p As Process = Process.Start("notepad.exe", "") Do Until p.HasExited System.Threading.Thread.Sleep(1) Loop End Sub[/vb][*][vb]Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim p As Process = Process.Start("notepad.exe", "") p.WaitForInputIdle() p.WaitForExit() End Sub[/vb][*][vb]Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim p As Process = Process.Start("notepad.exe", "") Do Until p.HasExited Application.DoEvents() Loop End Sub[/vb][*][vb]'Private _started As New Threading.ManualResetEvent(False) Private _stopped As New Threading.ManualResetEvent(True) Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click If _stopped.WaitOne(0, False) Then Dim t As New Threading.Thread(AddressOf RunProcess) t.Start() _stopped.Reset() End If End Sub Private Sub RunProcess() Try Dim p As Process = Process.Start("notepad.exe", "") p.WaitForInputIdle() p.WaitForExit() Finally _stopped.Set() End Try End Sub[/vb][/list]Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 15:38:49 +0200 http://www.vbib.be/gotofor.php?id=45440 hoe moet het dan wel? (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 14:14:24 +0200 http://www.vbib.be/gotofor.php?id=45439 Hallo, ALs je de SubFolder optie uitzet, werkt het dan wel? Dan zou je kunnen opteren voor recursie,...(volgens één of andere thread op codeproject niet de beste methode maar ik zie niet echt in waarom,...) Update: dit voorbeeld hoort te werken als je die fout krijgt op mappen,... Pas wel aan voor de listbox items toe te voegen... [vb]Sub RecursiveEnum(ByVal di As IO.DirectoryInfo) For Each fi As IO.FileInfo In di.GetFiles() 'Me.ListBox1.Items.Add(fi.Name) Next For Each subDi As IO.DirectoryInfo In di.GetDirectories() Try RecursiveEnum(di) Catch ex As Exception ' ACCESS DENIED ERROR is hier opgevangen End Try Next End Sub Sub FillListBox() 'Me.ListBox1.Items.Clear() Dim di As New IO.DirectoryInfo("D:\") RecursiveEnum(di) End Sub[/vb] Update: Opgelet, het voorbeeld kan bij een schijf met teveel mappen een StackOverflowException geven,... Omdat de functie zichzelf teveel aanroept,... Je kan een parameter toevoegen om het aantal doorzochte deelmappen te limiteren, ... Anders kan je ook met .Net Reflector kijken hoe microsoft de bestanden opsomt,... Die code gebruikt geen recursie,... Of bekijk eens de latere reacties op mijn vraag hier,... http://www.codeproject.com/Feature/CodingHorrors.aspx?msg=3110198 de voorbeelden zijn wel in C# groeten (gepost in MS VB 2010 ® - Algemeen door Vozzie) Vozzie MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 13:51:17 +0200 http://www.vbib.be/gotofor.php?id=45438 Hy, [quote]de while zorgt ervoor dat je UI thread nog door blijft lopen [/quote] Denk niet dat dit klopt,... Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 12:51:19 +0200 http://www.vbib.be/gotofor.php?id=45437 Reden waarom ik nog altijd in visualbasic 5.0 werk, ik ben begonnen met qbasic toen ik een jaar of 12 was toevallig door een boek dat ik in de bib zag liggen. De taal zelf geleerd door veel te proberen, later toen ik op school zat(14j) kon ik de professionele versie van vb5 aankopen aan een redelijk lage prijs. De leraar van informatica vroeg mij of ik wel wist wat voor een programma dat was. (zat in de richting hout technieken). het jaar daarop heb ik mijn eerste facturatie pakket gemaakt "fac98" (1998)het beheren van offertes\facturen\klanten(+- 2 jaar gebruikt door een bedrijf). De code was niet goed opgebouwd om aanpassingen te doen, dus nieuw programma "spfac" (2000) grafisch beter opgebouwd en veel meer mogelijkheden t.o.v. "fac98". spfac word nog altijd gebruikt tot op de dag van vandaag(+-9jaar lang), maar loopt op zijn einde wegens het aan kopen van een facturatie pakket. voor de overgang van het ene programma naar het ander heb ik spfac aangepast dat het een deel van de database van het aangekocht programma omzet. Nu ik weer tijd heb, heb ik dus spijt van het nieuw aangekocht programma: kosten onderhoudscontract (wel heel goeie service van dat bedrijf), het programma kan teveel en is hierdoor voor sommige gebruikers niet overzichtelijk. Ondertussen nog een fotoalbum gemaakt, en nu bezig aan het cad programma, reden (het moet alleen 2d kunnen, overzichtelijk zijn, een beperkt geheugen gebruiken). De vb taal zit er te diep ingebakken en ben maar amateur, tot nu toe werken mijn vb programma's nogal tijd tot en met Windows 7 De .net taal ziet er wat omslachtig uit of heb ik het mis? Zal misschien toch nog moeten overstappen aangezien microsoft vb6 niet meer zal ondersteunen bij nieuwere operating systems. het algoritme kan ik misschien nog toepassen. als je wilt dan kan je een demo doorsturen.(met hier en daar nog wat bugs) k'zal nog wat schermbeelden plaatsen van andere programma's (gepost in MS VB 6 ® - Algemeen door Svr) Svr MS VB 6 ® - AlgemeenFri, 30 Jul 2010 12:19:10 +0200 http://www.vbib.be/gotofor.php?id=45436 Ik ben bezig met een niew programmaatje en stuit nu al op een probleem. ik probeer eerst alle bestanden in een listbox krijgen maar ik krijg geen toegang tot een aantal mappen. (D:\ is mijn harde schijf ; niet C:\) [vb] For Each foundFile As String In My.Computer.FileSystem.GetFiles( _ "D:\", _ FileIO.SearchOption.SearchAllSubDirectories, "*.txt") ListBox1.Items.Add(foundFile) Next[/vb] heb dit stukje code van microsoft. ik krijg altijd " acces denied" hoe los ik dit op ? (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 11:22:02 +0200 http://www.vbib.be/gotofor.php?id=45435 [quote:0a7e9a180b="Jark"]Nou stel je voor dat bartjuh de bal wil laten bewegen over het grasveld aan de hand van gebruikers input?[/quote] :D een beetje kinderachtig ( mijn mening ) maarja als je zo leert programmeren is het natuurlek super :wink: (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 11:17:04 +0200 http://www.vbib.be/gotofor.php?id=45434 nenenenene , ik had het maar als voorbeeld genomen. bv internet snelkoppelingen die openen in je standaart browser of text files , die openen in notepad (en dan zie je in notepad de text van de text file) dus mijn vraag is hoe kun je je eigen browser als standaart instellen (via vb) & hoe kun je je programma laten weten welk dinge hij heeft geopend ? greetz (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 11:15:44 +0200 http://www.vbib.be/gotofor.php?id=45433 Bovenstaande code met de Wiascr.dll gaat goed voor een Wiascanner. Mijn Wiascanner is omgeruild voor een Kodak i65scanner en deze is een Twainscanner. Het is niet mogelijk met bovenstaande code de Kodakscanner aan te sturen. Op de device wordt een foutmelding gegeven. Is het mogelijk met de code ook een Twainscanner aan te sturen zodat ik met een simpele checkbox kan aageven welke scanner gebruikt wordt? (gepost in MS VB 2008 ® - Algemeen door Scheepers) Scheepers MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 10:00:13 +0200 http://www.vbib.be/gotofor.php?id=45432 zou je een voorbeeld willen geven ik snap het niet helemaal? ik heb het nu zo dat als ik op een button klik After effects word gestart Process.Start("afterfx.exe", "-r D:\2.jsx") After effects voert een script ui en after effects wordt gesloten daarna moet mijn programma weer verder gaan Bijvoorbeeld door een messagebox dat After effects is afgesloten. hoe nu verder Alvast bedankt! (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 08:33:07 +0200 http://www.vbib.be/gotofor.php?id=45431 Hallo Appie, Ik gebruik zelf onderstaande code: [vb] While Not process.HasExited Threading.Thread.Sleep(1) End While [/vb] De sleep zorgt ervoor dat je geen 100% cpu krijgt en de while zorgt ervoor dat je UI thread nog door blijft lopen en dat je UI niet "vastloopt". Edit: je moet natuurlijk wel je process toekennen aan de process variable. Dus jij krijgt dan: [vb] Dim process = Process.Start("afterfx.exe", "-r D:\2.jsx") [/vb] Voor bovenstaand stukje code. Er bestaan nog veel meer manieren om dit te doen (met bijvoorbeeld de .WaitForExit methode), maar deze methode werkt voor mij. Mvg, Jark (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 08:17:56 +0200 http://www.vbib.be/gotofor.php?id=45430 Hallo TheTeacher, In msn zit daar een optie voor dacht ik, in vroegere versies startte msn altijd internet explorer op ongeacht je eigen standaard browser. Mvg, Jark (gepost in MS VB 2010 ® - Algemeen door Jark) Jark MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 08:09:08 +0200 http://www.vbib.be/gotofor.php?id=45429 Nou stel je voor dat bartjuh de bal wil laten bewegen over het grasveld aan de hand van gebruikers input? (gepost in MS VB 2010 ® - Algemeen door Jark) Jark MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 08:07:48 +0200 http://www.vbib.be/gotofor.php?id=45428 Hey nu moet het niet echt standaart webbrowser zijn maar ik neem dat als voorbeeld. dus als je bv in msn op een link klikt , opent hij die in de standaart webbrowser. nu mijn vraag was : hoe zet je in je project dat als je die link opent dat hij de browser opent en ook naar die link gaat ( met registry keys , veronderstel ik ) (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 00:54:01 +0200 http://www.vbib.be/gotofor.php?id=45427 ik snap eigenlijk het nut niet... waarom maak je niks met photoshop ( of alternatieven(GIMP bv)); (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenFri, 30 Jul 2010 00:51:23 +0200 http://www.vbib.be/gotofor.php?id=45426 Ik heb nog even een aanvullende vraag met Process.Start("afterfx.exe") kan ik adobe after effects starten. Dit werkt perfect maar bestaat er ook zoiets als: Zodra ik adobe After Effects afsluit mijn programma weer verder gaat. Dus zodra een extern programma gesloten wordt mijn programma weer verder gaat waar het gebleven was? Ik ben benieuwd! (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenFri, 30 Jul 2010 00:31:56 +0200 http://www.vbib.be/gotofor.php?id=45425 Hallo risc, Zie het example van de msdn pagina van streamreader -->[url]http://msdn.microsoft.com/en-us/library/system.io.streamreader.aspx[/url], die doet exact wat jij wilt. Mvg, Jark (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 21:59:59 +0200 http://www.vbib.be/gotofor.php?id=45424 Bedankt voor jullie antwoorden! Ik heb gekozen voor Jark's oplossing, omdat ik dan slechts 1 regel hoefde te veranderen in code die al werkte! Bedankt! Risc12 (gepost in MS VB 2010 ® - Algemeen door risc12) risc12 MS VB 2010 ® - AlgemeenThu, 29 Jul 2010 20:58:08 +0200 http://www.vbib.be/gotofor.php?id=45423 Ik wil graag een tekstbestand regel voor regel uitlezen, hoe kan ik dat het beste doen? Ik weet dat ik gebruik moet maken van de Streamreader, maar ik weet dan niet hoe ik het bestand regel voor regel kan uitlezen en dan elke regel naar een string verplaatsen. (Maar bepaalde regels niet, aanvankelijk van de inhoud van de regel.) Ik hoop dat jullie kunnen helpen! Alvast bedankt! Risc12 (gepost in MS VB 2008 ® - Algemeen door risc12) risc12 MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 20:57:20 +0200 http://www.vbib.be/gotofor.php?id=45422 Dit is vrij eenvoudig te doen in VB. 1) Sleep een SerialPort control naar je form (zie in je toolbox onder components). En stel de poortinstellingen in (COMx, 19200 8, N, 1 etc...) 2) Zorg dat de compoort wordt geopend bij opstarten door in je Form_Load event het volgende te zetten: SerialPort1.Open() 3) Maak een sub om een commando te sturen. Voorbeeld: [vb] Sub SendCommand(ByVal Command As Byte, ByVal BoardAddress As Byte, Optional ByVal Data As Byte = 0) Dim msg As String 'String opbouwen msg = Chr(Command) & Chr(BoardAddress) & Chr(Data) & Chr(Command Xor BoardAddress Xor Data) SerialPort1.Write(msg) End Sub[/vb] 4) Voor de sub uit (bijvoorbeeld door hem onder een button aan te roepen): [vb] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Stuur commando 'SET PORT' naar board met adres 1 '255 betekent alle relais aansturen SendCommand(3, 1, 255) End Sub [/vb] 5) Nu je programmaatje nog mooier maken door ook response van de relaiskaart te interpreteren. Succes! (gepost in MS VB 2008 ® - Algemeen door josk79) josk79 MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 17:16:21 +0200 http://www.vbib.be/gotofor.php?id=45421 Ik gebruik deze interface: [url]http://www.velleman.eu/distributor/products/view/?id=351980[/url] Het werkt perfect en gemakkelijk om aan te sturen. Groeten, Luc (gepost in MS VB 2008 ® - Algemeen door Luckie64) Luckie64 MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 16:07:58 +0200 http://www.vbib.be/gotofor.php?id=45420 Hallo, Zat net nog eens aan het feit dat de Intersection functie ook een punt terug geeft als de lijnen elkaar niet snijden(maar zouden snijden in het verlengde),... Een algoritme die kijkt of dat punt deel is van de lijn is er blijkbaar ook: http://en.wikipedia.org/wiki/Bresenham's_line_algorithm Groeten (gepost in MS VB 6 ® - Algemeen door Vozzie) Vozzie MS VB 6 ® - AlgemeenThu, 29 Jul 2010 15:16:47 +0200 http://www.vbib.be/gotofor.php?id=45419 Hallo, Aan de schermbeelden te zien ziet het er een net programma uit,.. Maar waarom in VB5? Mocht je in .Net werken kan je door gebruik te maken van libraries ook wel in 3D werken bijvoorbeeld,... Bijvoorbeeld met de DirectX library,... Zelf weinig kennis(kleine basis) maar wel interesse in meetkunde,... Vooral met betrekking op Geografie... Ik wil je gerust helpen om je programma te converteren naar .Net... Ik zal er ook veel uit leren,.. Groeten (gepost in MS VB 6 ® - Algemeen door Vozzie) Vozzie MS VB 6 ® - AlgemeenThu, 29 Jul 2010 15:13:35 +0200 http://www.vbib.be/gotofor.php?id=45418 Tutorials maken terwijl je beginner bent vind ik eerlijk gezegd niet kunnen maarja jouw keuze als je via USB ofzo wilt besturen raad ik je dit aan [url]http://www.microsoft.com/downloads/details.aspx?FamilyID=075318CA-E4F1-4846-912C-B4ED37A1578B&displaylang=en&displaylang=en[/url] (gepost in MS VB 2008 ® - Algemeen door TheTeacher) TheTeacher MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 14:23:16 +0200 http://www.vbib.be/gotofor.php?id=45417 ik zou er " try " voorzetten dan gaat die voor een deel. want bij mij gaat die tot -1 wat onmogelijk is :D (gepost in MS VB 2010 ® - Algemeen door TheTeacher) TheTeacher MS VB 2010 ® - AlgemeenThu, 29 Jul 2010 14:19:53 +0200 http://www.vbib.be/gotofor.php?id=45416 Ik heb een dataSet aangemaakt en ik wil daarna de velden met de handige optie "Drag and Drop" op mijn formulier neerzetten. Met de rechtermuis toets zie ik de diverse tools zoals tekstbox, label, combobox, maar de tools komen niet op het formulier. Ik gebruik Visual Basic 2008 Express Edition. (gepost in MS VB 2008 ® - Databases door Scheepers) Scheepers MS VB 2008 ® - DatabasesThu, 29 Jul 2010 13:38:42 +0200 http://www.vbib.be/gotofor.php?id=45415 Hallo, Eigenlijk geen typo, maar een copy pasta foutje,... Heb de code aangepast, der zit ook een fullscreen in en ze is iets netter,... Wou gisteren die fullscreen er niet in stoppen omdat die niet werkte,... :D ik dacht er niet aan dat ik bezig was met terminal server ;) [vb]Imports System.Runtime.InteropServices Friend NotInheritable Class ConsoleEx Private Shared _visible As Boolean Private Shared _hWnd As IntPtr Private Shared _hOut As IntPtr Shared Sub New() _hWnd = NativeMethods.GetConsoleWindow() If _hWnd = IntPtr.Zero Then Throw New NullReferenceException End If _hOut = NativeMethods.GetStdHandle(NativeMethods.StdHandle.Output) If _hOut.ToInt32() = -1 Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If _visible = True End Sub Public Shared Property FullScreen() As Boolean Get Dim mode As NativeMethods.DisplayMode If NativeMethods.GetConsoleDisplayMode(mode) Then Return mode = NativeMethods.DisplayMode.FullScreen Else Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If End Get Set(ByVal value As Boolean) Dim mode As NativeMethods.DisplayMode If value Then mode = NativeMethods.DisplayMode.FullScreen Else mode = NativeMethods.DisplayMode.Normal End If Dim coord As NativeMethods.COORD If Not NativeMethods.SetConsoleDisplayMode(_hOut, mode, coord) Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If End Set End Property Public Shared Property Visible() As Boolean Get Return _visible End Get Set(ByVal value As Boolean) If _visible <> value Then If value Then If NativeMethods.ShowWindow(_hWnd, 1) Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If Else If Not NativeMethods.ShowWindow(_hWnd, 0) Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If End If _visible = value End If End Set End Property Private NotInheritable Class NativeMethods #Region " User32 " Friend Const USER32_DLL As String = "User32.dll" <DllImport(USER32_DLL, SetLastError:=True)> _ Friend Shared Function ShowWindow( _ ByVal hWnd As IntPtr, _ ByVal nCmdShow As Integer _ ) As <MarshalAs(UnmanagedType.Bool)> Boolean End Function #End Region #Region " Kernel32 " Friend Const KERNEL32_DLL As String = "Kernel32.dll" <DllImport(KERNEL32_DLL, SetLastError:=True)> _ Friend Shared Function GetConsoleDisplayMode( _ ByRef dwDisplayMode As DisplayMode _ ) As <MarshalAs(UnmanagedType.Bool)> Boolean End Function <DllImport(KERNEL32_DLL, SetLastError:=True)> _ Friend Shared Function GetConsoleWindow( _ ) As IntPtr End Function <DllImport(KERNEL32_DLL, SetLastError:=True)> _ Friend Shared Function GetStdHandle( _ ByVal nStdHandle As StdHandle _ ) As IntPtr End Function <DllImport(KERNEL32_DLL, SetLastError:=True)> _ Friend Shared Function SetConsoleDisplayMode( _ ByVal hConsoleOutput As IntPtr, _ ByVal dwDisplayMode As DisplayMode, _ <Out()> ByRef lpCoord As COORD _ ) As <MarshalAs(UnmanagedType.Bool)> Boolean End Function <StructLayout(LayoutKind.Sequential)> _ Friend Structure COORD Public X As Int16 Public Y As Int16 End Structure Friend Enum DisplayMode As Integer FullScreen = 1 Normal = 2 End Enum Friend Enum StdHandle As Integer Input = -10 Output = -11 [Error] = -12 End Enum #End Region Private Sub New() End Sub End Class Private Sub New() End Sub End Class[/vb] Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 12:42:10 +0200 http://www.vbib.be/gotofor.php?id=45414 K'ben dan maar een webblog begonnen op deze site (gepost in MS VB 6 ® - Algemeen door Svr) Svr MS VB 6 ® - AlgemeenThu, 29 Jul 2010 12:42:04 +0200 http://www.vbib.be/gotofor.php?id=45413 Heb ik ook wel eens. Maar zoals je zegt: everything is true, even false things are Groeten (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 11:58:09 +0200 http://www.vbib.be/gotofor.php?id=45412 Hallo, Dat zal een typo wezen hé :), LOL Zal het aanpassen, Groeten (btw: everything is true, even false things are ) (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 11:55:48 +0200 http://www.vbib.be/gotofor.php?id=45411 Hatelijk dank! Hij doet het perfect. Ik ga de code ook eens zelf uitpluizen zodat ik hem begrijp. Kan handig zijn voor later. Dus om de console te verbergen en weer te tonen moet allebei [b]ConsoleEx.Visible = False[/b] gebruikt worden. Speciaal! :lol: Groetjes Dieter (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 11:53:37 +0200 http://www.vbib.be/gotofor.php?id=45410 Hallo appie21, Ik heb twee dingen gewijzigd t.o.v. de vorige code. 1. gebruik altijd het Using statement als je werkt met streams, dit zorgt ervoor dat streams goed worden opgeruimd en hoef je ze zelf niet meer af te sluiten. 2. FileMode.CreateNew moet FileMode.Create worden Nog wel 1 vraag: vereist het programma nog dat je het bestand in een bepaalde encoding weg moet schrijven (ansi/utf8/utf16)? [vb] Dim Value As Integer = 70 ' = Label1.text Dim FileName As String = Nothing Dim Savedialog As New SaveFileDialog Savedialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop Savedialog.Filter = "*.jsx|" Dim DialogResult As DialogResult = Savedialog.ShowDialog If DialogResult = Windows.Forms.DialogResult.OK Or DialogResult = Windows.Forms.DialogResult.Yes Then FileName = Savedialog.FileName If Not FileName.EndsWith(".jsx") Then FileName = FileName & ".jsx" End If Try Using fileStream As New IO.FileStream(FileName, IO.FileMode.Create, IO.FileAccess.Write, IO.FileShare.Write) Using sr As New IO.StreamWriter(fileStream) sr.WriteLine("//start") sr.WriteLine("mySolid = myComp.layers.addSolid([0,0,0], ""colorCorrect"", myComp.width, myComp.height,1);") sr.WriteLine("mySolid.startTime = 0") sr.WriteLine("mySolid.adjustmentLayer = true;") sr.WriteLine("// myEffect = mySolid.property(""Effects"").addProperty(""ADBE Lens Flare"");") sr.WriteLine("myEffect = mySolid.property(""Effects"").addProperty(""Fast Blur"")(""Blurriness"").setValue(" & Value & ");") sr.WriteLine("//end ") End Using End Using Catch ex As Exception MessageBox.Show(ex.ToString, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If[/vb] Mvg, Jark (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenThu, 29 Jul 2010 08:53:28 +0200 http://www.vbib.be/gotofor.php?id=45409 kan iemand mij even helpen dit aan te passen zodat ik ook het bestandje kan vervangen? (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 23:00:39 +0200 http://www.vbib.be/gotofor.php?id=45408 Hallo Dierter, Zie: [url]http://stackoverflow.com/questions/1203755/registering-file-type-and-custom-document-icon-in-net[/url] Mvg, Jarka (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 22:22:53 +0200 http://www.vbib.be/gotofor.php?id=45407 Hallo, Voeg een class toe aan je project, noem deze ConsoleEx, plak in ConsoleEx.vb volgende code[vb]Imports System.Runtime.InteropServices Friend NotInheritable Class ConsoleEx Private Shared _visible As Boolean Private Shared _hWnd As IntPtr Shared Sub New() _hWnd = GetConsoleWindow() If _hWnd = IntPtr.Zero Then Throw New NullReferenceException End If _visible = True End Sub Private Sub New() End Sub Public Shared Property Visible() As Boolean Get Return _visible End Get Set(ByVal value As Boolean) If _visible <> value Then If value Then If ShowWindow(_hWnd, 1) Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If Else If Not ShowWindow(_hWnd, 0) Then Marshal.ThrowExceptionForHR(Marshal.GetHRForLastWin32Error()) End If End If _visible = value End If End Set End Property <DllImport("kernel32.dll", SetLastError:=True)> _ Private Shared Function GetConsoleWindow( _ ) As IntPtr End Function <DllImport("user32.dll", SetLastError:=True)> _ Private Shared Function ShowWindow( _ ByVal hWnd As IntPtr, _ ByVal nCmdShow As Integer _ ) As <MarshalAs(UnmanagedType.Bool)> Boolean End Function End Class[/vb] Nu kan je ze als volgt gebruiken [vb]ConsoleEx.Visible = False ConsoleEx.Visible = True[/vb] Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 22:13:23 +0200 http://www.vbib.be/gotofor.php?id=45406 Hallo allemaal, Ik ben nieuw op het forum en eigenlijk ook nieuw met Visual Basic. Het is allemaal begonnen met het idee dat ik ons huis met alles daarom heen aan wil sturen m.b.v. een pc. Een aantal maanden geleden heb ik VB2008 geïnstalleerd en aantal tutorials gemaakt. En heeft zeker mijn interesse gewonnen. Erg leuk om zelf programmaatjes te maken. Nu heb ik een programmaatje gemaakt die op een touchscreen in de muur moet komen te draaien. Het programmaatje is goed gelukt. Alleen het aansturen van de relaiskaart gaat mij niet lukken. Ik heb het internet afgezocht, maar helaas zonder succes. Daarom wil ik jullie vragen of jullie mij a.u.b. op weg willen helpen met dit probleem. Hieronder de link van de gebruiksaanwijzing: http://www.produktinfo.conrad.com/datenblaetter/175000-199999/197720-an-01-ml-8FACH_RELAISKARTE_24V_7A_de_en_fr_nl.pdf Gegevens relaiskaart: Conrad C-control 8 voudig relaiskaart. Bestnr.: 197720 - 89 ALVAST BEDANKT!!!!!! (gepost in MS VB 2008 ® - Algemeen door Emiel) Emiel MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 21:23:28 +0200 http://www.vbib.be/gotofor.php?id=45405 @Dieter, hey sorry was maar een voorbeeld maar dit is de e standfor [vb] Private Sub mmLink_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles mmLink.LinkClicked [/vb] [url]http://www.windows-tech.info/1/7545288455a943b5.php[/url] als je wilt hier is een goede site om het om te zetten naar vb soms kan het zijn dat je aanpassingen moet doen na het converteren. [url]http://www.developerfusion.com/tools/convert/csharp-to-vb/[/url] Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 20:17:24 +0200 http://www.vbib.be/gotofor.php?id=45404 Bedankt voor de antwoorden! @Dummy1912, Het zou de bedoeling moeten zijn dat de console zich kan verbergen terwijl hij al bezig is. Dus niet bij het opstarten. Als ik [vb]Dim sInfo As New ProcessStartInfo([color=red][b]e[/b][/color].Link.LinkData.ToString())[/vb] ...typ komt er een foutje bij de 'e'. Weet je hoe dit zou komen? Groeten @Vozzie, Bedankt voor de link maar ik denk dat dit enkel voor C# is en ik ben niet genoeg ervaren in C# om de codes om te zetten in vb codes. Maar toch bedankt! Misschien kan ik er toch informatie uit halen. Groeten (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 19:09:06 +0200 http://www.vbib.be/gotofor.php?id=45403 Hallo, [quote:d508410c20="DieterVB"]Is het mogelijk je console app te verbergen en weer terug te tonen? Mvg, Dieter[/quote] Ja... zie: http://social.msdn.microsoft.com/forums/en-US/csharpgeneral/thread/ea8b0fd5-a660-46f9-9dcb-d525cc22dcbd Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 17:09:51 +0200 http://www.vbib.be/gotofor.php?id=45402 Hallo, Bestanden opsommen in een ListBox kan makkelijk door gebruik te maken van de DataSource en DisplayMember properties. Zie: [vb]Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim di As New IO.DirectoryInfo("c:\") Me.ListBox1.DataSource = di.GetFiles() Me.ListBox1.DisplayMember = "Name" End Sub Private Sub ListBox1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDoubleClick If Me.ListBox1.SelectedIndex > -1 Then Dim fi As IO.FileInfo = DirectCast(Me.ListBox1.SelectedItem, IO.FileInfo) MsgBox(fi.Name) End If End Sub[/vb] Je kan ook filteren in de GetFiles method,... zie: [vb]' Vervang Me.ListBox1.DataSource = di.GetFiles() ' bijvoorbeeld door Me.ListBox1.DataSource = di.GetFiles("*.txt") ' voor enkel txt bestanden[/vb] Je kan ook alle submappen opvragen in de GetFiles method,... zie: [vb]' Vervang Me.ListBox1.DataSource = di.GetFiles() ' bijvoorbeeld door Me.ListBox1.DataSource = di.GetFiles("*.txt", IO.SearchOption.AllDirectories)[/vb] Groeten (gepost in MS VB 2010 ® - Algemeen door Vozzie) Vozzie MS VB 2010 ® - AlgemeenWed, 28 Jul 2010 16:56:15 +0200 http://www.vbib.be/gotofor.php?id=45401 @Dieter, Sorry dat kan ik je niet vertellen :( omdat ik het zelf nog aan het uitzoeken ben. Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:42:09 +0200 http://www.vbib.be/gotofor.php?id=45400 Hallo, Ja, het kan, dus zoals Jark aanhaalde... [list=1][*]Eenvoudig is het gebruik van Activator.CreateInstance. En de Unwrap Method van een ObjectHandle... [vb]Interface ICoolAppPlugin Sub DoSomething() End Interface[/vb] [vb]Sub LoadPlugin() Dim hObj As System.Runtime.Remoting.ObjectHandle ' MyNameSpaceName is in VB.Net standaard de naam van het project. Je kan deze bekijken veranderen onder project options... hObj = Activator.CreateInstanceFrom("C:\MyDll.dll", "MyNameSpaceName.MyClassName") ' Gebruik een interface om methods/properties etc opvoorhand te bepalen,... Dim myPlugin As ICoolAppPlugin = DirectCast(hObj.Unwrap(), ICoolAppPlugin) myPlugin.DoSomething() End Sub[/vb] [vb]Class MyClassName Implements ICoolAppPlugin Public Sub DoSomething() Implements ICoolAppPlugin.DoSomething MsgBox("i did it...") End Sub End Class[/vb] [*]Wil je de geladen dll's terug kunnen unloaden, dan moeten de types van MarshalByRef overerven en moet je ze laden in een AppDomain... [vb]Class MyClassName Inherits MarshalByRefObject Implements ICoolAppPlugin Public Sub DoSomething() Implements ICoolAppPlugin.DoSomething MsgBox("i did it...") End Sub End Class[/vb] Load/Unload zoiets(niet getest) [vb]Private _ad As AppDomain Sub LoadPlugin() ' maak een appdomain aan _ad = AppDomain.CreateDomain("#TheDomain") Dim hObj As System.Runtime.Remoting.ObjectHandle ' MyNameSpaceName is in VB.Net standaard de naam van het project. Je kan deze bekijken veranderen onder project options... hObj = Activator.CreateInstanceFrom(_ad, "C:\mydll.dll", "MyNameSpaceName.MyClassName") ' Gebruik een interface om methods/properties etc opvoorhand te bepalen,... Dim myPlugin As ICoolAppPlugin = DirectCast(hObj.Unwrap(), ICoolAppPlugin) myPlugin.DoSomething() End Sub Sub FreePlugin() AppDomain.Unload(_ad) End Sub[/vb] [/list] Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:34:33 +0200 http://www.vbib.be/gotofor.php?id=45399 @Dietervb, heb iets gevonden voor je hoop dat er je iets aan hebt. [code] Well to hide the console window use sInfo.CreateNoWindow = False when you start the process, otherwise sInfo.CreateNoWindow = True when you want to show the window when you start the process [/code] [vb] Dim sInfo As New ProcessStartInfo(e.Link.LinkData.ToString()) sInfo.CreateNoWindow = False Process.Start(sInfo) [/vb] Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:34:19 +0200 http://www.vbib.be/gotofor.php?id=45398 Simpelste manier : Je kan met de ping-class pingen naar Google bijvoorbeeld, en als dat lukt heb je internet verbinding. Geen idee hoe Hamachi werkt, dus daar kan ik je niet bij helpen.. Het enige wat ik je kan vertellen dat je bij processen van zien of die gestart is. [edit] Dat je netwerk heb wil nog niet zeggen dat je internet verbinding heb! (gepost in MS VB 2008 ® - Algemeen door Xymtrix) Xymtrix MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:33:20 +0200 http://www.vbib.be/gotofor.php?id=45397 Hallo, Of, [vb]If My.Computer.Network.IsAvailable Then ' beschikbaar Else ' niet beschikbaar End If[/vb] En/Of, Ping de bestemming En/Of, Connecteer naar één of ander type server Groeten (gepost in MS VB 2008 ® - Algemeen door Vozzie) Vozzie MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:32:01 +0200 http://www.vbib.be/gotofor.php?id=45396 @boment ik gebruik deze om te zien of er internet connection is [vb] Dim isAvailable As Boolean isAvailable = My.Computer.Network.IsAvailable If isAvailable Then 'doe iets Else 'foutmelding End if [/vb] Dummy1912 [/vb] (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:31:06 +0200 http://www.vbib.be/gotofor.php?id=45395 Ik heb een programma waarin ik af wil vragen of er een werkende internet verbinding is. Ook zo of er bepaalde programma's runnen, Ik heb bijvoorbeeld Hamachi draaien op de computer, en daarvan wil ik ook weten of deze "running" is. Dit e.e.a. of ik via Internet gegevens op kan halen of weg kan schrijven. Wie kan me helpen (gepost in MS VB 2008 ® - Algemeen door boment) boment MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 16:22:02 +0200 http://www.vbib.be/gotofor.php?id=45394 hallo, [quote:4e2b526695="Svr"]Merci k'heb de code aangepast naar VB5.0, en werkt perfect![/quote]Graag gedaan, de relevante vb code mag je altijd hier posten. [quote:4e2b526695="Svr"]Kan je op deze website ook demo's van je programma plaatsen?[/quote]Ben het niet zeker, de vraag is wel al eerder gesteld, maar er is niet echt een plaats voorzien, ... Der is wel één of meerdere "showcase" onderwerpen(posts) maar geen sectie hiervoor... Ik vraag me af of de code ook werkt met coördinaten. - 4 Latitudes en Longitudes OF - 2 Latitudes, Longitudes en Richtingen Want de aarde is, min of meer, een bol en geen vlak,... NOTE: Ik heb eens een timer achter de code gestoken en hem random lijnen met snijpunt laten tekenen. Resultaat is dat hij ook wel het snijpunt toont als de 2 lijnen niet kruisen. Maar er toch een snijpunt zou zijn als je de lijnen verder doortrekt... Dus het klopt wel, maar het is geen collission detection(botsing/snijpunt detectie)... Leuke code voor in games te gebruiken :) Groeten (gepost in MS VB 6 ® - Algemeen door Vozzie) Vozzie MS VB 6 ® - AlgemeenWed, 28 Jul 2010 16:05:01 +0200 http://www.vbib.be/gotofor.php?id=45393 Is het mogelijk je console app te verbergen en weer terug te tonen? Mvg, Dieter (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 15:57:33 +0200 http://www.vbib.be/gotofor.php?id=45392 Als je een applicatie hebt kan je bij My Project, references toevoegen om bijvoorbeeld een dll bestand te laden. En ik vroeg me af of dit ook via programmeren kan. Mvg, Dieter (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 15:38:40 +0200 http://www.vbib.be/gotofor.php?id=45391 Hartelijk dank!! Alles werkt zoals het moet. Nu het toch zo goed gaat. Hoe kan ik een eigen pictogram voor het document laten weergeven? Moet je dit ook in het register doen? Groeten (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 15:30:33 +0200 http://www.vbib.be/gotofor.php?id=45390 Hallo risc12, Om de bestandsnaam zonder extensie te verkrijgen is de Path.GetFileNameWithoutExtension functie handig. Zie: [url]http://msdn.microsoft.com/en-us/library/system.io.path.getfilenamewithoutextension.aspx[/url]. Dan hoef je nl niks zelf meer te filteren. Mvg, Jark (gepost in MS VB 2010 ® - Algemeen door Jark) Jark MS VB 2010 ® - AlgemeenWed, 28 Jul 2010 08:24:41 +0200 http://www.vbib.be/gotofor.php?id=45389 Hallo, Bedoel je het dynamisch inladen van assemblies? Bekijk dan eens deze link: [url]http://msdn.microsoft.com/en-us/library/xbe1wdx9.aspx[/url]. Met de Assembly.Load kun je een nieuwe assembly inladen in je programma terwijl het draait. Via reflectie kun je vervolgens de methodes uitvoeren/properties opvragen/klassen instantieren, etc. Mvg, Jark (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 08:22:17 +0200 http://www.vbib.be/gotofor.php?id=45388 Merci k'heb de code aangepast naar VB5.0, en werkt perfect! Kan je op deze website ook demo's van je programma plaatsen? (gepost in MS VB 6 ® - Algemeen door Svr) Svr MS VB 6 ® - AlgemeenWed, 28 Jul 2010 02:02:35 +0200 http://www.vbib.be/gotofor.php?id=45387 Hallo, http://en.wikipedia.org/wiki/Line-line_intersection http://stackoverflow.com/questions/385305/efficient-maths-algorithm-to-calculate-intersections Heb het stackoverflow antwoord nummer 4 getest in .Net en het werkt :wink: VB.Net code(zie de Intersection functie) [vb]Public Class Form1 Private random As Random Private p1, p2, p3, p4, p5 As Point Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load random = New Random(Environment.TickCount) Me.GetPoints() End Sub Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Using p As New Pen(Color.Black) e.Graphics.DrawLine(p, p1, p2) e.Graphics.DrawLine(p, p3, p4) End Using Using b As New SolidBrush(Color.Green) e.Graphics.FillEllipse(b, p5.X - 4, p5.Y - 4, 8, 8 ) End Using End Sub Private Sub GetPoints() Dim hw, hh As Integer ' half width hw = CInt(Me.ClientSize.Width / 2) ' half height hh = CInt(Me.ClientSize.Height / 2) ' left up random point p1 = New Point(random.Next(1, hw), random.Next(1, hh)) ' right up random point p2 = New Point(random.Next(1, hw) + hw, random.Next(1, hh) + hh) ' left down random point p3 = New Point(random.Next(1, hw) + hw, random.Next(1, hh)) ' right down random point p4 = New Point(random.Next(1, hw), random.Next(1, hh) + hh) ' middle of all points p5 = MathEx.Intersection(p1, p2, p3, p4) End Sub Friend Class MathEx Public Shared Function Intersection(ByVal v1 As Point, ByVal v2 As Point, ByVal v3 As Point, ByVal v4 As Point) As Point Dim x12 As Double = v1.X - v2.X Dim x34 As Double = v3.X - v4.X Dim y12 As Double = v1.Y - v2.Y Dim y34 As Double = v3.Y - v4.Y Dim c As Double = x12 * y34 - y12 * x34 If (Math.Abs(c) < 0.01) Then '// No intersection Return Point.Empty Else '// Intersection Dim a As Double = v1.X * v2.Y - v1.Y * v2.X Dim b As Double = v3.X * v4.Y - v3.Y * v4.X Dim x As Double = (a * x34 - b * x12) / c Dim y As Double = (a * y34 - b * y12) / c Return New Point(CInt(x), CInt(y)) End If End Function End Class End Class[/vb] (gepost in MS VB 6 ® - Algemeen door Vozzie) Vozzie MS VB 6 ® - AlgemeenWed, 28 Jul 2010 00:50:22 +0200 http://www.vbib.be/gotofor.php?id=45386 Je hoeft hiervoor die bepaalde extensie niet de default te maken. Je moet gewoon zorgen dat in je registry die %1 achter je applictie staat. Maar daarvoor hoeft jou applicatie niet de default te zijn. Je kan jou applicatie ook plaatsen in de "open with list" zoals jij aangeeft, en dan ga je dus niet liggen rommelen in jou registry om zomaar eventjes iets te testen. deze link geeft je meer uitleg over de plaatsen waar je die openWithList items kan vinden: http://windowsxp.mvps.org/OpenWith.htm Best is dat wanneer je een installer maakt dat je dan voor de extensies die je wil gebruiken, dat je daarvoor je openWithList direct aanpast. Anders zou je reeds een eerste keer jou programma moetten runnen vooralleer dat dit zou werken. REMINDER: vergeet niet uw registry te backuppen vooralleer er iets aan te veranderen!!! EDIT> Wanneer je applicatie nog niet in je registry staat, dan kan je best eens je applicatie gewoon toeveogen via rechtsklikken op je bestand en dan te kiezen voor "kies applicatie" uit de open with list. Op die manier ga je zien dat er toch wel op een aantal plaatsen dingen worden weggeschreven. Zo heeft je applicatie zowel een aanduiding nodig van applicatie als een aanduiding dat je die bepaalde extensie jou applicatie in de open with list zou moeten opgeven. Hieronder vind je zo 3 exports van de sleutels die bij mij worden aangemaakt: 1. in de HKEY_CLASSES_ROOT (algemeen applicatie profiel: hoe de applicatie moet geopend worden. Je zal zien dat deze reeds die %1 heeft) 2. in de HKEY_CURRENT_USER (algemeen applicatie profiel) 3. in de HKEY_CURRENT_USER (in de open with list als 3de item) [code]Windows Registry Editor Version 5.00 [HKEY_USERS\HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.txt\OpenWithList] "a"="NOTEPAD.EXE" "MRUList"="cab" "b"="iTunes.exe" "c"="loadArguments.exe"[/code] [code]Windows Registry Editor Version 5.00 [HKEY_USERS\HKEY_CURRENT_USER_Classes\Applications\loadArguments.exe\shell\open\command] @="\"C:\\Users\\Beheerder\\Documents\\Visual Studio 2008\\Projects\\loadArguments\\loadArguments\\bin\\Debug\\loadArguments.exe\" \"%1\"" [/code] [code]Windows Registry Editor Version 5.00 [HKEY_CLASSES_ROOT\Applications\loadArguments.exe\shell\open\command] @="\"C:\\Users\\Beheerder\\Documents\\Visual Studio 2008\\Projects\\loadArguments\\loadArguments\\bin\\Debug\\loadArguments.exe\" \"%1\""[/code] Uiteraard heb ik in mijn lijst voor een txt file meer dan 3 mogelijkheden, maar je hebt op meerdere plaatsen staan welke applicaties dat er mogen geopend worden. sommige applicaties mogen door alle gebruikers gebruikt worden, andere dan weer niet. Het profiel dat ik hierboven schets geeft enkel informatie weer voor mijn gebruikers account (zie HKEY_CURRENT_USER of HKEY_USER\S ... ) (gepost in MS VB 2008 ® - Algemeen door ArComAr) ArComAr MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 00:47:13 +0200 http://www.vbib.be/gotofor.php?id=45385 Vanaf september zit ik terug op de schoolbanken, ik zal proberen er een aantal toffe opdrachtjes uit te halen dan (gepost in Algemeen - Opdrachten door ArComAr) ArComAr Algemeen - OpdrachtenWed, 28 Jul 2010 00:30:44 +0200 http://www.vbib.be/gotofor.php?id=45384 Wat bedoel je juist? Probeer je een soort module systeem te maken? Ik heb deze vraag ook ooit eens gesteld op het msdn forum, ik ga je eventjes het antwoord zoeken EDIT> Kennelijk heb ik toch geen geweldige feedback gekregen toen. De feedback dat ik gekregen heb ging over add-ins voor visual studio en internet explorer. Dat brengt mij bij de vraag of het wel mogelijk is om die logica te implementeren. http://social.msdn.microsoft.com/Forums/en-US/vbgeneral/thread/c34fba84-f92c-4ad9-9fe9-40e3240d185a EDIT2> Dit lijkt wel een toffe link. is wel in C#, maar moet mogelijk zijn om dit om te zetten naar vb.net (gepost in MS VB 2008 ® - Algemeen door ArComAr) ArComAr MS VB 2008 ® - AlgemeenWed, 28 Jul 2010 00:29:28 +0200 http://www.vbib.be/gotofor.php?id=45383 ik zou het x,y punt willen bereken waar de lijnen samen vallen de x en y waarden van beide lijnen zijn gekend (gepost in MS VB 6 ® - Algemeen door Svr) Svr MS VB 6 ® - AlgemeenTue, 27 Jul 2010 22:37:27 +0200 http://www.vbib.be/gotofor.php?id=45382 Haha, gelukkig dat je VB2008 gebruikt, ik had mn vraag namelijk in de verkeerde categorie geplaatst :roll: Maar nog even een vraagje, ik heb nu al een groot gedeelte van het path eruitgewist. Nu staat er alleen nog de bestandsnaam en de exstentie, hoe kan ik zorgen dat ook de extensie niet meer zichtbaar is in de listbox? Groetjes, Risc12 (gepost in MS VB 2010 ® - Algemeen door risc12) risc12 MS VB 2010 ® - AlgemeenTue, 27 Jul 2010 20:58:03 +0200 http://www.vbib.be/gotofor.php?id=45381 Welke Access database controleer jij dan. Degen die staat in de data folder (als jij tenminste een data folder hebt). Of in je directory die het programma aanmaakt bij het testen van je applicatie. Die directory is ongeveer zo. bin -- >> debug (of release) en dan daar de data folder. Want jouw originele bestand wordt in de output directory gebruikt. En als je het in je combobox checkt is die dan wel geüpdatet. (gepost in MS VB 2008 ® - Databases door Erich) Erich MS VB 2008 ® - DatabasesTue, 27 Jul 2010 15:53:03 +0200 http://www.vbib.be/gotofor.php?id=45380 @DieterVB, Hey bedankt ;) Ja ik begrijp het ja dat is mogelijk doe als volgt [vb] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load My.Computer.Registry.ClassesRoot.CreateSubKey(".txt").SetValue("", "txtfile", Microsoft.Win32.RegistryValueKind.String) My.Computer.Registry.ClassesRoot.CreateSubKey("txtfile\shell\open\command").SetValue("", Application.ExecutablePath & " ""%1"" ", Microsoft.Win32.RegistryValueKind.String) Tekst.Text = My.Computer.FileSystem.ReadAllText(My.Application.CommandLineArgs(0).ToString) For Each s As String In My.Application.CommandLineArgs Console.WriteLine(s) Next end Sub [/vb] dus je moet eerst je app de default maken voordat deze werkt ;) gewoon de .txt vervangen met degene die jij hebt staan voor je prog. hoop dat ik je heb kunnen helpen als er iets is je weet me te vinden :) Dummy1912 nog even iets de Tekst.txt is mijn richtextbox deze moet je ook vervangen waarin je de gegevens wilt laden. (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 15:42:02 +0200 http://www.vbib.be/gotofor.php?id=45379 Ik zal het anders beschrijven. Ik heb dus een applicatie die tekst uit een bestand leest. Nu zou ik graag willen dat als je een bestand op mijn computer opent met mijn applicatie. Hij de tekst er uit leest. Dus laten we zeggen de gebruiker klikt op een bestandje in zijn computer met de rechter muisknop. Drukt op [b]openen met[/b] en selecteert dan mijn programma. En dan is het de bedoeling dat mijn programma het bestandje leest. En ik vroeg me af hoe ik dit moet doen. Ik hoop dat dit beter is uitgelegd. Indien niet, dan heb ik misschien nog een andere uitleg in petto. mvg Dieter (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 15:13:00 +0200 http://www.vbib.be/gotofor.php?id=45378 @DieterVB, Nee niet echt :D wat wil je zeggen? dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 12:15:19 +0200 http://www.vbib.be/gotofor.php?id=45377 Stel je voor dat MS Word mijn applicatie is en ik open een .doc document. Hoe kan ik dan aan de filepath van dat document geraken. Dus niet de executablepath van de applicatie maar de filepath van het document van de applicatie. Ik hoop dat het duidelijk is uitgelegd. Groeten (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 11:47:03 +0200 http://www.vbib.be/gotofor.php?id=45376 Hallo, ik heb een txt bestandje gemaakt waarin alle vertaalde texten staan die dan worden geladen en vertaald. maar het probleem is dat ik het txt file mee op de harde schijf moet kopiëren maar zou deze graag in de resource laden. maar ik krijg het niet voor mekaar dit is hoe de txt wordt geladen hoop dat iemand mij kan helpen om dit uit de resourcce te laden. [vb] If Not My.Computer.FileSystem.DirectoryExists(Path2(0)) Then My.Computer.FileSystem.CreateDirectory(Path2(0)) Else path = Split(My.Computer.FileSystem.ReadAllText(Path2(0) & Path2(1)), Chr(10))(0) : Taal = Split(My.Computer.FileSystem.ReadAllText(Path2(0) & Path2(1)), Chr(10))(1) My.Computer.FileSystem.WriteAllText(Path2(0) & Path2(1), path & Chr(10) & Taal, False) [/vb] dit is de class waar de path staan [vb] Public path As String = "" Public Taal As String = "" Public Path2() As String = {"C:\Windows\", "SelectedLanguagePhonePath.ini"} [/vb] bedankt Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 11:45:56 +0200 http://www.vbib.be/gotofor.php?id=45375 Hoe kun je references toevoegen op programmerende wijze? Ik heb op het internet gezocht maar ik kon dit niet echt vinden. Alvast bedankt (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 11:16:07 +0200 http://www.vbib.be/gotofor.php?id=45374 aha opgelost het juiste is [code]Process.Start("afterfx.exe", "-r D:\2.jsx")[/code] (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 10:32:53 +0200 http://www.vbib.be/gotofor.php?id=45373 Dank voor je antwoord. Ik heb de breakpoints gebruikt en het probleem ontraadseld. Het zat hem niet bij het lezen uit het register maar bij het decrypteren vlak na het lezen uit het register. Iedere keer dat een veld in het register leeg was werd de console gestopt. Wel vreemd dat er geen foutmelding werd gegeven. Maar in ieder geval de fout is opgelost en ik kan weer door. Groetjes Dieter (gepost in MS VB 2008 ® - Algemeen door DieterVB) DieterVB MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 10:16:20 +0200 http://www.vbib.be/gotofor.php?id=45372 Hallo, Als je de process class gebruikt moet je de commandline arguments meegeven in de arguments property van de ProcessStartInfo (zie: [url]http://msdn.microsoft.com/en-us/library/system.diagnostics.processstartinfo.arguments.aspx[/url]). Mvg, Jark (gepost in MS VB 2008 ® - Algemeen door Jark) Jark MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 08:55:50 +0200 http://www.vbib.be/gotofor.php?id=45371 [quote:14d93eaffc="Thanatos"].... Xymtrix: misschien kan jij er eentje van plaatsen?[/quote] Ja hoor, ik wil best wel een leuke opdracht proberen te verzinnen :) (gepost in Algemeen - Opdrachten door Xymtrix) Xymtrix Algemeen - OpdrachtenTue, 27 Jul 2010 08:46:59 +0200 http://www.vbib.be/gotofor.php?id=45370 Gewoon controleren in de Access Database en het is ook mogelijk te controleren in de combobox. (gepost in MS VB 2008 ® - Databases door Scheepers) Scheepers MS VB 2008 ® - DatabasesTue, 27 Jul 2010 08:34:54 +0200 http://www.vbib.be/gotofor.php?id=45369 @appie, kan het zijn dat je de c:\+folder bent vergeten en de .exe ben er niet zeker van maar is maar een gedacht. Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenTue, 27 Jul 2010 00:07:33 +0200 http://www.vbib.be/gotofor.php?id=45368 Het klassement wordt inderdaad niet meer bijgehouden. Opdrachten zijn gemaakt puur als hobby, en als leerboek. Toen ik op school zat, pikte ik er de toffe vraagstukken uit als opdracht, echt werk ik nu voltijds, dus is het een héél pak moeilijker. Ik heb zelf geen tijd om ze te maken en te verbeteren, maar deze link geeft alvast toffe opdrachtjes. http://www.vlaamseprogrammeerwedstrijd.be/ Xymtrix: misschien kan jij er eentje van plaatsen? (gepost in Algemeen - Opdrachten door Thanatos) Thanatos Algemeen - OpdrachtenTue, 27 Jul 2010 00:02:37 +0200 http://www.vbib.be/gotofor.php?id=45367 Dat staat er als je in de algemene optie lijst kijkt. Het is alleen niet meer aangevuld geweest aangezien je eigenlijk gewoon per opdracht moet gaan kijken. Het is uiteindelijk geen wedstrijd om het meeste opdrachtjes uit te voeren. Je moet de opdrachtjes gewoon doen voor de fun en om er iets uit te leren ;) (gepost in Algemeen - Opdrachten door ArComAr) ArComAr Algemeen - OpdrachtenMon, 26 Jul 2010 22:13:17 +0200 http://www.vbib.be/gotofor.php?id=45366 Xymtrix, je bedoelt het opdrachten klassement neem ik aan? --> [url]http://vbib.be/PNphpBB2-viewtopic-t-3626.phtml[/url] Mvg, Jark (gepost in Algemeen - Opdrachten door Jark) Jark Algemeen - OpdrachtenMon, 26 Jul 2010 22:12:14 +0200 http://www.vbib.be/gotofor.php?id=45365 daar ben ik ook weer met een aanvulling ik heb ook een probleem met Process.Start ik wil graag een programma starten Process.Start("afterfx") dit start adobe after effects op werkt gewoon maar nu wil ik ook dat hij gelijk mijn script laad en dat doe ik met Process.Start("afterfx -r d:\2.jsx") als ik het nu draai krijg ik de volgende foutmelding [code]System.ComponentModel.Win32Exception was unhandled ErrorCode=-2147467259 Message=Het systeem kan het opgegeven bestand niet vinden NativeErrorCode=2 Source=System StackTrace: at System.Diagnostics.Process.StartWithShellExecuteEx(ProcessStartInfo startInfo) at System.Diagnostics.Process.Start(ProcessStartInfo startInfo) at simulator_3._0.Dialog1.Button3_Click(Object sender, EventArgs e) in C:\Users\Albert\Documents\Visual Studio 2010\Projects\simulator 4.0\simulator 3.0\Dialog1.vb:line 11861 at System.Windows.Forms.Button.OnMouseUp(MouseEventArgs mevent) at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) at System.Windows.Forms.Control.WndProc(Message& m) at System.Windows.Forms.ButtonBase.WndProc(Message& m) at System.Windows.Forms.Button.WndProc(Message& m) at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData) at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) at simulator_3._0.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81 at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args) at System.Runtime.Hosting.ApplicationActivator.CreateInstance(ActivationContext activationContext, String[] activationCustomData) at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssemblyDebugInZone() at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx) at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) at System.Threading.ThreadHelper.ThreadStart() InnerException: [/code] wat doe ik fout? (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 21:03:24 +0200 http://www.vbib.be/gotofor.php?id=45364 Hoi ja het werkt! Alleen krijg ik nog een foutmelding als het bestandje een zelfde naam geeft (dus over wil schrijven) Wel erg bedankt!!! (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 20:23:27 +0200 http://www.vbib.be/gotofor.php?id=45363 In de configuratie van de SQL server hoeven we niet te zoeken.(Kassa systeem) Het momenteel actief systeem bestaat uit een server met XP en vier Desk PC's, op de server staat SQL 2000 met een orginele licentie benaderbaar via mijn programma op de desktops , alle instellingen staan prima en werkt al sinds 2004. Dus het hele verhaal rond toegang , tcp,login hebben we al jaren geleden gehad. Zelfs is het mogelijk via Logmein(hamachi Internet) verbinding met de server te verkrijgen zodat de eigenaar z'n boekhouding thuis kan bijwerken . Ik kan het dan ook niet begrijpen dat het niet mogelijk is via een IPAQ , een draadloze netwerk verbinding tot stand kan brengen met deze server, het moet en kan niet anders aan de instellingen van de IPAQ Windows Mobile liggen. Dus Jark ik waardeer het heel erg dat je mee wil denken, hoe ik een VPN verbinding kan aanmaken naar een Netwerk. Ik heb nog wat via Internet gevonden [url]http://support.microsoft.com/kb/314537/nl[/url] Daar staat de tekst [i]Maak verbinding met het bedrijfsnetwerk. Als u een draadloos LAN-netwerk gebruikt, activeert u de verbinding met het netwerk. Als u verbinding maakt via internet, maakt u eerst verbinding met de Internet-provider en maakt u vervolgens via de VPN-verbinding een verbinding met het bedrijfsnetwerk[/i] Leuk daar staat maak een verbinding !!! maar niet HOE. Als jij of iemand anders een idee heeft Mvg, Boment (gepost in MS VB 2008 ® - Algemeen door boment) boment MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 20:15:42 +0200 http://www.vbib.be/gotofor.php?id=45362 Het werkt!!! Jenny, je bent een genie !!! (gepost in VBA (for applications) - Microsoft Outlook ® door Danny80) Danny80 VBA (for applications) - Microsoft Outlook ®Mon, 26 Jul 2010 20:11:16 +0200 http://www.vbib.be/gotofor.php?id=45361 @Xymtrix, hallo :) ja zo gaat dat ook nooit aan gedacht maar jammer genoeg werkt het ook niet het blijft het zelfde is nogal moeilijk uit te leggen wat het doet maar als je op een pijltje klikt schuift de linker panel naar rechts dus wordt groter en als je terug op dat pijltje drukt komt de rechter panel weer en wordt de linker panel weer normaal. maar met de bounds te werken komt dit niet goed meer uit ik heb al de width van de panel gezet op die van de bounds maar dat is nog slechter. ik heb het al eens op max gezet maar is het zelfde. iemand een andere idee? om toch alles nog netje te krijgen alvast allemaal bedankt Dummy1912 (gepost in MS VB 2008 ® - Algemeen door Dummy1912) Dummy1912 MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 19:04:05 +0200 http://www.vbib.be/gotofor.php?id=45360 hier de code voor outlook 2007 [vb] Dim DataO As MSForms.DataObject Dim db As DAO.Database Dim rs As DAO.Recordset Sub Doehet() Dim S As String Dim St() As String 'de database openen voor multiuser read only Set db = OpenDatabase("D:\Airports\Airports.mdb", False, True) Set rs = db.OpenRecordset("Airports", dbOpenTable) rs.Index = "IATA" Set DataO = New MSForms.DataObject DataO.GetFromClipboard S = DataO.GetText St = Split(S, vbCrLf) For i = 0 To UBound(St) St(i) = Converteer(St(i)) Next S = Join(St, vbCrLf) DataO.SetText S DataO.PutInClipboard rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub [/vb] de converteer functie blijft hetzelfde niet vergeten een referentie naar microsoft forms2 object library hoe werkt het ? kopieer de tekst in amadeus run de doehet sub plaats de caret in de body waar je het geconverteerde wil druk op Ctrl V that's it (gepost in VBA (for applications) - Microsoft Outlook ® door Jenny) Jenny VBA (for applications) - Microsoft Outlook ®Mon, 26 Jul 2010 18:18:22 +0200 http://www.vbib.be/gotofor.php?id=45359 Waarop baseer jij dat er geen record zou zijn toegevoegd. Hoe check jij dat dan. (gepost in MS VB 2008 ® - Databases door Erich) Erich MS VB 2008 ® - DatabasesMon, 26 Jul 2010 17:49:56 +0200 http://www.vbib.be/gotofor.php?id=45358 Ik denk dat ik het probleem gevonden heb. Outlook 2003 werkt anders dan 2007. Kijk maar naar de volgende link : http://turtleflock-ol2007.spaces.live.com/blog/cns!C1013F1F9A99E3D8!579.entry en de theorie daarvoor : http://msdn.microsoft.com/en-us/library/dd492012.aspx (gepost in VBA (for applications) - Microsoft Outlook ® door Danny80) Danny80 VBA (for applications) - Microsoft Outlook ®Mon, 26 Jul 2010 17:27:56 +0200 http://www.vbib.be/gotofor.php?id=45357 Komt er nog een nieuwe opdracht een keer ?? Heb daar wel zin ... Miss leuk om alles ook bij te houden dan ala: [code] Opdracht Ascii 1. Xymtrix 20pt 2. ...... 10pt 3. ... 5px Totaal klassement Naam opdrachten punten Xymtrix 5 125 .. 5 100 ... 4 70 Dit kan natuurlijk ook een sticky zijn..[/code] (gepost in Algemeen - Opdrachten door Xymtrix) Xymtrix Algemeen - OpdrachtenMon, 26 Jul 2010 15:50:47 +0200 http://www.vbib.be/gotofor.php?id=45356 Je kan natuurlijk ook je WindowState default op Maximized zetten. Je stukje code controleer je niet de hoogte en de breedte van een panel, maar zet je die: [vb]If Panel3.Size = New Size(420, 601) Then ...[/vb] Als je de hoogte en de breedte wilt opvragen gebruik je het volgende: [vb]If Panel3.Size.Width = 420 And Panel3.Size.Height = 601 Then...[/vb] (gepost in MS VB 2008 ® - Algemeen door Xymtrix) Xymtrix MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 15:43:26 +0200 http://www.vbib.be/gotofor.php?id=45355 Handig is dan om een breakpoint voor het opvragen te zetten en dan single-steppen. Je kan dan gecontroleerd door je programma gaan. En zonder stukje code is het natuurlijk maar gokken.. (gepost in MS VB 2008 ® - Algemeen door Xymtrix) Xymtrix MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 15:38:30 +0200 http://www.vbib.be/gotofor.php?id=45354 Daarvoor heb je het volgende nodig: - SaveFileDialog - StreamWriter - FileStream Voeg je dat allemaal samen krijg je het volgende: [vb] Dim Value As Integer = 70 ' = Label1.text Dim FileName As String = Nothing Dim Savedialog As New SaveFileDialog Savedialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop Savedialog.Filter = "*.jsx|" Dim DialogResult As DialogResult = Savedialog.ShowDialog If DialogResult = Windows.Forms.DialogResult.OK Or DialogResult = Windows.Forms.DialogResult.Yes Then FileName = Savedialog.FileName If Not FileName.EndsWith(".jsx") Then FileName = FileName & ".jsx" End If Try Dim sr As New IO.StreamWriter(New IO.FileStream(FileName, IO.FileMode.CreateNew, IO.FileAccess.Write, IO.FileShare.Write)) sr.WriteLine("//start") sr.WriteLine("mySolid = myComp.layers.addSolid([0,0,0], ""colorCorrect"", myComp.width, myComp.height,1);") sr.WriteLine("mySolid.startTime = 0") sr.WriteLine("mySolid.adjustmentLayer = true;") sr.WriteLine("// myEffect = mySolid.property(""Effects"").addProperty(""ADBE Lens Flare"");") sr.WriteLine("myEffect = mySolid.property(""Effects"").addProperty(""Fast Blur"")(""Blurriness"").setValue(" & Value & ");") sr.WriteLine("//end ") sr.Flush() sr.Close() Catch ex As Exception MessageBox.Show(ex.ToString, "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try End If[/vb] :mrgreen: (gepost in MS VB 2008 ® - Algemeen door Xymtrix) Xymtrix MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 15:35:03 +0200 http://www.vbib.be/gotofor.php?id=45353 Hallo, En je krijgt geen foutmeldingen in je catch statement? SQL code ziet er wel ok uit. Mvg, Jark (gepost in MS VB 2008 ® - Databases door Jark) Jark MS VB 2008 ® - DatabasesMon, 26 Jul 2010 15:03:09 +0200 http://www.vbib.be/gotofor.php?id=45352 Ik heb de code is iets veranderd zoals het openen en sluiten van de connectie, maar helaas nog geen insert. Geen foutmeldingen en volgens de code is er een rij toegevoegd. [vb] Dim verbindingsString As String = My.Settings.IGFConnectionString Dim verbinding As New OleDb.OleDbConnection(verbindingsString) Try verbinding.Open() Dim opdr As String = "INSERT INTO TblZkhs(Ziekenhuis, Nummer) VALUES('" & Zkhs & "', " & txtNummer.Text & ")" Dim opdracht As New OleDb.OleDbCommand(opdr, verbinding) Dim iAffected As Integer = 0 iAffected = opdracht.ExecuteNonQuery() 'commando dat SQL statement uitvoert MessageBox.Show(iAffected & " rij(en) werd(en) bijgevoegd")[/vb] (gepost in MS VB 2008 ® - Databases door Scheepers) Scheepers MS VB 2008 ® - DatabasesMon, 26 Jul 2010 14:47:55 +0200 http://www.vbib.be/gotofor.php?id=45351 ik probeer hem te instaleren maar als ik de taal kies dan komt de pop up (die blokkeerd ) als ik hem toe sta dan komt er te staan thanks for downloading maar de actie wordt niet uitgevoerd! EDIT Hij doet het al! :) klopt het dat als je de express editie niet een zeklfstandig programma kunt maken? ik bedoel dat het zonder frame work te instaleren zelfstandig op een andere pc draait? en moet ik deze versie kopen zodat ik wel mijn programma's kan uitgeven/instaleren op standalone pc's http://www.comcol.nl/detail/71519.htm (gepost in MS VB 2010 ® - Algemeen door appie21) appie21 MS VB 2010 ® - AlgemeenMon, 26 Jul 2010 14:31:27 +0200 http://www.vbib.be/gotofor.php?id=45350 hier heb je een overzicht (wel in het Engels) mvg, RedThread [url]http://www.codeguru.com/vb/vb_internet/aspnet/article.php/c15645[/url] (gepost in MS VB 2010 ® - Algemeen door RedThread) RedThread MS VB 2010 ® - AlgemeenMon, 26 Jul 2010 14:21:11 +0200 http://www.vbib.be/gotofor.php?id=45349 Hallo ik heb een vraag. ik werk veel met adobe after effects. ik dat programma kan ik scriptas maken nu heb ik op mijn form een label met een waarde nu wil dat als ik op button1 klik er een savedialog venster komt dat een bestandje opslaat als *.jsx met de volgende inhoud [code] //start myComp = app.project.activeItem; mySolid = myComp.layers.addSolid([0,0,0], "colorCorrect", myComp.width, myComp.height,1); mySolid.startTime = 0 mySolid.adjustmentLayer = true; // myEffect = mySolid.property("Effects").addProperty("ADBE Lens Flare"); myEffect = mySolid.property("Effects").addProperty("Fast Blur")("Blurriness").setValue(90); //end [/code] nu wil ik dat de setValue(90); ingevuld wordt door de waarde die in mijn label staat. en daarna het bestand wordt opgeslagen (zodat ik het kan openen en in after effects kan gebruiken!) Het mag ookz o zijn dat hij het bestandje laad en alleen de regel met de value aanpast! Ik ben benieuwd naar jullie reacties (gepost in MS VB 2008 ® - Algemeen door appie21) appie21 MS VB 2008 ® - AlgemeenMon, 26 Jul 2010 14:03:52 +0200