|
you have to add the label to your form controls collection
try this in form load
form1.controls.add(mylabel)
A.E.K
|
|
|
|
|
Wondered if anybody can help me with this. I want to have a databound combobox and the first item will be "Add New Item". The combobox will otherwise be populated from a table. If the user needs to enter a new item they can click on "Add New Item" and add a new record to the bound table and when the user returns to the combobox the new item will be selected (something similar to QuickBooks comboboxes). Any ideas or help much appreciated.
|
|
|
|
|
I would suggest not binding to the combobox using the DataSource property as a solution. I'll give you a rough example, though I haven't tested it, I know it is possible.
Assuming the following:
A ComboBox named 'cboItems'
A Button named 'btnUpdate'
A TextBox named 'tbItemName'
A Typed-DataSet named 'dsData' of type ExampleDataSet
A Typed-DataTable in 'dsData' named 'ExampleItems' of type ExampleDataTable
A DataColumn in 'ExampleItems' named 'ItemName'
<code>
Public Sub Form_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
'We will implement custom sorting, so disable the ComboBox automatic sorting
Me.cboItems.Sorted = False
Me.RefreshItems
End Sub
Private Sub RefreshItems
'Create a temp StringCollection to sort our data
Dim SortedItems As New Collections.StringCollection
For Each IRow as ExampleDataSet.ExampleRow In Me.dsData.ExampleItems
SortedItems.Add(IRow.ItemName)
Next
'Sort the list before adding it to the ComboBox
SortedItems.Sort
Me.cboItems.Clear
Me.cboItems.BeginUpdate 'Begin updating the combobox, recommended but not required all of the time
'Add the "Add New Item" first to ensure it is the first item
Me.cboItems.Items.Add("Add New Item")
For Each Name As String In SortedItems
Me.cboItems.Items.Add(Name)
Next
Me.cboItems.EndUpdate 'Finished updating the combobox
SortedItems = Nothing
'At this point, our ComboBox has at least one item "Add New Item" so we can safetly
'set the ComboBox.SelectedItem to 0
Me.cboItems.SelectedIndex = 0
'Alternative
'Me.cboItems.SelectedIndex = Me.cboItems.Items.IndexOf("Add New Item")
End Sub
Private Sub btnAdd_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAdd.Click
Me.dsData.ExampleItems.AddExampleItemRow(Me.tbItemName.Text)
'After adding an item to the datasource, refresh the list to reflect the changes
'This can be done after deleting a row or updating it as well
Me.RefreshItems
End Sub
</code>
The previous example will work. However, I would suggest possibly using a button on the main form that opens a child form when clicked. The child form would have all of the controls needed to add the item. When the child form closed you could then add an item. This would allow you to bind directly to the combobox and not worry about all of the previous code.
Hope this helps,
If you have any other questions feel free to ask
Scott Page
"Some people spend an entire lifetime wondering if they made a difference. The Marines don't have that problem."
( President Ronald Reagan)
|
|
|
|
|
Thanks for all your help. I agree about that using a button may be a simpler option. I might actually use a context menu and let they user right click to bring up the form.
Thanks again
|
|
|
|
|
i have a clock alarm and want to send you
|
|
|
|
|
HoseinQuest wrote: ForumVisual Basic / VB.NET
Subject:Re: a Simple Clock Alarm
Sender:HoseinQuest
Date:15:43 6 Mar '07
i have a clock alarm and want to send you
If your aim is to submit your code, please use "Articles" and then select "submit an article". This is a forum. 
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Why don't the same datasources that show in the EXCEL data query screen show up in the add new database choice in vb.net? Do I need to add them to the project somehow?
Thanks!
|
|
|
|
|
How do I change the date or time field of the timedate control panel using the shell command (without displaying the applet). For example, I can change the timezone by specifying "control.exe timedate.cpl,,/Z" & StandardName where StandardName is the selected zone name. I would like to do the same thing for the date or time field. Is it possible?
Thanks for your help!
- Jewel
P.S: I am a new member so I am not so sure if i will be notified automatically via email (or how it works?) when someone replies to my message. So here is my email: minhchau.duong@triton.com
|
|
|
|
|
Maybe you can using the shell command to run "Date" or "Time" for specifying the date and time.... example "date 03-07-2007"
You must check "notify me by e-mail if someone answers this message"
so you will be automatically notify
|
|
|
|
|
Has anybody here had any experience writing code to work with a bar code scanner?
I’m just now starting to research this and I’m looking for resources.
My most basic requirement is to be able to generate a bar code that is associated with a specific folder in a directory structure. When that bar code is scanned, the folder will open up.
Thanks
Brad
|
|
|
|
|
Most barcode scanners just return text. It is just like someone typed keystrokes into the keyboard. So the only issue is what barcode type to use and does your barcode scanner support it. Certain barcode types only allow numbers, others allow both alpha and numeric. Some have check digits others don't.
If you need to create a barcode that your scanner can read, often this is as easy as finding the correct font and just displaying that font with the correct text.
So in your case, I would probably go with code 39 since it allows alpha characters. That way you could just create barcodes for your folder names. Then when the scan in your barcode you would have text that should be the folder name. At that point you could use that to open that folder. NOTE not all symbols are supported in some barcodes. So if you plan on needed to barcode certain symbols make sure the barcode you choose supports it.
Hope that helps.
Ben
|
|
|
|
|
Thanks. That gets me on the right track.
|
|
|
|
|
Hello ,
I am using thread in my vb.net program. This program works fine when I run it thru source code.
But when I build a setup and install it on a machine having .NET framework it does not execute the thread.
Thanks for any help in advance.
|
|
|
|
|
You're going to need to post some code to get an answer for this one.
There could be a number of reasons. Post only the code that starts the thread, the code run by the thread, and the code that terminates the thread, for now. I'll take a look and give you any advice I can come up with.
"Some people spend an entire lifetime wondering if they made a difference. The Marines don't have that problem."
( President Ronald Reagan)
|
|
|
|
|
Hello R. Scott,
Thanks for the resposne. But i found out the problem. There was a problem with a DLL. I removed that reference and this thing works fine now..
thanks
|
|
|
|
|
Is it possiable to use same assembly with different version number in same .net project?
|
|
|
|
|
Yes, You need to specify "bindingRedirect" in your config file.
<configuration>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="ClassLibraryVersion"
publicKeyToken="b035c4774706cc72"
culture="neutral" />>
<bindingRedirect oldVersion="1.1.1830.10493"
newVersion="1.0.1830.10461" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration>
Parwej Ahamad
g_parwez@rediffmail.com
|
|
|
|
|
But then how project will use function of two different assemblies.
e.g.
GetUser function is in both assemblies but how project will decide which assembly version to use?
|
|
|
|
|
Hello everyone,
I'm trying to do a calendar for a school project,I need to change the color of the button like this:
Click once> The button will execute something and change to a different colour.
Clicking the second time>The button will change another colour and execute another different things.
Clicking the third time>The button will go back to normal like at the starting display.
I have done the code for clicking the 1st time as normal,but I don't know how to code it for the second time clicking the same button. Hope someone can give me some solution here.
Thanks and Best Regards to you all~!
|
|
|
|
|
<br />
Public Class Form1<br />
Dim OrginalColor As New Color<br />
<br />
Public Sub New()<br />
<br />
' This call is required by the Windows Form Designer.<br />
InitializeComponent()<br />
<br />
' Add any initialization after the InitializeComponent() call.<br />
OrginalColor = Button1.BackColor<br />
End Sub<br />
<br />
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
<br />
Static ClickCount As Int32<br />
<br />
ClickCount += 1<br />
<br />
<br />
Select Case ClickCount <br />
<br />
Case 1<br />
Msgbox ("Do 1st thing")<br />
Case 2<br />
Msgbox ("Do 2nd thing")<br />
Case 3<br />
Button1.BackColor = OrginalColor<br />
Button1.ForeColor = Color.Black<br />
ClickCount = 0<br />
Exit Sub<br />
End Select<br />
<br />
Randomize()<br />
<br />
Dim NewColor1 As Int32 = CInt(Int((255 - 1 + 1) * Rnd() + 1))<br />
Dim NewColor2 As Int32 = CInt(Int((255 - 1 + 1) * Rnd() + 1))<br />
Dim NewColor3 As Int32 = CInt(Int((255 - 1 + 1) * Rnd() + 1))<br />
<br />
Button1.BackColor = Color.FromArgb(NewColor1, NewColor2, NewColor3)<br />
<br />
'You can remove remark to enable forecolor<br />
'Button1.ForeColor = Color.FromArgb(NewColor1, NewColor2, NewColor3)<br />
<br />
<br />
End Sub<br />
<br />
<br />
End Class<br />
<br />
<br />
<br />
What a curious mind needs to discover knowledge is noting else than a pin-hole.
|
|
|
|
|
Thank you so much JUNEYT. I got it from you. Appreciate your help alot.
Best Wishes
Drex
|
|
|
|
|
Hi,
Can anyone point me in the right direction for this. I have a program that I want to have intergrated with Windows so that by using a hot key defined by the program it will run. It would be something like using Ctrl + C to copy except it is not for copying.
Thanks
|
|
|
|
|
If you mean like the Windowskey + E for Explorer, you would need to trap keystrokes at the system level. Check out code for keyloggers.
He was a snowflake, like other "unique" snowflakes, falling down, getting stepped on, and pushed aside to disappear.
|
|
|
|
|
I hope to have my program run at startup so that when you press a key combination it will eject the CD tray then by pressing it again it will close the cd tray.
|
|
|
|
|
Does anyone have any idea how I can go about sorting a collection class.
The elements of the class are:
Public PointData As Double
Public RateData As Double
Public TimeData As Double
The requirement is to sort on one of the following:
PointData (asc) + RateData (Desc) or
PointData (Desc)
Any help would be very much appreciated!! 
The code of the class collection is:
Public Class CPRTData
Public PointData As Double
Public RateData As Double
Public TimeData As Double
' Private data for the write-once ID property.
Private mstrID As String
' The first time the ID property is set, the static
' Boolean is also set. Subsequent calls return !ERROR! in the ID.
Public Property ID() As String
Get
ID = mstrID
End Get
Set(ByVal Value As String)
Static blnAlreadySet As Boolean
If Not blnAlreadySet Then
blnAlreadySet = True
mstrID = Value
Else
mstrID = "!ERROR!"
End If
End Set
End Property
End Class
Public Class CPRTDataItems
Implements System.Collections.IEnumerable
'local variable to hold collection
Private mCol As Collection
Public Function Add() As String
'create a new object
Dim objNewMember As CPRTData
Dim sKey As String = ""
sKey = "R" & Format(mCol.Count + 1, "0000")
objNewMember = New CPRTData
objNewMember.ID = sKey
'set the properties passed into the method
mCol.Add(objNewMember, sKey)
'return the object created
Add = objNewMember.ID
objNewMember = Nothing
End Function
Public Function GetEnumerator() As System.Collections.IEnumerator _
Implements System.Collections.IEnumerable.GetEnumerator
GetEnumerator = mCol.GetEnumerator
End Function
Public Sub Clear()
Dim iLoopVar As Integer
For iLoopVar = mCol.Count To 1 Step -1
Remove(iLoopVar)
Next
End Sub
Public Function Count() As Integer
Count = mCol.Count()
End Function
Default Public ReadOnly Property Item(ByVal Index As Object) As CPRTData
Get
Item = mCol.Item(Index)
End Get
End Property
Public Sub Remove(ByRef vntIndexKey As Object)
'used when removing an element from the collection
'vntIndexKey contains either the Index or Key, which is why
'it is declared as a Variant(Object)
'Syntax: x.Remove(xyz)
mCol.Remove(vntIndexKey)
End Sub
Private Sub Class_Kickstart()
'creates the collection when this class is created
mCol = New Collection
End Sub
Public Sub New()
MyBase.New()
Class_Kickstart()
End Sub
Private Sub Class_Shutdown()
'destroys collection when this class is terminated
mCol = Nothing
End Sub
Protected Overrides Sub Finalize()
Class_Shutdown()
MyBase.Finalize()
End Sub
End Class
David Loring
!! Keep Music Live !!
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
