|
I am using CodeDom to write some code.
e.g. To create a class:-
<br />
Dim _generator As System.CodeDom.Compiler.ICodeGenerator<br />
Dim _writer As System.IO.TextWriter<br />
Dim _codeGenOptions As System.CodeDom.Compiler.CodeGeneratorOptions<br />
<br />
'Set the desired language to vb<br />
Dim foo As New Microsoft.VisualBasic.VBCodeProvider<br />
_generator = foo.CreateGenerator("C:\duncan.vb")<br />
<br />
<br />
'Set the code generation options to be used when creating this class<br />
_codeGenOptions = New System.CodeDom.Compiler.CodeGeneratorOptions<br />
_codeGenOptions.BlankLinesBetweenMembers = True<br />
_codeGenOptions.VerbatimOrder = False<br />
<br />
If Not _generator Is Nothing Then<br />
_writer = New System.IO.StreamWriter(fi.FullName)<br />
<br />
Dim _myDocumentClass As New CodeTypeDeclaration("DuncansClass")<br />
_myDocumentClass.Attributes = MemberAttributes.Public<br />
_myDocumentClass.Comments.Add(New CodeCommentStatement(" Created " & System.DateTime.Now.ToString))<br />
<br />
Dim _txtmember As New CodeMemberField<br />
_txtmember.Type = New CodeTypeReference("System.String")<br />
_txtmember.Attributes = MemberAttributes.Private<br />
_txtmember.Name = _generator.CreateValidIdentifier("_Duncan_Text")<br />
_txtmember.Comments.Add(New CodeCommentStatement("Text to use here "))<br />
_myDocumentClass.Members.Add(_txtmember)<br />
<br />
End If<br />
<br />
_generator.GenerateCodeFromType(_myDocumentClass, _writer, _codeGenOptions)<br />
which creates the code:
<br />
'Created 2007-04-21<br />
Public Class DuncansClass<br />
<br />
'Text to use here<br />
Private _Duncan_text As String<br />
<br />
End Class<br />
Any Ideas as to how I could put the private member declaration in a region using codeDom?
e.g.
<br />
'Created 2007-04-21<br />
Public Class DuncansClass<br />
<br />
#Region "Private members"<br />
'Text to use here<br />
Private _Duncan_text As String<br />
#End Region<br />
<br />
End Class<br />
|
|
|
|
|
Could you be looking for the CodeRegionDirective[^] class? Be careful, not all languages support Regions!
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
Excellent - that did the trick, thanks...
|
|
|
|
|
Any time!
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
Hi all,
I have a case where i bounded data to a list box in a windows application and i want to place a button in that form so that i can move the items up or down. Moreover i want to maintain that order when i leave the form and enter it again.
Thanks
|
|
|
|
|
Guys i managed to move the listbox items up and down but i need to maintain that new state. How can i?
|
|
|
|
|
What will the coding for eject and load CD\DVD ROM???
|
|
|
|
|
You will probably not find someone who will just give you the code. Try searching or writing your own, then when you have a specific question/problem repost the question with the specific problem.
__________________
Bob is my homeboy.
|
|
|
|
|
Google results for "vb.net eject cd[^]".
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
|
i downloaded some examples, all were in C sharp and working good but when i convert the codes to vb.net, then its giving two errors
Error 1 'Shared' is not valid on a Declare.<br />
Error 2 'System.Runtime.InteropServices.DllImportAttribute' cannot be applied to a Declare.
errors are in following code
<DllImport("winmm.dll", EntryPoint:="mciSendStringA")> _<br />
Public Shared Declare Sub mciSendStringA Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)
someone know why this is happening???
|
|
|
|
|
You don't need the Shared modifier, get rid of it. You also don't need the DLLImport attribute. It's specific to C# code. And those Long's should be Integer's. This tell's me that you converted VB6 AND C# code to VB.NET. The Declare should look like this:
Private Declare Function mciSendStringA Lib "winmm.dll" ( _
ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _
ByVal uBufferLength As Integer, ByVal hwndCallback As IntPtr) As Integer
Dave Kreskowiak
Microsoft MVP
Visual Developer - Visual Basic 2006, 2007
|
|
|
|
|
thank you Dave Kreskowiak
its working now
|
|
|
|
|
can anybody tell me how can i use agents in vb.net program.
|
|
|
|
|
1. You need to have a better title than 'Hi'
2. The programming forums are for specific questions such as this is my code, and it errors out. If you want general information, use Google.
__________________
Bob is my homeboy.
|
|
|
|
|
Hi.
In which file are the applications settings being stored by Visual Studio 05?
|
|
|
|
|
It depends. If it is connection information it should be in the app.config file. Other application settings often end up in the settings file that is auto created. Normally if I am adding my own configuration I try to add them to the appSettings section of the app.config.
Hope that helps.
Ben
|
|
|
|
|
Hi,
Is there any OCR API's to use with my application to read the content from the scanned document.
Thanks,
Rams.
Be simple and Be sample.
|
|
|
|
|
Yes, there are quite a few. All of them are commercial, AFAIK ( they cost money )
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
Hi,
Could you give me some useful url's. So that we can try with demo and go for purchase if satisfied.
Rams.
Be simple and Be sample.
|
|
|
|
|
i'm trying to update a checkbox state from vb to an ms access database.
can anyone fix my code for me pleae?
it says "no value given for one or more parameters(what does this mean?).
Imports System.Data.OleDb
Public Class Block
Public conn As OleDbConnection
Public comm As OleDbCommand
Public dr As OleDbDataReader
Public da As OleDbDataAdapter
Dim icount As Integer
Private Sub Btnblock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBlock.Click
'when the logon button is pressed
Dim ManagerLogin As String
'declares the variable
Try
conn = New OleDbConnection 'establishes that conn is a new connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\PCBank.mdb" 'the name of the connection (name of the database on the end)
conn.Open() 'opens the connection
comm = New OleDbCommand 'establishes that comm is a new command
comm.Connection = conn 'the connection for the command is the connection specified
comm.CommandType = CommandType.Text 'the commands are in text
ManagerLogin = "SELECT DISTINCT Password FROM Accounts WHERE ManagerID='" & Me.tbID.Text & "' "
'the variables value is an SQL command, selects value that is equal to the id AND password.
''MessageBox.Show(ManagerLogin) 'shows the sql command (only needed for testing)
comm.CommandText = ManagerLogin 'the variable is declared as a command
dr = comm.ExecuteReader 'gives the variable a value
conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=PCBank.mdb")
conn.Open()
comm = New OleDbCommand("update into Accounts(Blocked) values('" & (chBlock.CheckState) & "')", conn)
icount = comm.ExecuteNonQuery()
MsgBox("record inserted")
chBlock.Checked = False
Catch ex As Exception
MsgBox(ex.Message)
If dr.Read() Then (it doesn't like this line either)'if the entry is correct (readable)
Me.Close()
Form2.Show() 'show the index varibale (form)
'close the current form
Else 'if the entry is incorrect
MessageBox.Show("Invalid ID, please try again") 'displays error message
tbID.Clear() 'clears the managerid
End If 'end if
End Try
conn.Close()
End Sub
Private Sub Block_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
|
|
|
|
|
Problem could be that you're trying to use a data reader object to do the update when a data reader provides forward-only, read-only access.
You may find this[^] helpful when it comes to using data readers.
For updating a database you should rather use a DataAdapter[^].
Seems like you're using .NET 1.1, right?
Also, why are you initializing & opening your connection object twice? If it's not giving you errors it's at least incurring unnecessary overheads. Try refining your code to be a bit simpler, you'll feel the benefit in time
|
|
|
|
|
Hi,
I've created an application to save a picture from a webcam as a BMP, but this image is saved at 320x240 pixels.
What i would like to do is after saving this image, have vb open it up in a non visible picture box if need be, and save then crop at 162*197. i have used avicap32.dll and user32.dll . now plz tell me about croping.
Regards
Msaqlain
|
|
|
|
|
I just answered this question, did you try what I told you before asking it again ? You don't need those dlls, all you need to do is redraw the image section you want on a smaller bitmap.
Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )
|
|
|
|
|
hi dear i have developed a program in vb.net that just connect my webcame and take pic now i want to make a function that will crop my pictures so for that give me any help about it any function or any compoenet etc.
Regards
Msaqlain
|
|
|
|