The user's first and last name will be stored in the active directory.
You can retrieve this by capturing the username that is logged into the application.
'Declare a public variable for the full name.'
Public FullName As String
'Call the function and assign the return to the FullName variable.'
FullName = GetRealNameFromAD(Environment.UserName)
'This is the function to drop in.'
Private Function GetRealNameFromAD(ByVal UsernameToFind As String) As String
'Searches the active directory to get the users real name.'
'Uses the user who is logged on at that time.'
Dim full as String
Try
Using searcher As New DirectorySearcher(New DirectoryEntry())
searcher.PageSize = 1000
searcher.SearchScope = SearchScope.Subtree
searcher.Filter = "(&(samAccountType=805306368)(sAMAccountName=" & UsernameToFind & "))"
Using Results As SearchResultCollection = searcher.FindAll
If Results Is Nothing OrElse Results.Count <> 1 Then
Throw New ApplicationException("Invalid number of results returned - either no users were found or more than one user account was found")
End If
Using UserDE As DirectoryEntry = Results(0).GetDirectoryEntry
full = CStr(UserDE.Properties("givenName").Value) & " " & CStr(UserDE.Properties("sn").Value)
return full
End Using
End Using
End Using
Catch ex As Exception
MsgBox("Exception from: " & ex.Source & vbCrLf & ex.Message & vbCrLf & "Unable to lacate the user in active directory.", MsgBoxStyle.OkOnly)
End Try
End Function
You could try a different method and define a structure.....
Dim stud(24) As Students
Dim tmpStud As Students
Structure Students
Dim StudentName As String
Dim CumulativeScores As Double
End Structure
For i = 0 To stud.Count - 2
If stud(i).CumulativeScores > stud(i + 1).CumulativeScores Then
tmpStud = stud(i + 1)
stud(i + 1) = stud(i)
stud(i) = tmpStud
End If
Next
Hello my fellow Daniwebbers, I have yet another question for you.
I have been using a library to scan, located here, and have not been getting a consistant return.
When I use the TWAIN Source, the GUI pops up and disappears almost instantly. When I tell the source manager to not show the GUI, it scans fine, but with duplexing enabled.
When I scan with the WIA source, everything is fine.....BUT! I can't save my scan settings.
Has anyone used twain or WIA in .Net and knows how to pass in the parameters for the scanning process?
I have dug through WIA and TWAIN documentation, and neither of them are very helpful on the situation.
What poojavb is saying is that you do not need those single and double quotes. Single quotes in SQL are used to represet a string DATA value. The double quotes you are using to creating a string in VB.NET
Example:
Dim strn As String = "This is the correct way to declare a string."
Dim strn2 As String = "SELECT * FROM table WHERE columm='" & myString & "'"
A long overdue response to the question/answer..... I have found an application written by NETMaster on codeproject, and tailored it, but still can't expose the true way to scan without the UI and pass in the parameters needed to perform the scan.
You aren't referencing a textbox you renamed or forgot to name are you? If not, have you possibly deleted the textbox by accident?
Are both of them on a different form?
Have you forgotten to add them to the form?
If you have you can do it through the designer or manually like:
Public lblComputerSum As Label
lblComputerSum.Name = "lblComputerSum"
Public lblPlayerSum As Label
lblPlayerSum.Name = "lblPlayerSum"
'Then add to form.'
MyForm.Controls.Add(lblComputerSum)
MyForm.Controls.Add(lblPlayerSum)
You can also use the Active Directory if you are wanting a full name. That would be the most accurate way if you were writing a multiple user application. Each user's name would be in teh active directory.
I have tried, but the interpreter skips the code. :( I have found an article that said the .NET events are supposedly fired in the following order
MouseDown Click MouseUp
Which completely destroys my code setup. I need to be able to click to referece the control, and mousedown/up to drag the control to where I need it to be.
Dim sqls As String = "UPDATE table SET column= column - 1 WHERE unique=value"
Dim con As New SqlConnection(connection string here)
Dim cmd As New SqlCommand(sqls, con)
cmd.ExecuteNonQuery()
Substitute the name for the textbox that you want the new textbox to be placed under.
And the code is wrong, I just noticed.
Correct would be:
textbox1.Location.Y = myOtherTextBox.Location.Y + 40 'You will have to play with this value to adjust it to where you want it.
textbox1.Location.X = myOtherTextBox.Location.X
Declare a boolean variable at the top of the class.
public Paused as Boolean = false
'When you fire your click event do this;
If Paused = false Then
'Pause code here
Paused = true
ElseIf Paused = True Then
'Unpause code here.
Paused = False
End If
What you will need to do is to sit down with your partners and develop a database for the backend.
If you are wanting multiple users at a time, look into MySQL (free) or SQLServer (Free from MSDNAA) If you are looking for a single user at a time, use Access.
You will need to decide on your project type first, banking systems are the normal test system.
Then you will need to design your tables and entities.
Once you have the database designed and tables layed out, start designing your GUI.
When/If you need help with the GUI or Database, I would be glad to help.
