|
Thanks a lot. i successfully write my code.
see you later, take care!
|
|
|
|
|
ok this is starting to drive me insane  . I know its realy simple but for the life of me i cannot figure out how to do it.
This is my code.
<br />
Public Class dpGenerals<br />
Inherits System.Collections.CollectionBase<br />
<br />
Private m_oSections As Sections<br />
<br />
Public ReadOnly Property Section(ByVal Index As Integer) As Section<br />
Get<br />
Return DirectCast(List(Index), Section)<br />
End Get<br />
End Property<br />
<br />
Public Function Add(ByVal key As Integer, ByVal value As String, ByVal sec As String) As Boolean<br />
Try<br />
Dim oSection As New Section<br />
oSection.key = key<br />
oSection.value = value<br />
oSection.sec = sec<br />
List.Add(oSection)<br />
Return True<br />
Catch E As Exception<br />
Return False<br />
End Try<br />
End Function<br />
<br />
Public Function Add(ByVal oSection As Section) As Boolean<br />
Try<br />
List.Add(oSection)<br />
Return True<br />
Catch E As Exception<br />
Return False<br />
End Try<br />
End Function<br />
<br />
End Class<br />
<br />
<br />
<br />
Public Class Sections<br />
Inherits System.Collections.CollectionBase<br />
Private m_oSections As Sections<br />
Private m_key As Integer<br />
<br />
'Default<br />
Public ReadOnly Property Sections(ByVal Index As Integer) As Section<br />
Get<br />
Return DirectCast(List(Index), Section)<br />
End Get<br />
End Property<br />
<br />
Public ReadOnly Property Keys(ByVal Index As Integer) As key<br />
Get<br />
Return DirectCast(List(Index), key)<br />
End Get<br />
End Property<br />
<br />
Public Function Addbla(ByVal key As Integer, ByVal value As String, ByVal sec As String) As Boolean<br />
Try<br />
Dim oSection As New Section<br />
oSection.key = key<br />
oSection.value = value<br />
oSection.sec = sec<br />
List.Add(oSection)<br />
Return True<br />
Catch E As Exception<br />
Return False<br />
End Try<br />
End Function<br />
<br />
End Class<br />
<br />
<br />
Public Class Section<br />
Private m_sec As String<br />
Private m_type As Integer<br />
Private m_key As Integer<br />
Private m_value As String<br />
<br />
Private m_keys As Keys<br />
Private m_sections As Sections<br />
<br />
Public Sub New()<br />
MyBase.New()<br />
m_keys = New keys()<br />
End Sub<br />
<br />
Public Property sec() As String<br />
Get<br />
Return m_sec<br />
End Get<br />
Set(ByVal value As String)<br />
m_sec = value<br />
End Set<br />
End Property<br />
Public Property type() As Integer<br />
Get<br />
Return m_type<br />
End Get<br />
Set(ByVal value As Integer)<br />
m_type = value<br />
End Set<br />
End Property<br />
Public Property key() As Integer<br />
Get<br />
Return m_key<br />
End Get<br />
Set(ByVal value As Integer)<br />
m_key = value<br />
End Set<br />
End Property<br />
Public Property value() As String<br />
Get<br />
Return m_value<br />
End Get<br />
Set(ByVal Value As String)<br />
m_value = Value<br />
End Set<br />
End Property<br />
<br />
Public ReadOnly Property Keys() As keys<br />
Get<br />
Return m_keys<br />
End Get<br />
End Property<br />
Public ReadOnly Property Sections() As Sections<br />
Get<br />
Return m_sections<br />
End Get<br />
End Property<br />
<br />
End Class<br />
<br />
<br />
<br />
<br />
Module Modtest<br />
Public dparmor As New dpGenerals<br />
Public Sub Test()<br />
dparmor.Add(4, "light", "armor")<br />
dparmor.Add(2, "heavy", "armor")<br />
<br />
dparmor.Section.Addbla(1, "SUB!1", "armobSuB")<br />
'dparmor.Add.Addbla(1, "SUB!1", "armobSuB")<br />
<br />
MsgBox(dparmor.Section(0).key)<br />
End Sub<br />
End Module<br />
All i am trying to do is have a few nested collections :/.
Aparmor.add() allows me to add a section
but for the life of me i cant get the addbla() to add a sub section.
I would like many levels deep dparmor.section(0).section(0).section(0).key
i would also like many levels of keys
ie dparmor.section(0).keys(0).key
dparmor.section(0).section(0).key
Please i know its probably so simple but i just cant figure it out, i do know that sections is the collection of a type section and that the addbla is under sections and not section. but i dont know how to go about fixing this. As you can see there are a few more properites but i think if i can just get that part working the rest will fall into place.
Please any help with this is greatly appreciated.
Thanks
|
|
|
|
|
You are adding everyting into the same list, and you don't even create that list anywhere, you just use it out of the blue...
---
b { font-weight: normal; }
|
|
|
|
|
i didnt think i needed to add that code as well
Public dparmor As new dpGenerals
will thats the line there ... then ie
dparmor.section(0).keys(0).key<br />
dparmor.section(0).section(0).key<br />
dparmor.section(0).section(0).section(0).key
but i cant get the add to work as mentioned above, the adding of a section works cus it Class dpGenerals (add). But the property dpGenerals.Section is a collection of the type section, so i cant call the dparmor.section.addbla(). I just dont know how to convert the code to be able to call that fucntion addbla. I dunno if that makes it any clearer ?
-- modified at 5:50 Saturday 11th March, 2006
i just figured it out ... made 2 changes and works now :/
|
|
|
|
|
But you did show that code already, but that's not the collection you are adding the values to. I'm talking about the collection named List that you are using in the code.
---
b { font-weight: normal; }
|
|
|
|
|
recently i posted a question as follows
---------------------------------------
i am using toolbar component .net ver 2 (not toolstrip) in vb.net 2005.
if i give application.enablevisualstyle command to enable xp style interface
then icons on my toolbar will not come. if i disabel xp visual style it will
come? how can i show this toolbar in xp style settings?
pls help me....
This is the answer which i got
------------------------------
This is a bug in the .NET framework. You can work-around it by calling
Application.DoEvents() after EnableVisualStyles.
i tried this, but its not working,
after this also i can't see toolbar icons, i can see
only deviders, can u please explain me to solve this
problem...
with thanks
ajo
|
|
|
|
|
You should enable visual styles in a Main function, before your form gets loaded, then call DoEvents(). I recommend that you create a Main class and add the Main method there as shown below.
Public Class Main
Public Shared Sub Main(ByVal args() As String)
Application.EnableVisualStyles()
Application.DoEvents()
Application.Run(New MyForm)
End Sub
End Class
Next, you need to change your project setting's Startup Object to "Sub Main". You can find this option by right clicking your project in the solution explorer, click on Properties, select CommonProperties\General in the dialog's tree.
|
|
|
|
|
hi all
i m power user of the computers and i want to execute the programs in vb.net but i cann't do so. visual studio.net environament gives message.
Error while running the project:unable to start debugging
Access is denied verify that you r administrator or member of debugger user group on machine you are trying to run and so on tell me what i should do where to set the persmissions of execute the programs.
ddd
|
|
|
|
|
In order to debug an app (or run a debug version from inside Visual Studio), your acconut must either be a member of the local Adminstrators group or the Debugger Users group.
Right-click My Computer, click Manage, then open Local sers and Groups. I think you can figure it out from there.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Is there a way to do this using VB.net? Without going through ASP I would like to directly quarry the db from my form.
|
|
|
|
|
Yes. There is no difference in doing a query from a program.
Use OdbcConnection or OleDbConnection, depending on the type of connection you have.
(By the way, a quarry[^] is a hole in the ground...  )
---
b { font-weight: normal; }
|
|
|
|
|
(By the way, a quarry[^] is a hole in the ground... )
LOL!  Thanx, well I was lost there for a while in the dark. 
|
|
|
|
|
I have written a Function in C#, now i want to compile it and in crytal report i use it. Have any way to do that? If have, how to do it? help me! Thanks a lot!
superdragon
|
|
|
|
|
currently i was using the AX mediaplayer to play the midi file which most of the game dont use mediaplayer to play sound...
anyone know other method to play the midi which in simple way? and it able to loop the midi file also.
|
|
|
|
|
You can use MCI, it s very useful to do simple tasks like this.
I guess u can use the apis sndPlaySound or PlaySound too.
|
|
|
|
|
wat is MIC? sory i'm quick begining with vb.net,
even i search in the book none of it have talk about sound function...
|
|
|
|
|
Hi,
I'm designing a framework for an enterprise application.
I have done this earlier but I used to define model (properties, methods, events…) inside framework itself.
Programmer writes codes based on the model defined in framework, in other words interface that is created inside framework later implemented by the programmer.
Now I would like to isolate model definition from framework and define the model in a separate XML file so that framework will extract model definition from XML file dynamically.
How do I achieve this ?
Advance Thanks !
Regards,
aB.
|
|
|
|
|
well... i think this can be done using codeDOM.
http://www.cswl.com/default.html
Here There is a nice wPaper on "Interface Creation and Deployment at Runtime".
please share your experience on codeDOM.
Thanks,
aB
|
|
|
|
|
Hi, I have a 5.1 soundcard and im trying to play 5 different sounds (5 different wav files) at the same time, one per each speaker.
Ive checked out some tools which came with the soundcard software and ive seen they could play a sound through any speaker, so i should be able to do it too, but im not achieving it.
Ive tried using MCI, low level apis and a dll ive found on the Internet, but everytime i play a mono sound it is heard on the two front and the two back speakers. Im doing this in VB.Net, but clues in other codes are welcomed.
A note, with MCI, sending:
set id output 0, the sound file was played on the 4 speakers,
set id output 1, no sound was heard,
set id output 2, i got an error,
status id output, i got "mapper" (i thought the argument must have been an integer)
Isnt this the command which I should modify to do what I want?
Do you have any idea about what I should do? Any examples?
Thanks
|
|
|
|
|
i have linked the adodc with ms acess using its properties butone of my form is not updating access i have been using this code till now to update my records on access
adodc1.recordset.addnew
adodc1.recordset.update
adodc1.refresh
it shows an error multiple-step operation gemerated error.check each status value.what the hell does this mean
the same code is working for my other form.
|
|
|
|
|
I am trying to separate my data access code from my form code. I have a created a data access class containing a function to accept an EmployeeID and return a dataset containing just information for that employee. When I try to display the employee information on the form I am getting the column name rather than the value contained in the column. What am I doing wrong?
Form Code
Private Sub frmMaint_Load(ByVal sender As Object, _<br />
ByVal e As System.EventArgs) Handles MyBase.Load<br />
<br />
Try<br />
dsSpcInstrFRM = m_DAL.SpecialInstructions(strEmpIdFromChooseFrm)<br />
dtSpcInstrFRM = dsSpcInstrFRM.Tables("SpcInstructions")<br />
lblSpcInstructions.Text = dtSpcInstrFRM.Columns("SpcInstr").ToString<br />
Catch ex As Exception<br />
‘Error Routine<br />
End Try<br />
<br />
End Sub
Data Access Code
Friend Function SpecialInstructions(ByVal m_strEmpID As String) As Dataset<br />
<br />
Dim sqlRiskDR As SqlDataReader<br />
Dim SpecialInstructionsDS As New DataSet<br />
Dim SpcInstrDT As New DataTable<br />
Dim SpcInstrDR As DataRow<br />
<br />
Try<br />
sqlRiskCN = New SqlConnection(My.Settings.SQLRiskCNString)<br />
sqlRiskCN.Open()<br />
<br />
'Use Stored Procedure<br />
strSql = "GetSpecialInstructions " & "'" & m_strEmpID & " '"<br />
<br />
sqlCM = New SqlCommand(strSql, sqlRiskCN)<br />
sqlRiskDR = sqlCM.ExecuteReader()<br />
<br />
SpecialInstructionsDS.DataSetName = "SpecialInstructions"<br />
SpecialInstructionsDS.Tables.Add(SpcInstrDT)<br />
SpcInstrDT.TableName = "SpcInstructions"<br />
<br />
SpcInstrDT.Columns.Add("EmpID").Unique = False<br />
SpcInstrDT.Columns.Add("SpcInstr")<br />
<br />
Do While sqlRiskDR.Read()<br />
SpcInstrDR = SpcInstrDT.NewRow<br />
SpcInstrDR.Item("EmpID") = sqlRiskDR.Item("EmpID").ToString<br />
SpcInstrDR.Item("SpcInstr") = sqlRiskDR.Item("EmergInstructions").ToString.TrimEnd<br />
<br />
SpcInstrDT.Rows.Add(SpcInstrDR)<br />
Loop<br />
<br />
sqlRiskDR.Close()<br />
sqlRiskCN.Close()<br />
<br />
Catch ex As Exception<br />
‘Error Routine<br />
End Try<br />
<br />
Return SpecialInstructionsDS<br />
<br />
End Function
|
|
|
|
|
Because you are reading the value from the column information in the data set, not from the data rows. Use the Rows property.
---
b { font-weight: normal; }
|
|
|
|
|
Using the rows property makes sense, but now it brings up the question of how I actually retrieve the data from the dataset. As you can probably tell I am new at this. What code do I need to add to my form to get this to work?
Thanks!
|
|
|
|
|
lblSpcInstructions.Text =
dtSpcInstrFRM.Items("SpcInstr").ToString
Go here for more info
"People who never make mistakes, never do anything."
My Blog
|
|
|
|
|
Using item still places SpcInstr in the text of the label. I am trying to get the value from the column named "SpcInstr". Any other suggestions?
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
