|
Thanks. It seems that the usefulness of the construct is lesser that the confusion it induces. I wonder if C# has anything similar.
|
|
|
|
|
Hi,
the C# compiler does not accept int for=1; but it does accept int @for=1; i.e. identifiers
can start with an @ so keywords become acceptable as regular identifiers.
Luc Pattyn [Forum Guidelines] [My Articles]
This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.
|
|
|
|
|
The [] around the variable names allow you to have a variable name the same as a keyword, much the same as in SQL you can have tables and fields with names the same as sql keywords.
This is most useful in Enums:
Private Enum Result
[Error]
Failure
Ok
End Enum
Error is a VB.net keyword, but "Result.Error" isnt.
In this instance, I can only assume Unicode is a type imported, so it has been enclosed in square brackets to make the compiler happy.
|
|
|
|
|
Imiss in this code detect path of servivce
Sub ReadSvcs() 'of his old football
Dim ListSvcs() As ServiceProcess.ServiceController 'games from back in the day,
Dim SingleSvc As ServiceProcess.ServiceController 'when "your mother and I were dating." But the
Dim LVW As ListViewItem 'warm fuzzy of nostalgia,
ListSvcs = ServiceProcess.ServiceController.GetServices 'knowing that yes, you accomplished something, makes the world
'ListSvcs = SingleSvc.GetServices 'knowing that yes, you accomplished something, makes the world
lvwServices.Items.Clear() 'feel a bit easier to deal with, and
Try 'eventual death acceptable, almost as though we
For Each SingleSvc In ListSvcs 'have made
LVW = lvwServices.Items.Add(SingleSvc.DisplayName) 'indelible marks upon the history of whatever.
LVW.SubItems.Add(SingleSvc.ServiceName) 'But a sigh usually caps off the standard c**k-
LVW.SubItems.Add(SingleSvc.Status.ToString) 'stroking session of the BBS-days bullshit, when we had
LVW.SubItems.Add(SingleSvc.ServiceType.ToString) 'only 32 baud modems. Maybe it's that I need to know
'LVW.SubItems.Add(SingleSvc.Site.Name)
Next 'how little I knew, how young I was, to re-
Catch e As Exception 'assure myself of the growth that I have (?) experienced,
MessageBox.Show("Could not initialize Windows Service engine. Restarting your computer may work", "Fatal Error: " & e.Source)
End Try 'magic marker lines with my handle and the date, maybe
End Sub 'a dial-i
Ahmed hassan
|
|
|
|
|
What is this crap ? What's with the weird comments ? Do you have a question ?
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
I see 3 questions now, unfortunately I don't know the answers to them. 
Luc Pattyn [Forum Guidelines] [My Articles]
This month's tips:
- before you ask a question here, search CodeProject, then Google;
- the quality and detail of your question reflects on the effectiveness of the help you are likely to get;
- use PRE tags to preserve formatting when showing multi-line code snippets.
|
|
|
|
|
Yeah I eventually worked out that he had no idea how to edit his posts.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hello
I am making small quiz with vb.net 2003 and all the questions and options are in access database there is one column for question and 4 columns for wrong answers and one for correct answer
this is the code
Try<br />
Do<br />
odaTest.Fill(dsTest)<br />
R = CInt(Int(ArraySize * Rnd()))<br />
<br />
'[Go to the next entry]<br />
Me.BindingContext(dsTest, "MyTest").Position = R<br />
Loop Until Asked(R) = False<br />
PoAns = DataView1.Item(R).Item("CorrectAns")<br />
WAnswer(0) = DataView1.Item(R).Item("Op1")<br />
WAnswer(1) = DataView1.Item(R).Item("Op2")<br />
WAnswer(2) = DataView1.Item(R).Item("Op3")<br />
WAnswer(3) = DataView1.Item(R).Item("Op4")<br />
'randomize 4 options<br />
For X As Integer = 0 To 3<br />
MyTB(CInt(Rnd() * 3)).Text = WAnswer(X)<br />
<br />
Next X<br />
<br />
'now randomize one correct answer<br />
MyTB(CInt(Rnd() * 3)).Text = PoAns<br />
AskedQ += 1<br />
Asked(R) = True<br />
Catch eLoad As System.Exception<br />
MessageBox.Show(eLoad.Message)<br />
End Try
And i am checking correct answer like this
Private Sub CheckAnswer()<br />
If CheckedTB.Text = PoAns Then<br />
MsgBox("Right", MsgBoxStyle.MsgBoxSetForeground)<br />
End If<br />
<br />
End Sub
So now problem is some time it's shows same wrong answer in two different textboxes but it's shows correct answer in different textbox every time so now i am bit confuse that am i going in to right direction any help 
|
|
|
|
|
You need to put your questions in a list and pull from them randomly, removing them as you pull. Right now, you are pulling randomly from the full list every time and so will have duplicates.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hello sir
First of thank you very much for your rep.
But sir problem is not questions it's working fine and it's not repeating at all because i have set one Boolen variable so it's True that question which has been asked but problem is options for any question like i have 4 columns for wrong answer and one for correct answer so i am randomizing it first and then i am randomizing the one correct answer to display in text box so main problem is some time it's displays same options in two different text boxes and i am sure i am very close to it but some time it's hard to see small errors and code bellow is to randomize 4 options and one correct answer
'randomize 4 options
For X As Integer = 0 To 3<br />
MyTB(CInt(Rnd() * 3)).Text = WAnswer(X)<br />
<br />
Next X<br />
<br />
'now randomize one correct answer<br />
MyTB(CInt(Rnd() * 3)).Text = PoAns
and second thing sir the way i am checking correct answer is it the right way to check it or some thing else ?
code is like this
the first line gets the correct answer for asked question and put it in to PoAns variable
PoAns = DataView1.Item(R).Item("CorrectAns")
Private Sub CheckAnswer()<br />
If CheckedTB.Text = PoAns Then<br />
MsgBox("Right", MsgBoxStyle.MsgBoxSetForeground)<br />
End If<br />
<br />
End Sub<br />
Private Sub txtA_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtA.Click, txtB.Click, _<br />
txtC.Click, txtD.Click<br />
CheckedTB = CType(sender, TextBox)<br />
Call CheckAnswer()<br />
<br />
End Sub
waiting for your kind rep.
thanks again for your rep.
have a nice day sir
|
|
|
|
|
OK, you have it in reverse. You're not actually going to select all four textboxes, because you are doing what I already told you is wrong - four random numbers instead of 0,1,2,3 sorted randomly.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
hello sir
yes i got it and i have done it as you said this is my stupid mistake sir
and this is the code and it's works fine all along i was thinking that i am randomizing wrong answers but i wasn't i was randomizing textbox which is not possible but any way this the way i learn
thanks again
Dim X, Y As Integer, Placed(3) As Boolean<br />
For X = 0 To 3<br />
Do<br />
Y = CInt(Int(Rnd() * 4)) ' Randomize 4 wrong answers<br />
Loop Until Placed(Y) = False 'Loop until it's not same number<br />
Placed(Y) = True<br />
MyTB(X).Text = WAnswer(Y) ' Place randomly selected wrong answer in text box <br />
Next<br />
<br />
'now randomize one correct answer<br />
MyTB(CInt(Rnd() * 3)).Text = PoAns
thank you very much sir
have a nice day
 ![Rose | [Rose]](https://codeproject.global.ssl.fastly.net/script/Forums/Images/rose.gif)
|
|
|
|
|
I'm doing this form that has a glossary. I created the alphabitical letters using link labels, and the glossary using labels. How can write the code so that when a click on one of the letters(link labels) i go to the grossponding letter( label )
Regards,
Senior MeMe ..
|
|
|
|
|
Handle the click event and call the focus method on the label you want to focus on.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
i stil can't solve my problem in database i have use sql to store my date
INSERT INTO `LOGIN/OUT` (`Time_login`, `Time_logout`)
VALUES (?, ?, ?, ?)
but i stil can't save anything..the method i use was drag and drop
when writing code i use tableadapter to save ir it it's gave me error
LOGIN_OUTBindingSource.EndEdit()<br />
LOGIN_OUTTableAdapter.InsertQueryEmp(Me.Definition_dbDataSet)
can anyone here help me solve it..actually how to insert time into database.data type i use date/time.
|
|
|
|
|
SQL statements are weird in .NET. You have to request insert commands from the adapter and it becomes a hassle. Here is a working example of what you need to do to create a new row in SQL:
<br />
Dim strTopic As String = InputBox("Enter a topic")<br />
Dim sql As String = "SELECT ID, CourseID, Topic FROM tblTopics WHERE ID = 0"<br />
Dim da As New OleDbDataAdapter(sql, cn)<br />
Dim ds As New DataSet<br />
da.Fill(ds)<br />
Dim cmdbuilder As New OleDbCommandBuilder(da)<br />
da.InsertCommand = cmdbuilder.GetInsertCommand<br />
Dim dr As DataRow = ds.Tables(0).NewRow<br />
dr("CourseID") = Me.lngCourseID(Me.cboCourse.SelectedIndex)<br />
dr("Topic") = strTopic<br />
ds.Tables(0).Rows.Add(dr)<br />
da.Update(ds)<br />
cn.Close()<br />
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios[ ^]
|
|
|
|
|
hai friends
i m a vb.net programmer,
i have no idea of vb 6.0
my previous project is in vb 6.0 and for it i m doing a small module..
i have a doubt regarding it..
i want to write code for combo selected index change ....
i in runtime , iwill add few items to it ... when i select an item then some task has to be performed..
i written like this ...
Private Sub Combo7_Change()
// do some task here
End Sub
but it is not working ...
wt to do
plz help me..
thanks in advance
vijay
devulapally_vijay@yahoo.co.in
|
|
|
|
|
You need a bit more code in there...
Private Sub Combo7_Change(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo7.SelectedIndexChanged
End Sub
That should work
If you are using visual studio, this code should can be put in automatically if you use the properties box.
|
|
|
|
|
that code diplay all current program installed on my computer,
i need to control this programs ,when i select program from listbox1 and click button service stop(and anthor button to start)?anyone help me plseae code
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim key As Microsoft.Win32.RegistryKey
Dim mainkey As Microsoft.Win32.RegistryKey
Dim iLp As Integer
mainkey = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall")
Dim sKeys() As String = mainkey.GetSubKeyNames
For iLp = 0 To sKeys.Length - 1
key = mainkey.OpenSubKey(sKeys(iLp), False)
ListBox1.Items.Add(key.GetValue("DisplayName") & " - " & key.GetValue("Version"))
Next iLp
End Sub
Ahmed hassan
modified on Sunday, April 6, 2008 4:55 PM
|
|
|
|
|
Oh, I get it now. Edit your post to add someting to it, don't post anohter.
Christian Graus
Please read this if you don't understand the answer I've given you
"also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )
|
|
|
|
|
Hi
How do I find a value in a excelsheet ex. "Sum=123" and pass it to a textbox with the row number? I don't know how to come further with this.
On Error Resume Next<br />
TextBox1.Text = xlWorkSheet.Range("A1:A10").Find( _<br />
What:="Sum=123", MatchCase:=False, _<br />
SearchOrder:=xlApp.ByColumns).Offset(0, 1).Value<br />
If Err.Number Then TextBox1.Text = "No Match Found"
modified on Sunday, April 6, 2008 4:43 AM
|
|
|
|
|
I have developed a program with too many date fields. I have used datetimepicker for this with formating dd/MM/yyyy.
This will create problem if any user have system date format in m/d/yyyy
So I want that when my program start it will detect system date format and if format is in m/d/yyyy then it converts into mm/DD/yyyy and at the time of closing my program it converts into it's original format.
If any one have any code in support of this problem, please send me immediatly.
Thanks
Pathak
|
|
|
|
|
hiiiiiiii..,,
why are u trying to change the system date format,
change your datetimepicker format to system format.
use below code
Format(DateTimePicker4.Value, "yyMMdd")
thanks
Bye..
Rajesh B --> A Poor Workman Blames His Tools <--
|
|
|
|
|
If any user have date format in dd/MM/yyyy then I save 08/04/2008, it saved same and displayed in same format.
but if he changed his format in m/d/yyyy and i give 08/04/2008 then when we retrive date it shows lik 04/08/2008.
And if use format here then it creates problem with dd/MM/yyyy format.
|
|
|
|
|
The format is just change the display. The .Value is still a DateTime type.
Unless you use ToString() and not the DateTime value, then you got to look at how you save and retrieve the value.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
