|
 im trying to drag staff member names from lstAvailableStaff to lstCurrentJobStaff. For some or other reason it keeps on dragging the same name everytime.A speedy reply would be most appreciated.
Here is the code:
Public Class frmAssignStaff
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
End Sub
'Form overrides dispose to clean up the component list.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
Friend WithEvents lstAvailableStaff As System.Windows.Forms.ListBox
Friend WithEvents grpAvailableStaff As System.Windows.Forms.GroupBox
Friend WithEvents grpCurrentJobStaff As System.Windows.Forms.GroupBox
Friend WithEvents lstCurrentJobStaff As System.Windows.Forms.ListBox
Friend WithEvents btnSave As System.Windows.Forms.Button
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnAdd As System.Windows.Forms.Button
Friend WithEvents btnRemove As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<system.diagnostics.debuggerstepthrough()> Private Sub InitializeComponent()
Me.lstAvailableStaff = New System.Windows.Forms.ListBox
Me.grpAvailableStaff = New System.Windows.Forms.GroupBox
Me.grpCurrentJobStaff = New System.Windows.Forms.GroupBox
Me.lstCurrentJobStaff = New System.Windows.Forms.ListBox
Me.btnSave = New System.Windows.Forms.Button
Me.btnCancel = New System.Windows.Forms.Button
Me.btnAdd = New System.Windows.Forms.Button
Me.btnRemove = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.Button1 = New System.Windows.Forms.Button
Me.grpAvailableStaff.SuspendLayout()
Me.grpCurrentJobStaff.SuspendLayout()
Me.SuspendLayout()
'
'lstAvailableStaff
'
Me.lstAvailableStaff.Items.AddRange(New Object() {"Falicia", "Ferzhana", "Asheeqah", "Kathryn", "!!JonnoMan!!"})
Me.lstAvailableStaff.Location = New System.Drawing.Point(16, 24)
Me.lstAvailableStaff.Name = "lstAvailableStaff"
Me.lstAvailableStaff.Size = New System.Drawing.Size(264, 368)
Me.lstAvailableStaff.TabIndex = 0
'
'grpAvailableStaff
'
Me.grpAvailableStaff.Controls.Add(Me.lstAvailableStaff)
Me.grpAvailableStaff.Location = New System.Drawing.Point(8, 8)
Me.grpAvailableStaff.Name = "grpAvailableStaff"
Me.grpAvailableStaff.Size = New System.Drawing.Size(296, 400)
Me.grpAvailableStaff.TabIndex = 1
Me.grpAvailableStaff.TabStop = False
Me.grpAvailableStaff.Text = "Available Staff"
'
'grpCurrentJobStaff
'
Me.grpCurrentJobStaff.Controls.Add(Me.lstCurrentJobStaff)
Me.grpCurrentJobStaff.Location = New System.Drawing.Point(384, 8)
Me.grpCurrentJobStaff.Name = "grpCurrentJobStaff"
Me.grpCurrentJobStaff.Size = New System.Drawing.Size(288, 400)
Me.grpCurrentJobStaff.TabIndex = 2
Me.grpCurrentJobStaff.TabStop = False
Me.grpCurrentJobStaff.Text = "Current Job Staff"
'
'lstCurrentJobStaff
'
Me.lstCurrentJobStaff.AllowDrop = True
Me.lstCurrentJobStaff.Location = New System.Drawing.Point(16, 24)
Me.lstCurrentJobStaff.Name = "lstCurrentJobStaff"
Me.lstCurrentJobStaff.Size = New System.Drawing.Size(264, 368)
Me.lstCurrentJobStaff.TabIndex = 0
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(229, 424)
Me.btnSave.Name = "btnSave"
Me.btnSave.TabIndex = 3
Me.btnSave.Text = "&Save"
'
'btnCancel
'
Me.btnCancel.Location = New System.Drawing.Point(384, 424)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.TabIndex = 4
Me.btnCancel.Text = "&Cancel"
'
'btnAdd
'
Me.btnAdd.Location = New System.Drawing.Point(312, 176)
Me.btnAdd.Name = "btnAdd"
Me.btnAdd.Size = New System.Drawing.Size(64, 23)
Me.btnAdd.TabIndex = 5
Me.btnAdd.Text = ">>"
'
'btnRemove
'
Me.btnRemove.Location = New System.Drawing.Point(312, 216)
Me.btnRemove.Name = "btnRemove"
Me.btnRemove.Size = New System.Drawing.Size(64, 23)
Me.btnRemove.TabIndex = 6
Me.btnRemove.Text = "<<"
Me.btnRemove.Visible = False
'
'TextBox1
'
Me.TextBox1.AllowDrop = True
Me.TextBox1.Location = New System.Drawing.Point(104, 424)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.TabIndex = 7
Me.TextBox1.Text = "TextBox1"
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(16, 424)
Me.Button1.Name = "Button1"
Me.Button1.TabIndex = 8
Me.Button1.Text = "Button1"
'
'frmAssignStaff
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(688, 470)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.btnRemove)
Me.Controls.Add(Me.btnAdd)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.grpCurrentJobStaff)
Me.Controls.Add(Me.grpAvailableStaff)
Me.Name = "frmAssignStaff"
Me.Text = "frmAssignStaff"
Me.grpAvailableStaff.ResumeLayout(False)
Me.grpCurrentJobStaff.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
#End Region
Dim selectedStaffMember As String
Private Sub lstAvailableStaff_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstAvailableStaff.MouseDown
selectedStaffMember = lstAvailableStaff.SelectedItem
lstAvailableStaff.DoDragDrop(selectedStaffMember, DragDropEffects.Copy Or DragDropEffects.Move)
End Sub
Private Sub lstCurrentJobStaff_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstCurrentJobStaff.DragDrop
Dim test As String
'''***Cant get e.data.....to change value!!!
test = e.Data.GetData(DataFormats.Text).ToString
lstCurrentJobStaff.Items.Add(test)
End Sub
Private Sub frmAssignStaff_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
lstCurrentJobStaff.AllowDrop = True
End Sub
Private Sub lstCurrentJobStaff_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles lstCurrentJobStaff.DragEnter
If (e.Data.GetDataPresent(DataFormats.Text)) Then
e.Effect = DragDropEffects.Copy
Else
e.Effect = DragDropEffects.None
End If
btnRemove.Visible = True
End Sub
End Class
Plz help a poor student
|
|
|
|
|
how can i interface my scanner with vb.net
saud
|
|
|
|
|
Your best bet is to see if the manufacturer of the scanner has an SDK available. WIth an SDK, you'll probably be able to use all the features of the scanner. Otherwise, you'll be using the Windows Image Acquisition API (First available in Windows XP.) But, you'll just get the basic scanning abilities. You won't get to use any specific features of your scanner.
The documentation on the WIA Automation Layer begins here[^] on MSDN.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hello all,
I have a little .NET vs. VS 6 user control curiosity! *^_^* any takers?
If I have a project that contains a user control that I made in VS6 and then want to convert it to VS.NET, can I still call the component / dll from within a test application that was created mainly in VB6? Does anyone have exerience with the conversion of user controls - because when the project with the user control is converted to .Net, the user control code is totally gone in the .Net version of the project!
Well a little insight would help me a long way!
Thanks guys,
Maria
Maria
|
|
|
|
|
Well, your best bet is to rewrite the project in VB.NET. You CAN use a VB.NET User Control in VB6. But since the Forms and Controls work VERY much differently between the two versions, you'll spend more time getting the new controls to work in the old VB6 than if you just rewrote both projects in VB.NET.
The Visual Basic 6 Upgrade Wizard in Visual Studio .NET 2003 will upgrade VB6 User Control projects, as well as Standard .EXE projects, but, as with all automated upgrades, you'll have to tweak, and possibly even re-write the code that the Wizard generates.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Is there a max number of files a folder can have in Windows 2000? How many?
Is there a max size a folder can have in Windows 2000? How many?
What about other Windows versions?
![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif) 1fm1fu
|
|
|
|
|
These values are not really dependant on Windows, rather they are limitations of the file system the drive was formatted with.
steff kamush wrote:
Is there a max number of files a folder can have in Windows 2000? How many?
If the drive is formatted NTFS, there is no limit. Under FAT12, FAT16 and FAT32, I think the limit for the root directory ONLY is 512 files.
steff kamush wrote:
Is there a max size a folder can have in Windows 2000? How many?
Under any file system, no there is no limit to the total size of the files in a folder.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I have tried out Microsofts code for Creating Control Arrays in Visual Basic .NET
The ButtonArray project works just as they say.....amazing !
The ClickHandler generates a messagebox with the button you have just pushed tag info displayed.
It is located in the code of the Class ButtonArray.vb
I want to use this information back in Form1 to run other subroutines etc.
How do I jump back into the Form1 with the button info from within the buttonarray.vb ClickHandler to carry on with the rest of my program ???
Here is the link to the Microsoft article and code
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dv_vstechart/html/vbtchCreatingControlArraysInVisualBasicNETVisualCNET.asp
I am only a beginner......
Tim Eaden
Automation Engineer
PPCS
New Zealand
|
|
|
|
|
Your event handler is already running on Form1.
All you have to do is call the other functions with the Tag data, but, of course, your functions must be written to expect the Tag data.
Private Sub mySubroutine(ByVal TagData As String)
' Code for your subroutine goes here.
' TagData is the data that was passed from the Click Event handler.
End Sub
Private Sub ClickHandler(ByVal sender As Object, ByVal e As System.EventArgs)
Dim tagData As String = CType(CType(sender, System.Windows.Forms.Button).Tag, String))
MsgBox("Whatever message box you had here displaying the Tag data...")
' Now call your other functions...
mySubroutine(tagData)
End Sub
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave
The ClickHandler is in the buttonArray.vb code. When I try to call mySubroutine from the Clickhandler I get "Name 'mySubroutine' is not declared"
I know I am missing something really basic here, I cant seem to call any subs in the Form1.vb code from the ButtonArray.vb code...........what am I doing wrong ?
I can call the subs in ButtonArray.vb by using MyControlArray.Sub()
Why cant I call back the other way ?
Thanks in advance
Tim
Tim Eaden
Automation Engineer
PPCS
New Zealand
|
|
|
|
|
TimKiwi wrote:
When I try to call mySubroutine from the Clickhandler I get "Name 'mySubroutine' is not declared"
Uhhh....You have to replace the mySubroutine with whatever routine you want to run! In the code I posted, "mySubroutine" wasn't defined anywhere, so of course that error came up. You can't just copy and paste my code into yours and expect it to work. It was only an example to demonstrate a concept. You have to put YOUR code in the place of "mySubroutine".
TimKiwi wrote:
I know I am missing something really basic here, I cant seem to call any subs in the Form1.vb code from the ButtonArray.vb code...........what am I doing wrong ?
I can call the subs in ButtonArray.vb by using MyControlArray.Sub()
Why cant I call back the other way ?
This is because the ButtonArray clas know nothing of the Form1 class your trying to call back into. In a proper desgin, the ButtonArray class shouldn't have to call back into Form1 and makes changes to it. Form1 should make all the changes to Form1. The reason why it works one way and not the other is because your Form1 code instantiated a ButtonArray object and not the other way around. If you have ButtonArray instantiate Form1, you'll end up with TWO Form1's and the calls ButtonArray makes will not go to the original Form1.
From the questions you've posted, it looks like your just starting in VB.NET. I would HIGHLY recommend picking up a book on Beginning Visual Basic .NET and start from there. There are alot of concepts that you need to pick up to understand whats going on and the Forums are no the place to do that...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi,
i use the belowe code:
Dim emailMessage As MailMessage
emailMessage = New MailMessage
emailMessage.From = "m_nahid2001@yahoo.com"
emailMessage.To = "sondos_bahadori@yahoo.com"
emailMessage.Subject = "mail"
emailMessage.Body = "sallam"
SmtpMail.SmtpServer = "smtpmailserver.myISP.com"
SmtpMail.Send(emailMessage)
but it cause this error:
Could not access 'CDO.Message' object.
|
|
|
|
|
Make sure you machine has either Outlook (Microsoft Office) installed or has Internet Information Server installed.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
hi!
my program dosen't know the system.web.mail
please help me .
thanks alot.
|
|
|
|
|
hi!
my program dosen't know the system.web.mail
please help me .
thanls alot.
|
|
|
|
|
Have you added System.Web to your references list? If not, follow these instructions:
1. For the Visual Basic project you are working on, right-click on the "References" folder and click "Add Reference...".
2. Scroll down the list of components on the ".NET" tab and double-click the "System.Web.dll" component, choosing to add it to your references.
3. Click OK.
4. Also add Imports System.Web.Mail to the top of the vb source file.
Now compile your project. It should work then. Best of luck on your future programming efforts! 
Happy Programming and God Bless!
Internet::WWW::CodeProject::bneacetp
|
|
|
|
|
I am the owner of a website that sells software that runs games on pogo.com automatically. The website is called WWW.BADGEHELP.COM
I have 25 titles available so far. The software reads the screen and then determines what to do in the game next (i.e. a slot machine is on the screen, if the bet max button is available, click it, if not, do nothing)
I need the following "helpers" to be made for pogo.com games:
1. Perfect Pair Solitaire
2. Dominoes
3. Jungle Gin
4. Texas Hold'em Poker
They .exe's need to run with IE and AOL browsers. The .exe also needs to be shareware, run for about 8 hours and then prompt the user to register at WWW.BADGEHELP.COM and generate a unique code for the user. I will also need a keygen that will "unlock" the shareware.
|
|
|
|
|
Try here[^]
"You can have everything in life you want if you will just help enough other people get what they want." --Zig Ziglar
The Second EuroCPian Event will be in Brussels on the 4th of September
Can't manage to P/Invoke that Win32 API in .NET? Why not do interop the wiki way!
My Blog
|
|
|
|
|
I’m trying to transfer a value from one form to a global variable on another form.
Here is what I have:
Form1
TxtBox1
Form2
Dim dataFromForm1 as a string
How can I set dataFromForm1 = form1.txtBox1.text in form2?
I know that if I was going to transfer the value to a control it would look like this:
Form2.txtBox2.text = txtbox1.text
But how do I assign a value to a global variable on the form to be opened? The global variable dataFromForm1 will need to be available for Form2_Load.
Thanks
Brad
|
|
|
|
|
First, there are no such things as "global" variables in the .NET Framework.
Second, you almost had it. In your Form 2 class code:
Public Class Form2
Public dataFromForm1 As String
.
.
.
End Class
A better implementation would be to expose this as Property on Form2 so you have the option of doing some validation on the data before actually setting the value:
Public Class Form2
Private m_dataFromForm1 As String
.
.
.
Public Property dataFromForm1() As String
Get
Return m_dataFromForm1
End Get
Set(ByVal Value As String)
' Do some kind of validation of the data.
' If the validation tests pass,
m_dataFromForm1 = Value
End Set
End Property
End Class
An excellent article on your very subject is on MSDN here[^].
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
Anyone has seen sample program before?
|
|
|
|
|
I would like to be able to browse a directory structure, open a folder, send the path to a text box and then close the dialogue box.
Does anybody know if this can be done?
Thanks
Brad
|
|
|
|
|
|
Ok, so im writing a routine to save a coordinate set to a file, and its not working, and i dont get any error messages, so i dont know why. Could anyone please tell me what im doing wrong?
-
Sub InstPT(ByVal r As Double, ByVal theta As Double)
Dim XDomain As String, YDomain As String
Dim x As Double
Dim y As Double
x = r * System.Math.Cos(theta)
y = r * System.Math.Sin(theta)
txtXCart.Text = x
txtYCart.Text = y
Dim Filename As String
Filename = "workfile.pnt"
'Dim FS As FileStream
'Try
'FS = New FileStream(Filename, FileMode.Append, FileAccess.Write)
'Catch ex As Exception
'End Try
If x >= 0 Then
XDomain = "+"
Else
XDomain = "-"
End If
If y >= 0 Then
YDomain = "+"
Else
YDomain = "-"
End If
If File.Exists(Filename) = False Then
Dim SR As StreamWriter = File.CreateText(Filename)
SR.Write("X" & XDomain & x.ToString & "Y" & YDomain & y.ToString)
SR.Close()
Else
Console.WriteLine("File exists, appending")
Dim SR As StreamWriter = File.AppendText(Filename)
SR.WriteLine("X" & XDomain & x.ToString & "Y" & YDomain & y.ToString)
SR.Close()
End If
'FS.Close()
If x > PlottingBounds.Right Or x < PlottingBounds.Left Or y > PlottingBounds.Top Or y < PlottingBounds.Bottom Then
OpenAndPlot(Filename)
Else
pton(x, y, Color.Black, PlottingBounds, 0, 0)
End If
End Sub
-
all variables are declared, and all functions exist. Thanks!
Marc Micalizzi
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
