|
|
pranavrana wrote: txtUsername.Text = rd("Username") And txtPassword.Text = rd("Password")
That is a problem right there.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
What line is the error on? This one?
txtUsername.Text = rd("Username") And txtPassword.Text = rd("Password")
Of course that's a problem. That needs separated on two lines. You can't use a Boolean operator on strings.
And please don't post the same question/problem more than once. 
|
|
|
|
|
Hi,
I want to display reservations in table
in first cell i want to display vehicle name and from 2nd cell i have to display timing ranges from 8:ooAM to 11:00AM with interval of 15 minutes.
I mean each hour contains four cells and have to color those cells which contains reseved time .
i have calculated start_cell_number and end_cell_number but now i have to display reservations in table and want to color cells which contains reservation.
Please iam stuck on this any hint or article is highly appericaited .
Here is sample of display Data .
VehicleName 8:00 8:15 8:30 8:45 9:00 9:15 9:30 9:45 10:00 10:15 10:30 10:45 11:00
Shahzore
CD 70_01
cD 70 02
for suppose Shahzore is reserved from 9:00 to 10:00 then i have to color cells from 9:00 to 10:00 ans others reamins un colored
please give me simple hint
Regards
rameez
|
|
|
|
|
If you have these columns, handle the item data bound event to change the color of the column that corresponds to the time that has been set.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Thanks for reply Christian Graus
please can u give me code example that how i do that .
thanks in advance
Rameez
|
|
|
|
|
Hi!
I have an application that generates a report using VB's Data report. Is there any way to suppress the page footer unless it is the last page? I know I can use the report footer, but the problem with this is that the report footer display right after the detail section ends(so if the detail ends at the middle of the page the Report footer will show in the middle of the page). I don't want to use Crystal Reports since I have to make the report again from scratch. Is there any way to do this? Please help..
|
|
|
|
|
|
Please don't ask over and over. Buy a book, and ask specific questions that show you've actually tried to do your own work first.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Christian Graus wrote: Please don't ask over and over.
Is there some unwritten rule somewheres that people see thinking this is the best approach at getting a question answered? 
Christian Graus wrote: Buy a book
Well, even if he can't afford one, there is a free thing called google 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Paul Conrad wrote: Is there some unwritten rule somewheres that people see thinking this is the best approach at getting a question answered
I think it's sometihng like this
'Oh, no, another task I don't know how to do, I hope my boss doesn't realise'
'Quick, post it on the web'
watch the clock/worry
'no answer yet ? Better ask again !!!!'
repeat
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Christian Graus wrote:
'Oh, no, another task I don't know how to do, I hope my boss doesn't realise'
Yep. Like the guy in the math forum who keeps asking for implementations of Excel formulas in C#. Found a Rent-A-Coder gig from back in 2004 doing the same exact thing for $100 USD 
Wow, people love reinventing the wheel I guess
Well, the biggest kicker is you can call those Excel functions through the Office Interop Library.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
any suggestion for the codes?
|
|
|
|
|
hi,
I want to download login form with ms access database can you give me,or where i can get this form
|
|
|
|
|
I have not idea about download login form of MSAccess database
but you can pick a login template from Visual Studio IDE
follow steps
Go to Menu Project--->Add New Item
a dialog box is open. Choose "Login Form" from Template section, Give appropriate Name and Click on Add button. In this way you can add a login form in your application
Hope this helps
|
|
|
|
|
hi all,
am using VS 2005, i have one issue on search buttons. The problem is my form contains 4 search buttons each search button searching the values depends on table values . For Exp TicketNumber,UnitNumber,CompanyName,SerialNumber.
In this case only one search button working properly my code is........
Dim f_LookupNonRev As New LookUpNonRev
Dim strTicketNumber As String = ""
f_LookupNonRev.dt_parentdata = dt_nonrev
f_LookupNonRev.ShowDialog()
If Not IsNothing(f_LookupNonRev.SearchID) Then StrTicketNumber = f_LookupNonRev.SearchID
f_LookupNonRev.Close()
If StrTicketNumber.Trim <> "" Then bs_nonrev.Position = bs_nonrev.Find("TicketNumber", StrTicketNumber)
serch button
Public Property SearchID() As String
Get
SearchID = strTicketNumber
End Get
Set(ByVal Value As String)
strTicketNumber = Value
End Set
End Property
If dgvDataView.SelectedRows.Count > 0 Then
SearchID = dgvDataView.SelectedRows(0).Cells("TicketNumber").Value()
End If
Regards
Vidhish
|
|
|
|
|
Hi,
this is only part of the relevant code, making it difficult or impossible to help you.
What are your buttons names?
Where are their Click handlers?
What is bs_nonrev?
one button works properly, but what are the other 3 doing? Be specific on the symptoms!
|
|
|
|
|
I written an application (With the help of other people) to grab information from a SQL database, and display it on screen, so that is is editable, deletable and amendable.
How would I go about pasting a set line (Of the Data Grid) into an underlying application (Like a webform?)
Any help is appreciated.
Cheers
|
|
|
|
|
What do you mean by an "underlying" application? A web form is not an application, that would rather be a browser...
Perhaps you should explain what it is that you are trying to accomplish, instead of asking for what you think may be the solution...
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
|
If you want to achieve this you are going to have to manage the copy paste operation yourself (or at least the copy part). You will need to read the row from the data grid, construct an object (probably a delimited string) for the data and place it in the clipboard.
The paste part is up to your target.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi experts,
i am developing a window application, using VS 2005, i created a user control that contain a Combobox and error provider for my combo.
Everything worked just fine until i needed to use the event SelectedindexChange, in fact, in my form i have my user control(containing Combo box) and a checked list box. For each value in my Combo box i have to load different values into my checked list box
Therefore, i need to use the event selectedindexchange in my form
can anyone teach me please how to create an event in my form to fire a function in my usercontrol when the index is changed? If there is another way hope to share it.
the code of my user control (if there is any remarks or anything that i could be written much better or missing i will be thankful to tell me)
Public Class All_In_One_ComboBox
Private Err_Msg As String
Private Index As Integer
Private Err As Boolean = False
Private Back_Color As Color = Color.White
Private Fore_Color As Color = Color.Black
Private _Font As New Font("Microsoft Sans Serif", 12, FontStyle.Regular, GraphicsUnit.Point)
Public Property My_Back_Color() As Color
Get
My_Back_Color = Back_Color
End Get
Set(ByVal value As Color)
Me.My_ComboBox.BackColor = value
End Set
End Property
Public Property My_Fore_Color() As Color
Get
My_Fore_Color = Fore_Color
End Get
Set(ByVal value As Color)
Me.My_ComboBox.ForeColor = value
End Set
End Property
Public Property My_Text() As String
Get
My_Text = Trim(Me.My_ComboBox.Text)
End Get
Set(ByVal Value As String)
Me.My_ComboBox.Text = Value
End Set
End Property
Public Property My_Index() As Integer
Get
My_Index = Index
End Get
Set(ByVal Value As Integer)
Index = Value
End Set
End Property
Public Property My_Err_Rslt() As Boolean
Get
My_Err_Rslt = Err
End Get
Set(ByVal value As Boolean)
Err = value
End Set
End Property
Public Property My_Err_Msg() As String
Get
My_Err_Msg = Err_Msg
End Get
Set(ByVal value As String)
Err_Msg = value
End Set
End Property
Public Property My_Font() As Font
Get
My_Font = _Font
End Get
Set(ByVal value As Font)
Me.My_ComboBox.Font = value
End Set
End Property
Private Sub My_ComboBox_BackColorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles My_ComboBox.BackColorChanged
Back_Color = Me.My_ComboBox.BackColor
End Sub
Private Sub My_ComboBox_FontChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles My_ComboBox.FontChanged
_Font = Me.My_ComboBox.Font
End Sub
Private Sub My_ComboBox_ForeColorChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles My_ComboBox.ForeColorChanged
Fore_Color = Me.My_ComboBox.ForeColor
End Sub
Private Sub All_In_One_ComboBox_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.My_ComboBox.Width = Me.Width - 20
Me.My_ComboBox.Height = Me.Height
End Sub
Private Sub My_ComboBox_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles My_ComboBox.KeyUp
Call Me.Auto_complete(e)
End Sub
Public Sub My_ComboBox_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles My_ComboBox.SelectedIndexChanged
Index = Me.My_ComboBox.SelectedIndex
End Sub
Private Sub My_ComboBox_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles My_ComboBox.Validating
If Me.My_ComboBox.Text = "" Then
Me.Err_Msg_Prv.SetError(Me.My_ComboBox, My_Err_Msg)
Err = True
Else
Me.Err_Msg_Prv.SetError(Me.My_ComboBox, "")
Err = False
End If
End Sub
Public Sub Load_Data_In_My_Combo(ByVal My_Data As DataTable, ByVal Column_Name As String)
Me.My_ComboBox.Items.Clear()
Dim i As Integer = 0
While i < My_Data.Rows.Count
Me.My_ComboBox.Items.Add(My_Data.Rows(i).Item(Column_Name))
i = i + 1
End While
End Sub
Public Sub Add_Item(ByVal My_Item As String)
Me.My_ComboBox.Items.Add(My_Item)
End Sub
Public Sub Clear_All_Items()
Me.My_ComboBox.Items.Clear()
End Sub
Private Sub Auto_complete(ByVal e As System.Windows.Forms.KeyEventArgs)
Dim My_String As String
Dim My_Found_String As String
Dim Match_Found As Boolean
If Not Me.My_ComboBox.Text = "" Then 'if the text is not blank then only proceed
If e.KeyCode = Keys.Back Then
Me.My_ComboBox.Text = Mid(Me.My_ComboBox.Text, 1, Len(Me.My_ComboBox.Text) - 1)
End If
If ((e.KeyCode = Keys.Left) Or _
(e.KeyCode = Keys.Right) Or _
(e.KeyCode = Keys.Up) Or _
(e.KeyCode = Keys.Down) Or _
(e.KeyCode = Keys.PageUp) Or _
(e.KeyCode = Keys.PageDown) Or _
(e.KeyCode = Keys.Home) Or _
(e.KeyCode = Keys.End)) Then
Return
End If
Do
My_String = Me.My_ComboBox.Text
Index = Me.My_ComboBox.FindString(My_String)
If (Index > -1) Then '** FOUND SECTION **
My_Found_String = Me.My_ComboBox.Items(Index).ToString()
' Select this item from the list.
Me.My_ComboBox.SelectedIndex = Index
Me.My_ComboBox.SelectionStart = My_String.Length
Me.My_ComboBox.SelectionLength = My_Found_String.Length
Match_Found = True
Else '** NOT FOUND SECTION **
If My_String.Length = 1 Or My_String.Length = 0 Then
Me.My_ComboBox.SelectedIndex = 0
Me.My_ComboBox.SelectionStart = 0
Me.My_ComboBox.SelectionLength = Len(Me.My_ComboBox.Text)
Match_Found = True
Else
Me.My_ComboBox.SelectionStart = My_String.Length - 1
Me.My_ComboBox.SelectionLength = My_String.Length - 1
Me.My_ComboBox.Text = Mid(Me.My_ComboBox.Text, 1, Len(Me.My_ComboBox.Text) - 1)
End If
End If
Loop Until Match_Found
End If
End Sub
Public Event My_Combo_Selected_IndexChange()
Public Sub My_Combo_Selected_Index_Change()
RaiseEvent My_Combo_Selected_IndexChange()
End Sub
Public Sub test() Handles Me.My_Combo_Selected_IndexChange
Index = Me.My_ComboBox.SelectedIndex
MsgBox(Index)
End Sub
End Class
the help that i needed is here:
Public Event My_Combo_Selected_IndexChange()
Public Sub My_Combo_Selected_Index_Change()
RaiseEvent My_Combo_Selected_IndexChange()
End Sub
Public Sub test() Handles Me.My_Combo_Selected_IndexChange
Index = Me.My_ComboBox.SelectedIndex
MsgBox(Index)
End Sub
waelhawari
|
|
|
|
|
Thanks for the excessively long post
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Waoula wrote: can anyone teach me
sure
go to Google and type 'VB.net index changed user control function' in the search box
Don't take any wooden nickels.
|
|
|
|
|
Out of curiosity I did, first hit, this question 
When I have used a user control I put all the management for the control in the code behind the control (it worked Ok for the rare occasions I have needed a UC)
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Waoula wrote: can anyone teach me please how to create an event in my form to fire a function in my usercontrol when the index is changed?
You could, but you shouldn't, as the code gets harder to follow and maintain. Handle the even in the form where the control is that causes the event, and from that event handler just call a method (or set a property) in your user conrol.
Despite everything, the person most likely to be fooling you next is yourself.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
