|
At the point where it says
If e.KeyCode = Keys.Enter And CBSelectName.Text IsNot Nothing Then
I type the If e. bit, then there is no option for Keycode.
I haven't declared the
System.Windows.Forms.KeyEventArgs
I may state that I am new to VB and have never written anything more complicated than a purchase order system for work.
This is to be a small program so that the HR person may select/input a name, and the relevent details can then be accessed/edited.
I have several text/numerical/image files, so that the screen shows a picture of the staff member and the department/salary etc.
How do I declare the System.Windows
(Also, I am using the express edition, does this make a difference?
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
Hi,
your code is fine, but there seems to be something slightly wrong in Visual Studio 2008 VB.NET
I tried a new project, directly entered the code, and Intellisense was not recognizing most of it,
as if it was unaware of the references that get added automatically when creating a WinApp project
(such as System.Windows.Forms).
This is a way that works well:
- create a new WinApp project
- before adding any code, compile and run it
- now start editing either the form or the code at your leisure.
You should notice that Intellisense kicks in when you hit the period at System, then
at System.Windows, etc etc
Intellisense not working properly without an initial compile/run seems like a bug (or at
least a small malfunction) 
modified on Saturday, July 19, 2008 9:18 PM
|
|
|
|
|
Badabing!
Thanks, it seems ok now.
I didn't think i was doing things wrong.
What I need it to do is now happening, I do prefer it when they obey you rather than ignore you!
------------------------------------
"I want you to imagine I have a blaster in my hand" - Zaphod Beeblebrox.
"You DO have a blaster in your hand" - Freighter Pilot
"Yeah, so you don't have to tax your imagination too hard" - Zaphod Beeblebrox
|
|
|
|
|
That code works fine for me.
|
|
|
|
|
by keycode only u wanna to do this
Private Sub CBSelectName_KeyDown(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyEventArgs) Handles CBSelectName.KeyDownIf e.KeyCode = Keys.Enter And CBSelectName.Text <> "" ThenCBSelectName.Items.Add(CBSelectName.Text)CBSelectName.Text = NothingEnd IfEnd Sub
|
|
|
|
|
I have a form that is an MDI parent. I have a ToolStripContainer that has a dock style of fill inside the form. What i want, is for the MDI children of my form to be displayed in the Content Panel of the ToolStripContainer. What is happening now, is when i add a MDI child to my form, it is being displayed in the actual form itself, and not in the ToolStripContainer. Is there any way i can the Content panel of my form the panel where the MDI children are displayed?
if (your.Life == lifestyles.Programming)
{
your.Cool = true;
}
else
{
your.Cool = false;
}
|
|
|
|
|
Hi all,
i have developed many window base applications in vb6,vb.net with ms access and mssql express and all are running successfully. but i am facing problem to handle piracy of my applications.
pl suggest me a affective way to handle the problem like registration a key etc.
Thanks
rmshah
Developer
|
|
|
|
|
What you are Asking is Broad, and i cant help you with vb6, because i cant understand why you still developing vb6.
what you can do, you can create an administration Program for yourself to administer your applications. but now before your users use your aplication for the first, you need to check the Motherboard key and then your users should call or e-mail you to and give you their motherboard or Processer ID and in your administrator aplication you must generate the Activation key based on the key they gave you, then motherboards can never have the same serial number and you are free from Piracy.
hope this helps
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
hi Vuyiswa Maseko,
Thanks a lot for your suggestions.
further i would like to inform you that currently i am delveloping my applications in vb.net (3.0) not in vb6, the applications of vb6 i developed year ago.
your suggestions are very nice and i have developed an small application which retrieve the system informations like motherboard id, cpu id, hdd serial no, model and mac adress.
now pl suggest me, is this possible when someone insert CD (Demo Version of my application) in cd rom and all information mentions above auto matically write on the same cd which carries Demo version of my application or send the same via email auto maticaly.
Thanks agian
rmshah
Developer
|
|
|
|
|
Yes its possible, but it depend what type of info your e-mail to your self and Some info might violate te Privacy of the user. there are laws , as much as you want to Protect your Applcation and the Law is Protecting people from violation of Privacy.But still its possible and only if that person's machine has internet acccess
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
thanks, pl suggest me code or link if possible
rmshah
Developer
|
|
|
|
|
I dont know if is possible...
Admit have a var filled with "www.mysite.com" is possible to looping in history of IE end delete this url site and all related link from history link?
If yes how to with VBA or VB.
Tks.
|
|
|
|
|
Please rephrase what you are trying to do....
"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
|
|
|
|
|
Hi,
on WinXP IE6 (and probably IE7 too) keeps its history on disk, at
C:\Documents and Settings\username\Local Settings\History
on Vista IE7 seems to use C:\Users\username\AppData\Local\Microsoft\Windows\History
|
|
|
|
|
hi
im trying to find a way to upload some sql data from a sever runing back up exec this useing a mssql sever and database that a can access but how will i get the information from that database up to my hosted data base
|
|
|
|
|
jacko873 wrote: how will i get the information from that database up to my hosted data base
What have you done so far?
"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
|
|
|
|
|
Run-on sentences are bad. Write clearly if you expect an answer.
|
|
|
|
|
Wow , Man in order for us to help you, you should first make sure that the other person will understand what you wrote. i realy dont understand that, please try again
Vuyiswa Maseko,
Sorrow is Better than Laughter, it may Sadden your Face, but It sharpens your Understanding
VB.NET/SQL7/2000/2005
http://vuyiswamb.007ihost.com
http://Ecadre.007ihost.com
vuyiswam@tshwane.gov.za
|
|
|
|
|
I need help with a Point of Sale software for a pharmacy shop. I am currently using VB.NET and Oracle XE as my database. Ideas needed please.
Kofi
modified on Friday, July 18, 2008 1:47 PM
|
|
|
|
|
According to your profile am a beginner in programming, I suggest taking on a simpler project rather than trying to write a POS program for a pharmacy that you are using VB.NET/Oracle and have no idea where to start.
"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, i have started the project already. I only said I am a beginner in programming because I am still in school and will graduate next week. I have designed my forms, I have a Gridview of stock where products are selected and added to a Listview as sales cart. Upon doing so, the subtotal Label should be updated with the product of the Cost and Quantity and Grand Total Labels should also be updated with the a final calculation plus tax. I have a problem here. I have only been able to add/remove item from the Sales Cart(ListView)
Kofi
|
|
|
|
|
kofigyimah wrote: will graduate next week
Congrats.
"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
|
|
|
|
|
thanks.....now how can u help out bro.
Kofi
|
|
|
|
|
What is the code you are using to update? Can't really help much without knowing more about the schema or architecture you have in place.
"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
|
|
|
|
|
Imports System.Data
Imports System.Data.OracleClient
Public Class POSfrm
Dim lst As ListViewItem
Dim getRow As Integer 'prodDataGridView.CurrentRow.Index
Dim subT As Double
Dim grandT As Double
Dim cnt As Integer = 1
Dim lastitem As Boolean = False
Private Sub Exitbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim strAns As String
strAns = CStr(MsgBox("Are you sure you want to exit this program?", MsgBoxStyle.YesNo + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2, "Please Confirm"))
If strAns = CStr(MsgBoxResult.Yes) Then
login.Show()
Me.Close()
End If
End Sub
Private Sub POSfrm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
My.Settings.myForm = Me.Name
End Sub
Private Sub POSfrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rpmscmd As New OracleCommand
Dim rpmsds As New DataSet
Dim rpmsda As New OracleDataAdapter
rpmscmd.Connection = rpmscon
rpmscmd.CommandType = CommandType.Text
rpmscmd.CommandText = "select * from products"
rpmsda = New OracleDataAdapter(rpmscmd)
rpmsda.Fill(rpmsds, "products")
prodDataGridView.AutoGenerateColumns = False
prodDataGridView.DataSource = rpmsds
prodDataGridView.DataMember = "products"
End Sub
Private Sub prodDataGridView_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles prodDataGridView.CellContentClick
End Sub
Private Sub prodDataGridView_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles prodDataGridView.SelectionChanged
getRow = prodDataGridView.CurrentRow.Index
'Dim getindex As Integer = prodDataGridView.CurrentRow.Index
selItemlbl.Text = prodDataGridView.Rows(getRow).Cells.Item(0).Value
End Sub
Private Sub AddItemButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddItemButton.Click
'Dim getRow As Integer = prodDataGridView.CurrentRow.Index
Dim edate As Date = CDate(prodDataGridView.Rows(getRow).Cells.Item(4).Value)
subT = CDbl(prodDataGridView.Rows(getRow).Cells.Item(2).Value)
'Checks the timespan between the expiry date and NOW before it adds the one line of product to-be-sold to list and sales summary
If DetermineNumberofDays(prodDataGridView.Rows(getRow).Cells.Item(4).Value) > 0 Then
'numbers sales list
lst = salesListView.Items.Add(cnt)
'adds product to product column in sales list
lst.SubItems.Add(selItemlbl.Text)
'adds quantity to qty colum in sales list
lst.SubItems.Add(selQtytxb.Text)
'adds the product of selling_price and qty to the cost column in the sales list
lst.SubItems.Add((prodDataGridView.Rows(getRow).Cells.Item(2).Value) * (selQtytxb.Text))
'increases the subTotalLabel by the cost
subTotallbl.Text = CDbl(subTotallbl.Text) + subT
gTotallbl.Text = CDbl(gTotallbl.Text) + subT
If DetermineNumberofDays(prodDataGridView.Rows(getRow).Cells.Item(4).Value) < 30 Then
MsgBox(prodDataGridView.Rows(getRow).Cells.Item(0).Value & " expires on " & edate.ToShortDateString())
End If
cnt = cnt + 1
ElseIf DetermineNumberofDays(prodDataGridView.Rows(getRow).Cells.Item(4).Value) < 0 Then
MsgBox("BEWARE! " & prodDataGridView.Rows(getRow).Cells.Item(0).Value & " expired on " & edate.ToShortDateString() & ". You are not allow to sell it.")
End If
selQtytxb.Text = "1"
End Sub
Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
login.Show()
Me.Close()
End Sub
Private Sub RemoveItemBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveItemBtn.Click
'If lst.ListView.SelectedItems(0).Index = lst.ListView.Items.Count - 1 Then
' MsgBox("its equal")
' lastitem = True
'End If
For Each lst As ListViewItem In salesListView.SelectedItems
lst.Remove()
cnt = cnt - 1
'subTotallbl.Text = CDbl(subTotallbl.Text) - salesListView.SelectedItems.ToString
Next
Try
'If lastitem = False Then
Dim i As Integer
If cnt > 1 Then
Dim numlist As New ListView
numlist = salesListView
For i = 0 To numlist.Items.Count - 1
numlist.Items(i).Text = i + 1
Next
End If
Catch ex As SystemException
MsgBox(ex.Message)
End Try
'Else
''to reset after last item is deleted
'lastitem = False
'End If
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
End Sub
Private Sub unPOS_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)
End Sub
Private Sub unPOS_LinkClicked_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles unPOS.LinkClicked
userDetails.Show()
Me.Close()
End Sub
End Class
Kofi
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
