|
Hi all,
Please tel me how to bind a listview using dataset in vb.net application?
Thnaks in advance
|
|
|
|
|
Dim ImageList16 As New ImageList,DAp1 as SqlDataAdapter,Ds1 as New DataSet
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\party_fig.gif"))
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_spcl.gif"))
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\target.gif"))
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_dtl.gif"))
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\it_dtl.gif"))
ImageList16.Images.Add(Bitmap.FromFile("C:\Temp\indent_fig.gif"))
ListView1.Items.Clear()
ListView1.Refresh()
ListView1.View = View.Details
ListView1.BorderStyle = BorderStyle.FixedSingle
ListView1.BackColor = Color.Azure
ListView1.ForeColor = Color.Green
ListView1.HoverSelection = True
ListView1.FullRowSelect = True
ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable
ListView1.GridLines = True
ListView1.Cursor = Cursors.Hand
ListView1.Columns.Add("MT No", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("MT DATE", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("ITEM_DESCRIPTION", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("ITEM_CODE", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("TRANSFER Qty", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("UNIT", -2, HorizontalAlignment.Left)
ListView1.Columns.Add("PROJECT", -2, HorizontalAlignment.Left)
ListView1.SmallImageList = ImageList16
ListView1.Columns(0).ImageIndex = 0
ListView1.Columns(1).ImageIndex = 1
ListView1.Columns(2).ImageIndex = 2
ListView1.Columns(3).ImageIndex = 3
ListView1.Columns(4).ImageIndex = 4
ListView1.Columns(4).ImageIndex = 5
ListView1.Columns(4).ImageIndex = 6
ListView1.Font = New System.Drawing.Font("Times New Roman", 8, FontStyle.Regular, GraphicsUnit.Point, Byte.MinValue)
Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
Ds1.Clear()
ComboBox1.DroppedDown = True
con.ConnectionString = ConStr_2
con.Open()
DAp1 = New SqlDataAdapter(Query1, con)
DAp1.Fill(Ds1)
con.Close()
ListView1.Items.Clear()
ListView1.Refresh()
For A3 As Integer = 0 To Ds1.Tables(0).Rows.Count - 1
Dim RItem As ListViewItem
RItem = New ListViewItem(Ds1.Tables(0).Rows(A3).Item("mt_no").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("mt_date").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("itm_description").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("itm_code").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("tran_qty").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("itm_units").ToString)
RItem.SubItems.Add(Ds1.Tables(0).Rows(A3).Item("proj_name").ToString)
ListView1.Items.Add(RItem)
Next
ListView1.Visible = True
ListView1.Focus()
End Sub
|
|
|
|
|
|
Hi,
i hope this can be answered in this Message Board.
I have some VBA code in Access 2007 that opens up a table in Print Preview mode. I want the orientation to be in landscape.
Here is the code that puts it in Print Preview mode:
Dim prtPrintPreview As Printer 'trying this to no avail
stDocName = "MyDataTable"
DoCmd.OpenTable stDocName, acViewPreview
Set prtPrintPreview = Application.Printers(0) 'this did nothing
prtPrintPreview.Orientation = acPRORLandscape
When the table opens, it is put in Print Preview (this is the only Access2007 menu tab available).
|
|
|
|
|
Hi,
You can change the default orientation like this[^];
Application.Printer.Orientation = acPRORLandscape
stDocName = "SomeTableName"
DoCmd.OpenTable stDocName, acViewPreview
I are Troll
|
|
|
|
|
THANK YOU!
I was looking all over the Net and MSDN for about 2 hours (and even contracted a suspicious "file") in the process.
This did exactly what i needed.
Thanks again,
John JM
|
|
|
|
|
Can I raise my own compilation error.
For example if an object gets used before a property is set can I raise that as an error when we compile?
Humble Programmer
|
|
|
|
|
programmervb.netc++ wrote: Can I raise my own compilation error.
That would be easy in C#;
#warning "You've been warned!"
#error "about a warning and an error"
Alas, VB.NET doesn't seem to have an equivalent. The closest match would be misusing the Obsolete -attribute;
<Obsolete("Danger, Will Robinson!", True)> _
Sub Test()
End Sub
I are Troll
|
|
|
|
|
LOL @ Danger, Will Robinson!
Ahhhh can I have your address to send you the dry cleaning bill? Coffee stains and whatnot.
|
|
|
|
|
Lost in Space was a very long time ago.. Coffee stains?
I are Troll
|
|
|
|
|
When we connect to live data and are in the dev environment it shows big message that says ERROR ERROR WILL ROBINSON YOU ARE IN LIVE DATA!!!!
Humble Programmer
|
|
|
|
|
Hehe, cool
|
|
|
|
|
Hi,
Tooltip is not one of the properties for image. I need to show a text when I mouseover an image.
thanks a lot in advance
|
|
|
|
|
You might be displaying the image in the PictureBox or some other control. So, create a tooltip object and use its SetToolTip method.
|
|
|
|
|
Hi,
Thanks. I have the image in a picturebox, when I click,it does something.
when I mouseover the image I want to display a text for example ADD..
I drop a tooltip control onto the form...I tried some few codes, no luck.
Can you guide me?
Thanks again..
|
|
|
|
|
As soon as you drop a tooltip on the form, the picturebox gets the property "Tooltip on ToolTip1" (or whatever name you gave the new tooltip). Put your text in here.
"I love deadlines. I like the whooshing sound they make as they fly by." (DNA)
|
|
|
|
|
|
Having added a Tooltip control to your form (as has been suggested already) you can also set the tool tip programatically by passing the control and the text to display to the Tooltip control. eg.
me.toolTip1.SetToolTip(me.PictureBox1, "Whatever")
|
|
|
|
|
|
I am developing a pocket pc application in vb.net 2005.I am using buttons and listview on my form.
I have 3 Questions about the application.
1. Is there any property to add image on the button control?
2. Is there any property to draw grid lines in the listview?
3. How can I create a multilingual application?
4. How can I transfer data from my desktop pc to my pocket pc through FTP,HTTP etc...
Thanks in advance.
|
|
|
|
|
Hi,
ejaz_pk wrote: 1. Is there any property to add image on the button control?
2. Is there any property to draw grid lines in the listview?
I didn't find them either; trying to emulate a complete Windows-UI takes a lot of custom painting code.
ejaz_pk wrote: 3. How can I create a multilingual application?
There's a cool CodeProject article[^] on that
ejaz_pk wrote: 4. How can I transfer data from my desktop pc to my pocket pc through FTP,HTTP etc...
Through various ways, depending on the nature of that data. You can fetch webpages using the HttpWebRequest[^]-class, and even synchronize databases[^].
Hope this gets you started
I are Troll
|
|
|
|
|
Hello All,
I am sucessfully writing SOAP messages with the SOAP Toolkit and VB6.0. I did however run into a problem whereby the format of one of my input parameters needs to be in a format as in below:
<b><i><FieldNames type="xsd:string">
<item1>AliquotInternalID</item1>
</FieldNames></i></b>
In general the toolkit calls to serializer.writestring, outputs in the following:
<b><i><FieldNames type="xsd:string"> AliquotInternalID </FieldNames></i></b>
How can I make calls to the Toolkit to create the child <item> tags with the values as see in the first example.
All responses are welcome.
Have a great day.
|
|
|
|
|
Hello.
My question is, how can I receive data from specific ip and udp port ?
Description - In our network,TAP server receive the data through VSAT,and UDP broadcaster is broadcast the data in our network that's IP is 192.168.1.2 and port no is 35330 .UDP broadcaster is continuously broadcast the data.How can I Receive the data from that IP and Port no ?
fdgfg hjh hj jhj hg jhh
|
|
|
|
|
Simply use the network classes to open up a connection on that port and start to receive the network stream.
Here is the example from MSDN using the TCPClient class;
Shared Sub Connect(server As [String], message As [String])
Try
Dim port As Int32 = 13000
Dim client As New TcpClient(server, port)
Dim data As [Byte]() = System.Text.Encoding.ASCII.GetBytes(message)
Dim stream As NetworkStream = client.GetStream()
stream.Write(data, 0, data.Length)
Console.WriteLine("Sent: {0}", message)
data = New [Byte](256) {}
Dim responseData As [String] = [String].Empty
Dim bytes As Int32 = stream.Read(data, 0, data.Length)
responseData = System.Text.Encoding.ASCII.GetString(data, 0, bytes)
Console.WriteLine("Received: {0}", responseData)
stream.Close()
client.Close()
Catch e As ArgumentNullException
Console.WriteLine("ArgumentNullException: {0}", e)
Catch e As SocketException
Console.WriteLine("SocketException: {0}", e)
End Try
Console.WriteLine(ControlChars.Cr + " Press Enter to continue...")
Console.Read()
End Sub
And an example using the UDPClient class;
Dim udpClient As New UdpClient(11000)
Try
udpClient.Connect("www.contoso.com", 11000)
Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes("Is anybody there?")
udpClient.Send(sendBytes, sendBytes.Length)
Dim udpClientB As New UdpClient()
udpClientB.Send(sendBytes, sendBytes.Length, "AlternateHostMachineName", 11000)
Dim RemoteIpEndPoint As New IPEndPoint(IPAddress.Any, 0)
Dim receiveBytes As [Byte]() = udpClient.Receive(RemoteIpEndPoint)
Dim returnData As String = Encoding.ASCII.GetString(receiveBytes)
Console.WriteLine(("This is the message you received " + _
returnData.ToString()))
Console.WriteLine(("This message was sent from " + _
RemoteIpEndPoint.Address.ToString() + _
" on their port number " + _
RemoteIpEndPoint.Port.ToString()))
udpClient.Close()
udpClientB.Close()
Catch e As Exception
Console.WriteLine(e.ToString())
End Try
|
|
|
|
|
Guys and Gals,
i have the following example VB.NET 2008
' Add a button column.
Dim buttonColumn As New DataGridViewButtonColumn()
buttonColumn.HeaderText = ""
buttonColumn.Name = "Status Request"
buttonColumn.Text = "Request Status"
buttonColumn.UseColumnTextForButtonValue = True
datagridview1.columns.add(buttoncolumn)
Runs with no errors but the text doesn't show up. Any ideas?
Thanks
Simon
modified on Wednesday, March 31, 2010 7:25 AM
|
|
|
|