|
FINALLY! One that actually works!  . Now the big $30,000 question is, why doesn't the method that MS and so many others suggest NOT work?
Me.TreeView1.SelectedNode = Me.TreeView1.Nodes.Find("Client Supplied Files", True)
|
|
|
|
|
treddie wrote: Now the big $30,000 question is, why doesn't the method that MS and so many others suggest NOT work?
Here's a free answer to an expensive question; due to the difference between the nodes' key and it's label. The "find" method works on keys[^] (the name of the node), not on the text being displayed. If you only pass a single string when creating a node, it will not have a name. Try the example below and play a bith with it.
Imports System.Windows.Forms
Module Module1
Private TreeView1 As New TreeView()
Sub Main()
Using f As New Form
Dim btn As New Button
btn.Dock = DockStyle.Top
AddHandler btn.Click, Sub(s As Object, e As EventArgs)
Dim foundNodes As TreeNode() = TreeView1.Nodes.Find("Node 39", True)
If foundNodes.Length > 0 Then
TreeView1.SelectedNode = foundNodes(0)
TreeView1.Focus()
End If
End Sub
TreeView1.Dock = DockStyle.Fill
For i As Integer = 0 To 40
Dim key As String = String.Format("Node {0}", i)
Dim label As String = String.Format("Label {0}", i)
TreeView1.Nodes.Add(key, label)
Next
f.Controls.Add(TreeView1)
f.Controls.Add(btn)
f.ShowDialog()
End Using
End Sub
End Module
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Heheh...Your code threw me for a second. It looks like you did a C#-to-vb conversion. But I figured it out and made the mods to get it to work in vb.Net. (I'm not a "C" guy). Here is my change to your translation, with a caption added to the button:
Imports System.Windows.Forms
Module Module1
Dim TreeView1 As New TreeView
Sub Main()
Using f As New Form
Dim btn As New Button
btn.Dock = DockStyle.Top
btn.Text = "Find ""Label 39"""
AddHandler btn.Click, AddressOf BClick
TreeView1.Dock = DockStyle.Fill
For i As Integer = 0 To 40
Dim key As String
key = String.Format("Node {0}", i)
Dim label As String = String.Format("Label {0}", i)
TreeView1.Nodes.Add(key, label)
Next i
f.Controls.Add(TreeView1)
f.Controls.Add(btn)
f.ShowDialog()
End Using
End Sub
Private Sub BClick(ByVal s As Object, ByVal e As EventArgs)
Dim foundNodes As TreeNode() = TreeView1.Nodes.Find("Node 39", True)
If foundNodes.Length > 0 Then
TreeView1.SelectedNode = foundNodes(0)
TreeView1.Focus()
End If
End Sub
End Module
This makes complete sense now...The name/key is NOT the text label. Although it is best to make sure the key = text, so that you don't get confused by the results.
|
|
|
|
|
treddie wrote: It looks like you did a C#-to-vb conversion.
Thanks; no conversion, it was a new console-application in the VS-IDE
|
|
|
|
|
I'm curious what that app is?
|
|
|
|
|
VS-IDE?
Visual Studio 2010.
|
|
|
|
|
Hm, I'll check out the console part.
Thanks for all your help, Eddy!
|
|
|
|
|
treddie wrote: Thanks for all your help, Eddy!
My pleasure, glad I could help a bit
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
HAI
DATABASE : SQLSERVER 2005
VB : 2008
TYPE PROJECT : NETWORK
Use a separate DATASET in the draft and when I update the data or start I update the data also DATASET so you do not need to reopen Aldtasi of the new data because the size of a very large and cause slow in the project How can I find records that have been updated or deleted, or added?
Because the project network
|
|
|
|
|
Vb Rnd wrote: Use a separate DATASET in the draft and when I update the data or start I update the data also DATASET so you do not need to reopen Aldtasi of the new data because the size of a very large and cause slow in the project How can I find records that have been updated or deleted, or added?
Sounds like you're abusing the dataset as a local cache. If you want to cache your data locally, consider using a local database and a synchronization framework; it'd save you a lot of redundant calls.
Alternatively, you can find all that has been added using plain SQL; perform a SELECT WHERE NOT IN and pass the values for the primary keys of the records in your dataset. Deleting would be something similar. For updates, one could use a timestamp (think "lastmodified"-field).
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hi.
I was reading the article:
.NET 2.0 Workaround for PathTooLongException
for a solution to the too long path name problem. In that article it states that there is a long, "W" version of the CreateFile() function. Now, the class he developed seems to support opening, reading and writing of files but not looking at the contents of a directory. I have two questions:
1. Is there an "easy" way to expand his class to include other functions such as listing directory contents? If so, what other functions would be required to pull this off? I have found such functions such as FindFirstFile(), but the documentation and Googling do not suggest that there are any "W" versions of these.
UPDATE: According to MSDN, FindFirstFileEx() does not carry the MAX_PATH limitation, so in theory, it should work.
2. In his code, he does not include declarations for his API functions, although he does import namespaces. Is this because he is working in C# (which I am only partly familiar with)? I have converted his code from C# to vb.Net, but the online converter cannot necessarily know that declarations need to be added to the converted code, if in fact they DO need to be. My experience says, "Yes", it definitely does, but then again, why wouldn't those same Import lines work just as well in vb.Net? If that is where these functions are located, then why does vb.Net require explicit declarations? Is this so an entire library does not need to be loaded into memory all at once?
Many thanks for any help!
Below is his original code and usage, followed by my online conversion from C# to vb.Net:
using System;
using System.Collections.Generic;
using System.Text;
using Microsoft.Win32.SafeHandles;
using System.Runtime.InteropServices;
using System.IO;
namespace System.IO
{
class Win32File
{
const int ERROR_ALREADY_EXISTS = 183;
const uint FILE_BEGIN = 0x0;
const uint FILE_CURRENT = 0x1;
const uint FILE_END = 0x2;
const uint GENERIC_READ = 0x80000000;
const uint GENERIC_WRITE = 0x40000000;
const uint GENERIC_EXECUTE = 0x20000000;
const uint GENERIC_ALL = 0x10000000;
const uint FILE_APPEND_DATA = 0x00000004;
const uint FILE_ATTRIBUTE_NORMAL = 0x80;
const uint FILE_SHARE_DELETE = 0x00000004;
const uint FILE_SHARE_READ = 0x00000001;
const uint FILE_SHARE_WRITE = 0x00000002;
const uint CREATE_NEW = 1;
const uint CREATE_ALWAYS = 2;
const uint OPEN_EXISTING = 3;
const uint OPEN_ALWAYS = 4;
const uint TRUNCATE_EXISTING = 5;
[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
static extern SafeFileHandle CreateFileW(string lpFileName, uint dwDesiredAccess,
uint dwShareMode, IntPtr lpSecurityAttributes, uint dwCreationDisposition,
uint dwFlagsAndAttributes, IntPtr hTemplateFile);
[DllImport("kernel32.dll", SetLastError = true, CharSet = CharSet.Unicode)]
static extern uint SetFilePointer(SafeFileHandle hFile, long lDistanceToMove, IntPtr lpDistanceToMoveHigh, uint dwMoveMethod);
#region GetMode
private static uint GetMode(FileMode mode)
{
uint umode = 0;
switch (mode)
{
case FileMode.CreateNew:
umode = CREATE_NEW;
break;
case FileMode.Create:
umode = CREATE_ALWAYS;
break;
case FileMode.Append:
umode = OPEN_ALWAYS;
break;
case FileMode.Open:
umode = OPEN_EXISTING;
break;
case FileMode.OpenOrCreate:
umode = OPEN_ALWAYS;
break;
case FileMode.Truncate:
umode = TRUNCATE_EXISTING;
break;
}
return umode;
}
#endregion
#region GetAccess
private static uint GetAccess(FileAccess access)
{
uint uaccess = 0;
switch (access)
{
case FileAccess.Read:
uaccess = GENERIC_READ;
break;
case FileAccess.ReadWrite:
uaccess = GENERIC_READ | GENERIC_WRITE;
break;
case FileAccess.Write:
uaccess = GENERIC_WRITE;
break;
}
return uaccess;
}
#endregion
#region GetShare
private static uint GetShare(FileShare share)
{
uint ushare = 0;
switch (share)
{
case FileShare.Read:
ushare = FILE_SHARE_READ;
break;
case FileShare.ReadWrite:
ushare = FILE_SHARE_READ | FILE_SHARE_WRITE;
break;
case FileShare.Write:
ushare = FILE_SHARE_WRITE;
break;
case FileShare.Delete:
ushare = FILE_SHARE_DELETE;
break;
case FileShare.None:
ushare = 0;
break;
}
return ushare;
}
#endregion
public static FileStream Open(string filepath, FileMode mode)
{
FileStream fs = null;
uint umode = GetMode(mode);
uint uaccess = GENERIC_READ | GENERIC_WRITE;
uint ushare = 0;
if (mode == FileMode.Append)
uaccess = FILE_APPEND_DATA;
if (filepath.StartsWith(@"\\"))
{
filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
}
else
filepath = @"\\?\" + filepath;
SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
int iError = Marshal.GetLastWin32Error();
if ((iError > 0 && !(mode == FileMode.Append && iError == ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
{
throw new Exception("Error opening file Win32 Error:" + iError);
}
else
{
fs = new FileStream(sh, FileAccess.ReadWrite);
}
if (mode == FileMode.Append)
{
if (!sh.IsInvalid)
{
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
}
}
return fs;
}
public static FileStream Open(string filepath, FileMode mode, FileAccess access)
{
FileStream fs = null;
uint umode = GetMode(mode);
uint uaccess = GetAccess(access);
uint ushare = 0;
if (mode == FileMode.Append)
uaccess = FILE_APPEND_DATA;
if (filepath.StartsWith(@"\\"))
{
filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
}
else
filepath = @"\\?\" + filepath;
SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
int iError = Marshal.GetLastWin32Error();
if ((iError > 0 && !(mode == FileMode.Append && iError != ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
{
throw new Exception("Error opening file Win32 Error:" + iError);
}
else
{
fs = new FileStream(sh, access);
}
if (mode == FileMode.Append)
{
if (!sh.IsInvalid)
{
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
}
}
return fs;
}
public static FileStream Open(string filepath, FileMode mode, FileAccess access, FileShare share)
{
FileStream fs = null;
uint umode = GetMode(mode);
uint uaccess = GetAccess(access);
uint ushare = GetShare(share);
if (mode == FileMode.Append)
uaccess = FILE_APPEND_DATA;
if (filepath.StartsWith(@"\\"))
{
filepath = @"\\?\UNC\" + filepath.Substring(2, filepath.Length - 2);
}
else
filepath = @"\\?\" + filepath;
SafeFileHandle sh = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, IntPtr.Zero);
int iError = Marshal.GetLastWin32Error();
if ((iError > 0 && !(mode == FileMode.Append && iError != ERROR_ALREADY_EXISTS)) || sh.IsInvalid)
{
throw new Exception("Error opening file Win32 Error:" + iError);
}
else
{
fs = new FileStream(sh, access);
}
if (mode == FileMode.Append)
{
if (!sh.IsInvalid)
{
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END);
}
}
return fs;
}
public static FileStream OpenRead(string filepath)
{
return Open(filepath, FileMode.Open, FileAccess.Read, FileShare.Read);
}
public static FileStream OpenWrite(string filepath)
{
return Open(filepath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None);
}
}
}
And an example of its usage:
FileStream fs1= Win32File.Open( "Long file name of greater " +
"than 260 char length", FileMode.Open);
StreamWriter sw = new StreamWriter(fs1);
sw.WriteLine("Hello world");
sw.Close();
sw.Dispose();
Finally, the conversion from C# to vb.Net:
:cool:Imports System.Text
Imports Microsoft.Win32.SafeHandles
Imports System.Runtime.InteropServices
Imports System.IO
Namespace System.IO
Class Win32File
Const ERROR_ALREADY_EXISTS As Integer = 183
Const FILE_BEGIN As UInteger = &H0
Const FILE_CURRENT As UInteger = &H1
Const FILE_END As UInteger = &H2
Const GENERIC_READ As UInteger = &H80000000UI
Const GENERIC_WRITE As UInteger = &H40000000
Const GENERIC_EXECUTE As UInteger = &H20000000
Const GENERIC_ALL As UInteger = &H10000000
Const FILE_APPEND_DATA As UInteger = &H4
Const FILE_ATTRIBUTE_NORMAL As UInteger = &H80
Const FILE_SHARE_DELETE As UInteger = &H4
Const FILE_SHARE_READ As UInteger = &H1
Const FILE_SHARE_WRITE As UInteger = &H2
Const CREATE_NEW As UInteger = 1
Const CREATE_ALWAYS As UInteger = 2
Const OPEN_EXISTING As UInteger = 3
Const OPEN_ALWAYS As UInteger = 4
Const TRUNCATE_EXISTING As UInteger = 5
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function CreateFileW(ByVal lpFileName As String, ByVal dwDesiredAccess As UInteger, ByVal dwShareMode As UInteger, ByVal lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As UInteger, ByVal dwFlagsAndAttributes As UInteger, _
ByVal hTemplateFile As IntPtr) As SafeFileHandle
End Function
<DllImport("kernel32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Shared Function SetFilePointer(ByVal hFile As SafeFileHandle, ByVal lDistanceToMove As Long, ByVal lpDistanceToMoveHigh As IntPtr, ByVal dwMoveMethod As UInteger) As UInteger
End Function
#Region "GetMode"
Private Shared Function GetMode(ByVal mode As FileMode) As UInteger
Dim umode As UInteger = 0
Select Case mode
Case FileMode.CreateNew
umode = CREATE_NEW
Exit Select
Case FileMode.Create
umode = CREATE_ALWAYS
Exit Select
Case FileMode.Append
umode = OPEN_ALWAYS
Exit Select
Case FileMode.Open
umode = OPEN_EXISTING
Exit Select
Case FileMode.OpenOrCreate
umode = OPEN_ALWAYS
Exit Select
Case FileMode.Truncate
umode = TRUNCATE_EXISTING
Exit Select
End Select
Return umode
End Function
#End Region
#Region "GetAccess"
Private Shared Function GetAccess(ByVal access As FileAccess) As UInteger
Dim uaccess As UInteger = 0
Select Case access
Case FileAccess.Read
uaccess = GENERIC_READ
Exit Select
Case FileAccess.ReadWrite
uaccess = GENERIC_READ Or GENERIC_WRITE
Exit Select
Case FileAccess.Write
uaccess = GENERIC_WRITE
Exit Select
End Select
Return uaccess
End Function
#End Region
#Region "GetShare"
Private Shared Function GetShare(ByVal share As FileShare) As UInteger
Dim ushare As UInteger = 0
Select Case share
Case FileShare.Read
ushare = FILE_SHARE_READ
Exit Select
Case FileShare.ReadWrite
ushare = FILE_SHARE_READ Or FILE_SHARE_WRITE
Exit Select
Case FileShare.Write
ushare = FILE_SHARE_WRITE
Exit Select
Case FileShare.Delete
ushare = FILE_SHARE_DELETE
Exit Select
Case FileShare.None
ushare = 0
Exit Select
End Select
Return ushare
End Function
#End Region
Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode) As FileStream
Dim fs As FileStream = Nothing
Dim umode As UInteger = GetMode(mode)
Dim uaccess As UInteger = GENERIC_READ Or GENERIC_WRITE
Dim ushare As UInteger = 0
If mode = FileMode.Append Then
uaccess = FILE_APPEND_DATA
End If
If filepath.StartsWith("\\") Then
filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
Else
filepath = "\\?\" & filepath
End If
Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
IntPtr.Zero)
Dim iError As Integer = Marshal.GetLastWin32Error()
If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError = ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
Throw New Exception("Error opening file Win32 Error:" & iError)
Else
fs = New FileStream(sh, FileAccess.ReadWrite)
End If
If mode = FileMode.Append Then
If Not sh.IsInvalid Then
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
End If
End If
Return fs
End Function
Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode, ByVal access As FileAccess) As FileStream
Dim fs As FileStream = Nothing
Dim umode As UInteger = GetMode(mode)
Dim uaccess As UInteger = GetAccess(access)
Dim ushare As UInteger = 0
If mode = FileMode.Append Then
uaccess = FILE_APPEND_DATA
End If
If filepath.StartsWith("\\") Then
filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
Else
filepath = "\\?\" & filepath
End If
Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
IntPtr.Zero)
Dim iError As Integer = Marshal.GetLastWin32Error()
If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError <> ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
Throw New Exception("Error opening file Win32 Error:" & iError)
Else
fs = New FileStream(sh, access)
End If
If mode = FileMode.Append Then
If Not sh.IsInvalid Then
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
End If
End If
Return fs
End Function
Public Shared Function Open(ByVal filepath As String, ByVal mode As FileMode, ByVal access As FileAccess, ByVal share As FileShare) As FileStream
Dim fs As FileStream = Nothing
Dim umode As UInteger = GetMode(mode)
Dim uaccess As UInteger = GetAccess(access)
Dim ushare As UInteger = GetShare(share)
If mode = FileMode.Append Then
uaccess = FILE_APPEND_DATA
End If
If filepath.StartsWith("\\") Then
filepath = "\\?\UNC\" & filepath.Substring(2, filepath.Length - 2)
Else
filepath = "\\?\" & filepath
End If
Dim sh As SafeFileHandle = CreateFileW(filepath, uaccess, ushare, IntPtr.Zero, umode, FILE_ATTRIBUTE_NORMAL, _
IntPtr.Zero)
Dim iError As Integer = Marshal.GetLastWin32Error()
If (iError > 0 AndAlso Not (mode = FileMode.Append AndAlso iError <> ERROR_ALREADY_EXISTS)) OrElse sh.IsInvalid Then
Throw New Exception("Error opening file Win32 Error:" & iError)
Else
fs = New FileStream(sh, access)
End If
If mode = FileMode.Append Then
If Not sh.IsInvalid Then
SetFilePointer(sh, 0, IntPtr.Zero, FILE_END)
End If
End If
Return fs
End Function
Public Shared Function OpenRead(ByVal filepath As String) As FileStream
Return Open(filepath, FileMode.Open, FileAccess.Read, FileShare.Read)
End Function
Public Shared Function OpenWrite(ByVal filepath As String) As FileStream
Return Open(filepath, FileMode.OpenOrCreate, FileAccess.Write, FileShare.None)
End Function
End Class
End Namespace
modified 3-May-13 15:52pm.
|
|
|
|
|
treddie wrote: In his code, he does not include declarations for his API functions, although he does import namespaces. Is this because he is working in C#
He does. You can browse the source code using the links in the article. His P/Invokes start on line number 46.
treddie wrote: the online converter cannot necessarily know that declarations need to be added to the converted code, if in fact they DO need to be.
Bad translator.
treddie wrote: why wouldn't those same Import lines work just as well in vb.Net? If that is where these functions are located, then why does vb.Net require explicit declarations? Is this so an entire library does not need to be loaded into memory all at once?
There's multiple ways to link/load a dll. The "using" or "import" lines are defining which namespaces to look in when searching for a specific class-type. Sometimes one needs to "add (a) reference" to an external assembly to be able to access types in other libraries. That's the usual route for managed code - anything in .NET.
There's also a lot of unmanged code on the machine, as is the WinAPI. The code is also linking to a specific part in the WinAPI in "kernel32.dll". Both VB.NET and C# need special declarations for these, decorated with the DllImport attribute.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Cool. Tank you very much for your help, Eddy.
|
|
|
|
|
You're welcome
|
|
|
|
|
Hello,
I have an application where users opens more than one windows on an MDI form.
I want users to be able to save their work environment for future opening and used. When next the saved look is open, all previously opened windows should also open at exactly where they were before closing/saving the work area.
Any help please
Thanks
|
|
|
|
|
A very high level suggestion to your question:
Save the information to a database table linked to the user or save it to an xml file on the user's computer
Then when the forms are next opened consult these saved settings and restore the forms to how the user left them.
“That which can be asserted without evidence, can be dismissed without evidence.”
― Christopher Hitchens
|
|
|
|
|
hello,
I have MDI form that users open more than one windows at a time. I want user to be able to save these opened windows and be able to reopen them next time.
Please help
Thanks
Olu
|
|
|
|
|
Hi all.
I was trying this TreeView demo and ran into a situation where a Try Catch block will not pass execution onto the Catch code. The error is "Drive not ready" when attempting to access a:\. That is easy enough to understand...I have no floppy on my system. But why does the error handler not pass the error to the Catch area?
Many thanks for any advice!
Here is the demo:
A form just has a TreeView and a button on it. The demo populates a TreeView with the directories of my file system:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim drives As System.Collections.ObjectModel.ReadOnlyCollection(Of IO.DriveInfo) = My.Computer.FileSystem.Drives
Dim rootDir As String = String.Empty
For i As Integer = 0 To drives.Count - 1
rootDir = drives(i).Name
TreeView1.Nodes.Add(rootDir)
PopulateTreeView(rootDir, TreeView1.Nodes(i))
Next
End Sub
Private Sub PopulateTreeView(ByVal dir As String, ByVal parentNode As TreeNode)
Dim folder As String = String.Empty
Try
Dim folders() As String = IO.Directory.GetDirectories(dir)
If folders.Length <> 0 Then
Dim childNode As TreeNode = Nothing
For Each folder In folders
childNode = New TreeNode(folder)
parentNode.Nodes.Add(childNode)
PopulateTreeView(folder, childNode)
Next
End If
Catch ex As UnauthorizedAccessException
parentNode.Nodes.Add(folder & ": Access Denied")
End Try
End Sub
End Class
modified 3-May-13 3:17am.
|
|
|
|
|
You are only catching UnauthorizedAccessException, which is not the same as Drive not ready.
Use the best guess
|
|
|
|
|
Ahhhhh, OK. Was right in front of me the whole time. Thanks for the brain reset.
|
|
|
|
|
I am very new to programming... I have opened a vb2003 application in visual studio 2010 and have had some thread safe problems when trying to modify a text box from a non-parent form. I implemented the below that I found on a thread with good results:
Private Sub SetLabelText(ByVal s As String)
If Me.lbTime.InvokeRequired Then
Me.lbTime.Invoke(New Action(Of String)(AddressOf SetLabelText), s)
Else
Me.lbTime.Text = s
End If
End Sub
Now when I try to modify the attached for an array of textboxes, while passing the array index into the sub routine I get a "Does not have a signature compatible with the delegate." error. Is it possible to have a delegate with multuple parameters? Is there an easier way to accomplish a threadsafe multiple textbox modifications?
Private Sub SettxtChannelData(ByVal arrIndex As Integer, ByVal s As String)
If Me.txtChannelData(arrIndex).InvokeRequired Then
Me.txtChannelData(arrIndex).Invoke(New Action(Of String)(AddressOf SettxtChannelData), s)
Else
Me.txtChannelData(arrIndex).Text = s
End If
End Sub
|
|
|
|
|
Try this:
Me.txtChannelData(arrIndex).Invoke(New Action(Of Integer, String)(AddressOf SettxtChannelData), arrIndex, s)
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
Nope:
Me.txtChannelData(arrIndex).Invoke(New Action(Of Integer, String)(AddressOf SettxtChannelData), arrIndex, s)
Getting the error 'Too many type arguments to 'system.action(of T)'' on the "(Of Integer, String)" portion
|
|
|
|
|
If you are you using a version below .NET 3 the generic delegate suggested by Richard is not available and so you'll need to define one.
e.g.
|
|
|
|
|
Hi all!
I have trouble passing arguments to the Process.Start in VB.NET.
What I want to accomplish is to backup a mysql database with its mysqldump.exe which is located in my C drive. I have a code that can do it perfectly when run in the command prompt. The problem if face comes when I want to pass that same code to the process.start.
The code that does the work is :
"C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" --user=root --password=mypassword --host=localhost --port=3306 --database sakila > "C:\backup\sakilabackup.sql"""
To be sure, I broke the code into two blocks, and I placed them to two textboxes as follows:
txtProgram.Text = "C:\Program Files\MySQL\MySQL Server 5.5\bin\mysqldump.exe" ,
txtArguments.Text= "--user=root --password=mypassword --host=localhost --port=3306 --database sakila >"C:\backup\sakilabackup.sql"""
Then I did this:
System.Diagnostics.Process.Start(txtProgram.Text, txtArguments.Text)
And it still bring me the error "The system cannot find the file specified" Error message.
Can you please tell me what the problem is and how I can get through it? Please remember that, if I take the contents of txtProgram.text and txtArguments.text and put them to a command prompt, it works fine.
*I have also searched other threads here, no one had an exact similar issue like mine.
I will appreciate any help.
(I use VB 2010)
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
