mrdutchie

When I select a cell, then the whole row will be highlighted, and that's fine. But the cell that I clicked on, will show the cursor behind the word, and the color of it changes. I want disabled, BUT still I want be able to select/deselect my Checkbox in that row. How to do that?

Hmm... maybe a source to peek at? :)

I am looking into Paging for a Datagrid/Listview, but I don't have that option DataGrid.AllowPaging Property [Visual Basic] (MSDN Helpfile) Cause it seems like this is a way to make the Datagrid better with huge amount of rows. and how to get Paging in a Listview (if possible) since loading 40.000 takes way to long What do I need to do, to make it work?

Ok, tried it, and is working too now, but it takes about 10 seconds for all the items to show up.. it's still way too long, since when I see other programs, it only takes 2-3 seconds..

No I didn't.. since I wanted the checkboxes also.. Let me check right now to see if that's faster or not

Is there a way to load 40.000+ items in a "Checkedlistbox" in just 2-3 seconds? (like other news programs do) I am able to put it in a Datagrid with that speed, but would like the checked listbox for it. With the datagrid it looks like this line is making it so fast myDataSet.Tables(ImportFileName).Rows.Add(CurrentLine.Split(" ")) I tried this in a listbox but then again... it's very slow and the data is not right. I am using VB.NET and it's a Windows application. Any thoughts on this?

Well... I'm back for some reason I don't have those command available for my datagrid. I'm totally puzzled with this line (this is a modified source I found for a datagrid) myDataSet.Tables(ImportFileName).Rows.Add(aa) aa is some kind of array a(0)="a.b.test" a(1)="34" a(2)="345" Still unable to add a checkbox because of that line. So I have in my textfile "False a.b.test 34 345" So the first value will fill the checkbox for me, and that works.. (I am sure there is a better way) But I want to change the columnwidth from 1 of the columns, but I don't have the right command showing up when I type.

Thanks.. My project is Windows, let's see if I can get smarter with that one..

Yeah I tried something like that, and even your code. but doesn't work.

Hehe... you have Experience with that I see... I'll keep it in mind for next time.... hmm... any Idea how to put a checkbox in a column easy? playing with that now...but no luck so far

lol.. Yep and I was looking at it for over a week... :o

It's working now.. duh had 2 lines in the wrong order PREV 'myColumn.DataType = System.Type.GetType("System.Int32") myColumn.DataType = System.Type.GetType("System.String") myColumn = New DataColumn("Start") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) 'myColumn.DataType = System.Type.GetType("System.Int32") myColumn.DataType = System.Type.GetType("System.String") myColumn = New DataColumn("End") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) NOW myColumn = New DataColumn("Start") myColumn.DataType = System.Type.GetType("System.Int32") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) myColumn = New DataColumn("End") myColumn.DataType = System.Type.GetType("System.Int32") myDataSet.Tables(ImportFileName).Columns.Add(myColumn)

Hi there, if someone could help me with this, I would really appriciate that. When I import a testfile into a datagrid I am able to sort the columns but column 2 and 3 are numbers, so those are not sorting right since it is a String. I tried to make it as a Int32, Int16 but then it's failing on this line "myDataSet.Tables(ImportFileName).Columns.Add(myColumn)" I only can import it as a string. I can't figure out how to do it as a number or Int. What do I need to do to make it work?? Thanks so much Public Sub ExecutImport() Dim myReader As New System.IO.StreamReader(clsFileAndPath) Dim CurrentLine As String Dim IsFirstLine As Boolean Dim myTable As New DataTable Dim SqlTable As New DataTable Dim ColumnName As String Dim tmpCount As Integer Dim ColumnCount As Integer Dim myColumn As DataColumn Dim myRowSql As DataRow Dim myRowTable As DataRow Dim RowCount As Integer Dim ImportFileName As String Dim aa() As String Dim bb As Long Dim cc As Long Dim dd() As String clsTotalRows = GetTotalRows() If clsCrossRefTableName <> "" Then Dim myConnection As New SqlClient.SqlConnection(clsCrossRefTableConString) Dim myCommand As New SqlClient.SqlCommand(clsCrossRefTableFillCmd) Dim daCRT As New SqlClient.SqlDataAdapter(myCommand) myCommand.Connection = myConnection SqlTable = New DataTable(clsCrossRefTableName) myDataSet.Tables.Add(clsCrossRefTableName) daCRT.Fill(myDataSet.Tables(clsCrossRefTableName)) End If ImportFileName = FileName myTable = New DataTable(ImportFileName) myDataSet.Tables.Add(ImportFileName) While myReader.Peek <> -1 CurrentLine = myReader.ReadLine If IsFirstLine = False Then myColumn = New DataColumn("Group") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) 'myColumn.DataType = System.Type.GetType("System.Int32") myColumn.DataType = System.Type.GetType("System.String") myColumn = New DataColumn("Start") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) 'myColumn.DataType = System.Type.GetType("System.Int32") myColumn.DataType = System.Type.GetType("System.String") myColumn = New DataColumn("End") myDataSet.Tables(ImportFileName).Columns.Add(myColumn) aa = CurrentLine.Split(" ") bb = CInt(aa(1)) cc = CInt(aa(2)) myDataSet.Tables(ImportFileName).Rows.Add(aa) myRowTable = myDataSet.Tables(ImportFileName).Rows(RowCount) RowCount += 1 End If If IsFirstLine = False Then IsFirstLine = True tmpCount = 0 Else myDataSet.Tables(ImportFileName).Rows.Add(CurrentLine.Split(" ")) myRowTable = myDataSet.Tables(ImportFileName).Rows(RowCount) RowCount += 1 End If End While clsImportedDataSet = myDataSet End Sub

nm.. figured it out

for several days I can't figure out how to make a new connection after I disposed it. So I want to connect, disconnect, connect etc..... What am I missing here? This is what I have Public mysocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) Public theend As Boolean Public server As String = "news.ultrafeed.com" Public serverport As Long = 119 Public ipsolve As IPHostEntry = Dns.Resolve(server) Public ipend As New IPEndPoint(ipsolve.AddressList(0), serverport) Public bb(1024) As Byte Public Sub login() If mysocket.Connected = True Then MsgBox("Allready connected") Exit Sub Else Dim server As String = "news.ultrafeed.com" Dim serverport As Long = 119 Dim ipsolve As IPHostEntry = Dns.Resolve(server) Dim ipend As New IPEndPoint(ipsolve.AddressList(0), serverport) Dim mysocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) End If Dim msg1 As Byte() = Encoding.ASCII.GetBytes("AUTHINFO user xxxx" & vbCrLf) Dim msg2 As Byte() = Encoding.ASCII.GetBytes("AUTHINFO pass xxxx" & vbCrLf) mysocket.Connect(ipend) bb.Clear(bb, 0, 1024) bytes = mysocket.Receive(bb, bb.Length, 0) txtinfo.Text = Encoding.ASCII.GetString(bb) loginfo.Text = Encoding.ASCII.GetString(bb) mysocket.Send(msg1, 0, msg1.Length, 0) bb.Clear(bb, 0, 1024) bytes = mysocket.Receive(bb, bb.Length, 0) txtinfo.Text = Encoding.ASCII.GetString(bb) loginfo.Text = Encoding.ASCII.GetString(bb) mysocket.Send(msg2, 0, msg2.Length, 0) bb.Clear(bb, 0, 1024) bytes = mysocket.Receive(bb, bb.Length, 0) txtinfo.Text = txtinfo.Text + Encoding.ASCII.GetString(bb) loginfo.Text = loginfo.Text + Encoding.ASCII.GetString(bb) End Sub Private Sub Disconnect() Dim msg2 As Byte() = Encoding.ASCII.GetBytes("QUIT" & vbCrLf) bb.Clear(bb, 0, 1024) mysocket.Send(msg2, 0, msg2.Length, 0) bytes = mysocket.Receive(bb, bb.Length, 0) txtinfo.Text = txtinfo.Text + Encoding.ASCII.GetString(bb) mysocket.Shutdown(SocketShutdown.Both) mysocket.Close() End Sub