Help needed with multi column Combobox? - Visual Basic Discussion Boards

Dave Kreskowiak14-Apr-06 1:32

14-Apr-06 1:32

Easy, but with a hidden gotcha. Each the index of each selected item is contained in the ListBox's SelectedIndicies property. All you have to do is go through this list using For/Next, NOT For Each/Next!!, and remove each item from the Items collection at the index listed in SelectedIndicies.

There's the catch though! You have to go through the SelectedIndicies backwards! If you don't, you'll end up with an IndexOutOfRangeException. This is because as you remove items from the ListBox, the size of the collection of Selectedindicies changes. Say you have 10 items selected. At the beginning of the For/next loop, you'll be counting from 0 to 9. But, after you remove the first item, the upper limit of the Selectedindicies collection will be 8, not 9. And so on until your loop, still counting to 9, passes the upper limit of the Selectedindicies collection.

Dim i As Integer
For i = ListBox1.SelectedIndices.Count - 1 To 0 Step -1
    ListBox1.Items.RemoveAt(ListBox1.SelectedIndices(i))
Next

Dave Kreskowiak
Microsoft MVP - Visual Basic

Structure Array Pointers

Ed Hunt ,Jr.12-Apr-06 14:40

Ed Hunt ,Jr.

12-Apr-06 14:40

I have a problem that is similar that I can not figure out. I am trying to pass an array of a structure to a C++ DLL...

DllExport TFXCAN_RETURNS TFXLibInstallPGNTable(PGNDesc *pDesc);

I have used the following code to declare the function.

<structlayout(layoutkind.sequential, charset:="CharSet.Ansi)"> _
Public Structure PGNDesc
Public i32PGN As Int32
Public u8GrpFunction As Short
Public i8GrpFunctionFieldNo As Short
Public i8InstanceFieldNo As Short
Public u8Priority As UShort
Public bDestGlobal As UShort
Public eProtocol As Integer
Public u8FieldCnt As UShort
Public pFieldList As IntPtr
Public i16DataByteCount As Int16
Public pPropQualifier As IntPtr
Public pMaskValue As IntPtr
End Structure

Public Class PGNComm
Public Declare Auto Function TFXLibPtrTest2 Lib "TFXCAN.dll" Alias "TFXLibPtrTest2" (ByRef PGNArray As PGNDesc, ByVal lIndex As Integer) As Integer
End Class

Here is the code to call the function:

Public Shared Sub Main()
Dim X As Integer = 10
Dim I As Integer, lResult As Integer
Dim oPGNDesc(3) As PGNDesc
For I = 0 To 2
oPGNDesc(I) = New PGNDesc
Next

For I = 0 To 2
With oPGNDesc(I)
.i32PGN = 100
.u8GrpFunction = 101
.i8GrpFunctionFieldNo = 102
.i8InstanceFieldNo = 103
.u8Priority = 104
.bDestGlobal = 105
.eProtocol = 106
.u8FieldCnt = 107
.pFieldList = VarPtr(X)
.i16DataByteCount = 109
.pPropQualifier = VarPtr(X)
.pMaskValue = VarPtr(X)
End With
Next

lResult = Teleflex.TFXLibPtrTest2(oPGNDesc, 0)

This obviously does not work. Any help you can give me would greatly be appreciated.

Ed Hunt, Jr.

Re: Structure Array Pointers

Dave Kreskowiak12-Apr-06 15:28

Dave Kreskowiak

12-Apr-06 15:28

Without seeing the C++ declaration of the structure, it's impossible to tell you if you got the field definitions correct. Also, most basic strucutures require you to prefix the VB.NET Structure specification with a StructLayout Sequential attribute, but that, of course, depends on the structure and the requirements of the function you're trying to pass it to. For example:

<StructLayout(LayoutKind.Sequential)> _
Public Structure PGNDesc
    Public i32PGN As Int32
    Public u8GrpFunction As Short
    Public i8GrpFunctionFieldNo As Short
    Public i8InstanceFieldNo As Short
    Public u8Priority As UShort
    Public bDestGlobal As UShort
    Public eProtocol As Integer
    Public u8FieldCnt As UShort
    Public pFieldList As IntPtr
    Public i16DataByteCount As Int16
    Public pPropQualifier As IntPtr
    Public pMaskValue As IntPtr
End Structure

Dave Kreskowiak
Microsoft MVP - Visual Basic

-- modified at 21:29 Wednesday 12th April, 2006

configuration file

SVb.net12-Apr-06 11:38

SVb.net

12-Apr-06 11:38

hi.
how i can update value of key in configuration file?!
i'm using vb.net 2005

123

Re: configuration file

Dave Kreskowiak12-Apr-06 15:23

Dave Kreskowiak

12-Apr-06 15:23

Searching the articles for "update config file" revealed Modifying Configuration Settings at Runtime[^]. There are more, but that one was at the top of the list.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: configuration file

nguyenvhn12-Apr-06 23:03

nguyenvhn

12-Apr-06 23:03

NET Framework 2.0 allows updating configuration file
Dim config As System.Configuration.Configuration = ConfigurationManager.OpenExeConfiguration(ConfigurationUserLevel.None)
Changing here
config.Save()

Re: configuration file

Dave Kreskowiak13-Apr-06 2:26

Dave Kreskowiak

13-Apr-06 2:26

Whoops! I missed the "2005" part of his post. My bad! Big Grin | :-D

Dave Kreskowiak
Microsoft MVP - Visual Basic

Help needed with multi column Combobox?

Rashar12-Apr-06 9:39

Rashar

12-Apr-06 9:39

Hi,

I have filled a dataset with my customers ok, but I am running in to some problems when trying to create a multi coloumn combobox with the data set.

When I run the code below, I receive the message "Object reference not set to an instance of an object" at this for loop....

For Each drDSRow In ds.Tables("tblCustomer").Rows:

When I look into my CustomerDataset, I can see my table, and indeed it is called tblCustomer.

Here is what I am trying to accomplish:

'Retrieve the data into a DataSet:
Me.TblCustomerTableAdapter.Fill(Me.CustomerDataset.tblCustomer)

Dim drDSRow As DataRow
Dim drNewRow As DataRow
Dim ds As New DataSet
'Create and populate the DataTable to bind to the ComboBox:
Dim dt As New CustomerDataset.tblCustomerDataTable
dt.Columns.Add("Cust Name", GetType(System.String))
dt.Columns.Add("Cust Number", GetType(System.String))

'populate Datatable
For Each drDSRow In ds.Tables("tblCustomer").Rows
drNewRow = dt.NewRow
drNewRow("Cust Name") = drDSRow("Cust_Name")
drNewRow("Cust Number") = drDSRow("Cust_Number1")
dt.Rows.Add(drNewRow)
Next

'bind datatable to the combobox by setting the combobox's datasource property to the datatable.

Me.cboDealerSelector.DropDownStyle = ComboBoxStyle.DropDownList

With Me.cboDealerSelector
.DataSource = dt
.DisplayMember = "Cust_Name"
.ValueMember = "Cust_Number1"
'.SelectedIndex = 0
End With

Dim aIndex As Integer

With Me.cboDealerSelector
For aIndex = 0 To .Items.Count - 1
If CType(.Items(aIndex)(1), String).Trim = TextBox2.Text.Trim Then
.SelectedIndex = aIndex
Exit For
End If
Next

If aIndex >= .Items.Count Then .SelectedIndex = -1
End With

Any suggestions is greatly appreciated.

Thanks,

Rashar

-- modified at 15:41 Wednesday 12th April, 2006

Re: Help needed with multi column Combobox?

Dave Kreskowiak12-Apr-06 15:17

Dave Kreskowiak

12-Apr-06 15:17

Rashar wrote:
When I look into my CustomerDataset, I can see my table, and indeed it is called tblCustomer.

Great! But that not what your code is referencing:

For Each drDSRow In ds.Tables("tblCustomer").Rows

doesn't have anythign to do with your CustomerDataset. You created a new empty DataSet object, called ds, but you never filled it with anything. So, yes, the Tables("tblCustomer") reference returns Nothing. Since you're now trying to access the properties, Rows count, of a Nothing object, it'll throw the "Object reference not set to an instance of an object" error you're seeing.

Dave Kreskowiak
Microsoft MVP - Visual Basic

how to highlight only the selected text in a List view Items and sub items?

Ruki7612-Apr-06 8:35

Ruki76

12-Apr-06 8:35

Hi,

I'm displaying search results in a listview control and I want to highlight or at least make the searched text bold in the listview items and subitems. Can anyone help please?

Thanks,

Ruki

Ruki

Re: how to highlight only the selected text in a List view Items and sub items?

Dave Kreskowiak12-Apr-06 17:18

Dave Kreskowiak

12-Apr-06 17:18

You can't just highlight items, or parts of items, in the ListView. You're best option would be to create your own ListView that exposes this functionality, inheriting from the normal ListView class. You'll have to owner-draw the ListView items yourself. You can search the articles for "custom listview[^]" for examples.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: how to highlight only the selected text in a List view Items and sub items?

Ruki7613-Apr-06 0:39

Ruki76

13-Apr-06 0:39

hi Dave,

Thanks for the input. I understand this has to be done using owner-draw, but I'm bit lost with this. Can U pls help?

cheers,

Ruki

Re: how to highlight only the selected text in a List view Items and sub items?

Dave Kreskowiak13-Apr-06 2:25

Dave Kreskowiak

13-Apr-06 2:25

I already did. Read the articles. Owner-drawing is a subject that takes up entire articles. Much too much information for a forum post.

Dave Kreskowiak
Microsoft MVP - Visual Basic

how to highlight only the selected text in a List view Items and sub items?

Ruki7612-Apr-06 8:34

Ruki76

12-Apr-06 8:34

Hi,

I'm displaying search results in a listview control VB.Net and I want to highlight or at least make the searched text bold in the listview items and subitems. Can anyone help please?

Thanks,

Ruki

Ruki

masked textbox for webform

seekerOfSeekers12-Apr-06 8:04

seekerOfSeekers

12-Apr-06 8:04

I am trying to find a masked textbox(textbox with input mask capability) to be used in a web form. I find plenty of masked textbox for winform.

Thanks

Seeker55
Seeking that which expands the limit

Cursor Image

Peter B12-Apr-06 6:16

Peter B

12-Apr-06 6:16

How can I change a Cursor Image with the MouseEnter/MouseLeave event of a control? VB 6 used to have a Custom Image choice but I cannot find any such option with VB.NET.

Thanks

Re: Cursor Image

Dave Kreskowiak12-Apr-06 15:07

Dave Kreskowiak

12-Apr-06 15:07

You still use the MouseEnter and MouseLeave events of the control. Then you just set the Cursor property to whatever you want:

Private Sub Button1_MouseEnter(blah, blah) Handles Button1.MouseEnter
    Cursor = Cursors.Hand
End Sub
 
Private Sub Button1_MouseLeave(blah, blah) Handles Button1.MouseLeave
    Cursor = Cursors.Default
End Sub

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Cursor Image

Peter B13-Apr-06 2:13

Peter B

13-Apr-06 2:13

Dave, Thanks for your response. If I wanted to change 'Cursor = Cursors.Hand' to an image of my choice I would have to load the Cursor=Cursor.(from a file location "C:\Icons\MyChoice.ico)?

Pete

Re: Cursor Image

Dave Kreskowiak13-Apr-06 2:24

Dave Kreskowiak

13-Apr-06 2:24

You can read up on the

<a href="http://msdn2.microsoft.com/en-us/library/system.windows.forms.cursor(VS.80).aspx" rel="nofollow">Cursor</a>[<a href="http://msdn2.microsoft.com/en-us/library/system.windows.forms.cursor(VS.80).aspx" target="_blank" rel="nofollow" title="New Window">^</a>]

class first. You cannot use an *.ico file for a cursor though. Only *.CUR files are supported!! And only in black and white with no animation!!

Cursor = New Cursor(filepath.cur)

Dave Kreskowiak
Microsoft MVP - Visual Basic

Problens using shell for ICQ in VB

misabe12-Apr-06 6:14

misabe

12-Apr-06 6:14

Hi!
I have a problem with VB and ICQ.
E.g i run:
TaskID = Shell("C:\Program Files\Microsoft Office\OFFICE11\OUTLOOK.EXE /c ipm.note /m " & Form2.Label1(8), vbNormalFocus)

Label (8) is like "john.smith@usa.com" This works fine. Outlook opens and the Adress is set to "john.smith@usa.com"

But...

I cant get it work with ICQ in the way that the contacts ICQ-number is used at a parameter and both ICQ and the contact/message window will open.

I get the ICQ opened using the line below but the user 327414049 will not be opened.
TaskID = Shell("c:\Program Files\ICQlite\Icqlite.exe 327414049", vbNormalFocus)

Any suggestion?

/Samb

Re: Problens using shell for ICQ in VB

Dave Kreskowiak12-Apr-06 15:00

Dave Kreskowiak

12-Apr-06 15:00

That would depend on if IcqList supports command line arguments. I have no idea if it does. If not, there's not much you can do about it.

Check out hte documentation on ICQ Lite or try launching it with the /? switch on its command line.

Dave Kreskowiak
Microsoft MVP - Visual Basic

-- modified at 21:00 Wednesday 12th April, 2006

Monitoting File System

alexfromto12-Apr-06 5:28

alexfromto

12-Apr-06 5:28

Hi.

I need to write a code that will monitor a server system (I was thinking FileSystemWatcher or Reading Event Logs) for file creation, modification, deletion, etc. The problem I have with FileSystemWatcher is that it can't tell who's creating, modifying etc. the files on the server and I need to know user name. With Event Logs I need to parse it somehow becuse it creates many events when someone let's say opens a word document and it slow and crashes when there are too many events happended (I don't even want to mention parsing for date, etc.). It seems FileSystemWatcher is a good solution but like I've said above..... and it can only handle one extension at the time (but I can go around that).

Did anyone have any experience with this? How can I get user name with FileSystemWatcher. As soon as I install it as a service on my server I no longer can use WindowsPrincipal because it returns user as a SYSTEM and I need to know who's actually createing/modifying files.

Thank you.

Re: Monitoting File System

Dave Kreskowiak12-Apr-06 5:58

Dave Kreskowiak

12-Apr-06 5:58

What you want is a bit impractical. The FileSystemWatcher isn't meant to watch entire drives or large numbers of subfolders. It's performance also suffers when you try to us it acrossed a network.

Basically, you're looking for something like FileMon[^] from SysInternals.com. This would have to run on the server itself, so you'd have to evaluate if the performance impact will be acceptable. At the bottom of the page, there is a link to buy the Enterprise version which will monitor remote file systems AND log any activity you want to a file.

Be VERY careful with this. You can generate a HUGE log file if you have it monitor too much stuff at once.

Dave Kreskowiak
Microsoft MVP - Visual Basic

Re: Monitoting File System

alexfromto12-Apr-06 6:10

alexfromto

12-Apr-06 6:10

Thank you very much. I will take a look at it.

I have make a extention .XYZ opened by my application ...

cylix200012-Apr-06 4:43

cylix2000

12-Apr-06 4:43

The case is that, I have to click a link on the intratnet website to pass something in my application,
My stupid method is click the link and download a abc.key file, all the computer set that, this file can be opened by my application.
And then I can get the data in that file in my VB.net application.
How the question is, after I associate the file to my application,

How VB.NET to get which file cause the startup the application??
Beside, any other better method?
I can use asp, client side VB Script in that website with low security.
Thank you!

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.