|
Hello
I'm writting a custom exception class and I want to have functionality to go to line number where the error occured. The code below should work but it fails at first line(giving com exception)
Dim DTE As EnvDTE.DTE = System.Runtime.InteropServices.Marshal.GetActiveObject("VisualStudio.DTE.9.0")
Dim item As EnvDTE.ProjectItem = DTE.Solution.FindProjectItem(FileName)
item.Open(EnvDTE.Constants.vsViewKindCode).Activate()
Dim textSelection As EnvDTE.TextSelection = DTE.ActiveDocument.Selection
textSelection.StartOfDocument()
textSelection.MoveToLineAndOffset(LineNumber, ColumnNumber)
textSelection.SelectLine()
I found a sample(in C#) where the GetService function was called and I cannot find it in VB.NET. The IServiceProvider interface provides one but I cannot find object that implements it.
Thanks in advance for help
|
|
|
|
|
The DTE stuff is usually only used in macros, not normal application programming. Even if this were to work, it would require every user of the resulting application to have Visual Studio installed.
Scott Dorman Microsoft® MVP - Visual C# | MCPD
President - Tampa Bay IASA
[ Blog][ Articles][ Forum Guidelines] Hey, hey, hey. Don't be mean. We don't have to be mean because, remember, no matter where you go, there you are. - Buckaroo Banzai
|
|
|
|
|
Yes they would need a refernece to the dlls.
And I have found the solution
Dim DTE2 As EnvDTE80.DTE2
DTE2 = System.Runtime.InteropServices.Marshal. _
GetActiveObject("VisualStudio.DTE.9.0")
This will find instance of VS 2008
|
|
|
|
|
Pawel Gielmuda wrote: Yes they would need a refernece to the dlls.
Right, and I don't believe those DLLs are redistributable outside of Visual Studio so they would need to have Visual Studio installed.
Scott Dorman Microsoft® MVP - Visual C# | MCPD
President - Tampa Bay IASA
[ Blog][ Articles][ Forum Guidelines] Hey, hey, hey. Don't be mean. We don't have to be mean because, remember, no matter where you go, there you are. - Buckaroo Banzai
|
|
|
|
|
hi, im using VS2008 and working on windows form application,
i have a problem, is it can i take variable value from other form to another one form, or variable value from same form but different event.
for example:
pivate sub button1_click(byval........
dim one as string
one = "Hello"
end sub
then, i want take the value from variable 'one' and use it on another button click event
for example:
private sub button2_click(byval....
'here is the problem about how can i take
'the value in variable 'one' at button1_click event to be use in
'this event
end sub
|
|
|
|
|
|
try this.....................
dim one as string
pivate sub button1_click(byval........
one = "Hello"
end sub
then, if i want take the value from variable 'one' and use it on another button click event
for example:
private sub button2_click(byval....
msgbox (one)
end sub
|
|
|
|
|
If i understood your post right then
First declare the the variable globaly and public on form first not in any procedure
Public one as string
then on second form
dim frm as form1
msgbox(frm.one.tostring) ' u can use it any event of form2
Hope it will help u
Unless u don't give ur hundred percent whatever u r doning till there is no result of ur work...
|
|
|
|
|
The best way to do this is to create a delegate that passes the value between forms. Or use a property ( NOT just a variable ) that allows you to get ( but not set ) the value if the second form is a child of the first.
As for within the one form, place the variable at application scope. And, if you don't know that, you really need to buy a beginner book instead of relying on online help only.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
1. How to connect to Pocket PC(Windows Mobile) from Desktop PC?
2. if i connected to Pocket PC. How to get SMS from Pocket PC?
Thank U
|
|
|
|
|
Hi
For connect pocket pc with Desktop pC you need Data Cable and Active Sync Software.
after this you access every one from your window mobile like your desktop pc,
Thanx
~Khatri Mitesh
|
|
|
|
|
No No. I mean develop a software on desktop pc for connect to PocketPC.
|
|
|
|
|
Thank u. But i mean for coding with VB.Net.
|
|
|
|
|
|
i am using Using the MSScript control in win application.but i getting
error:-"The operation could not be completed because the script engine has not been initialized to a valid language."
Code:-
Dim MS As New MSScriptControl.ScriptControl
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
TextBox1.Text = MS.Eval(TextBox1.Text)
Catch ex As Exception
End Try
End Sub
Piyush Vardhan Singh
p_vardhan14@rediffmail.com
http://holyschoolofvaranasi.blogspot.com
http://holytravelsofvaranasi.blogspot.com
|
|
|
|
|
AnsWer:-
Dim MS As New MSScriptControl.ScriptControl
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
MS.Language = "VBScript"
TextBox1.Text = MS.Eval(TextBox1.Text)
Catch ex As Exception
End Try
Piyush Vardhan Singh
p_vardhan14@rediffmail.com
http://holyschoolofvaranasi.blogspot.com
http://holytravelsofvaranasi.blogspot.com
|
|
|
|
|
Hello all,
I'm using VB.NET(VS2003) connect with MySQL5.0 database. I'm trying to migrate the previous system which is using VB6 to VB.NET here.I am not familiar with VB6 code and I found this problem below:
Public Function CSQLQuote(ByVal Value As String) As String
' Value = Replace(Value, "\", "\\")
' CSQLQuote = Replace(Value, "'", "''")
CSQLQuote = mysql_escape_string(Value)
End Function
'API DECLARATION FOR mysql_escape_string FUNCTION CALL
Public Declare Function api_mysql_escape_string Lib "libmySQL.dll" _
Alias "mysql_escape_string" _
(ByVal strTo As String, _
ByVal strFrom As String, _
ByVal lngLength As Long _
) As Long
Public Function mysql_escape_string(dirtystring As String) As String
Dim strFrom As String 'SOURCE STRING PASSED TO FUNCTION
Dim lngFromLength As String 'LENGTH OF SOURCE STRING
Dim strTo As String 'DESTINATION STRING COMING FROM FUNCTION
Dim lngToLength As Long 'LENGTH OF DESTINATION STRING
strFrom = dirtystring 'STORE FUNCTION INPUT
lngFromLength = Len(strFrom) 'GET LENGTH OF INPUT
strTo = Space(lngFromLength * 2 + 1) 'ALLOCATE A BUFFER FOR OUTPUT OF FUNCTION
'2 BYTES PER CHARACTER PLUS A BYTE FOR NULL
'TERMINATOR USED BY FUNCTION
lngToLength = api_mysql_escape_string(strTo, strFrom, lngFromLength) 'CALL API
mysql_escape_string = Left(strTo, lngToLength) 'TRIM NULL TERMINATOR
End Function
These function will be called inside the SQL query like this:
strSQL = "SELECT LocationCode, TerminalCode, Source, Prefix, LastNo, Length" & _
" FROM POS_RunningNo" & _
" WHERE LocationCode='" & CSQLQuote(strLocationCode) & "'" & _
" AND TerminalCode ='" & CSQLQuote(strTerminalCode) & "'" & _
" AND Source='" & CSQLQuote(strSource) & "'"
I'm wondering I still need to used the above function apply on my new VB.NET system or I can just directly used the normal SQL query? And anyone can tell me whats the function above trying to do?
Hope someone can give me some ideas about it.Thanks for reading.
Regards
Drex
|
|
|
|
|
You don't need to escape like this in VB.NET. Use parameterized queries instead.
|
|
|
|
|
Thanks Navaneeth for your solution here. I have search and found that Here[^] give the example which using oledb connection but I'm currently using ODBC to connect with MySQL 5.0 database. Can I still used the parameterize query with my ODBC connection? Do anyone have any sameples about this for me here?
Hope someone can give me some sample.
Thank you all for reading.
Regards
Drex
|
|
|
|
|
drexler_kk wrote: Can I still used the parameterize query with my ODBC connection?
I believe so. ODBC is considered slow as it adds an extra layer to the communication. So it's better to go with "MySQL Connector .NET" which is built specialy for MySQL. You can download it from here[^]
|
|
|
|
|
Yeah,I have read some articles talk about it too. But I found a problem with the MySQL .NET connector actually. I'm doing with VB.NET Window Form Application here. The version of Visual Studio .NET 2003 Version 7.1 for my VB.NET developer tools now doesn't support the MySQL .NET connector.
It doesn't allow me to Add Reference for the MySQL.Data.dll file into my project. So I have really no choices to used ODBC Connector here to connect with MySQL 5.0 database. You have any other better recommendation for me?
Thanks for reading everyone.
Regards
Drex
|
|
|
|
|
drexler_kk wrote: .NET 2003 Version 7.1
Ahh, then you might need to use ODBC. BTW, have you checked MySQL connector has a .NET 1.1 compatible version ?
|
|
|
|
|
Hello Navaneeth,
Yes,I have no choices so I choosed to used ODBC connector. I have check the .NET 1.1 but its still not compatible with the VS2003 as I'm using here.
I'm wondering is that still possible for me to used the parameterized query as suggested with this ODBC? I'm just using the most simple query,is that any good and bad for the query I'm using now for long term in my window form application?
Hope to hear from you all again soon. Thanks for reading and giving more solution.
Regards
Drex
|
|
|
|
|
drexler_kk wrote: I'm wondering is that still possible for me to used the parameterized query as suggested with this ODBC?
Yeah, you can always use parameterized queries with ODBC. I guess ? is used to represent parameters in ODBC. So you can supply a query like
SELECT *
FROM Customers
WHERE CustomerId = ?CustId ?CustId is the parameter here. You can add this to OdbcCommand object's Parameters collection.
|
|
|
|
|
Thank you for the solution Navaneeth. I will change the query in my WinForm from now on. Its really a new knowledge for me doing this kind of query to make a better system.
Thanks for your effort.
Regards
Drex
|
|
|
|