|
I have build an activeX controller in ATL VC++ that uses a window and shows camera captured frames, it works well in VisualC environment.
In Visual Basic 6, however, When I tried to integrate the control into a project, it was loaded ok but when I tried to save or run the project, I got a system Error
&H80004005 (-2147467259).
When I tried the same under .net environment, this problem didn't appear.
DO you have any idea what can be the problem or how can I debug it ?
Thanks
Amos.A
|
|
|
|
|
I’ am having trouble converting between vb.net new standard coordinate system, that is pixels, and what I believe is some form of a polar coordinate system.
The second coordinate system I believe is a polar coordinate system, but I’m not sure.
The best way I can describe it is that the center of the grid is the origin, “0, 0”.
With negative values going from the center out to the left and bottom of the grid, and positive values going out to the top and right.
The problem I’m having is that I can’t think of any way to take coordinates from coordinate system and convert it to the other.
The idea is to load into a vb.net form or picturebox control an image that represents a map area.
If that makes any since at all.
All I really need is an algorithm, a logical thought process.
e-mail me at: Doe_John187@hotmail.com
|
|
|
|
|
Doe, John wrote:
The best way I can describe it is that the center of the grid is the origin, “0, 0”.
With negative values going from the center out to the left and bottom of the grid, and positive values going out to the top and right.
This is the Cartesian system. There is no "negative side" to Polar coordinates, even though Polar can be used with negative numbers. Polar takes an angle and distance from the origin to specify a point. Cartesain takes an X and Y coordinate.
By default, Windows puts the origin (0,0) at the top left of the drawing surface. The X axis extends from the origin to the right, in positive values, while the Y-axis extends down from the origin, not up!, in positive values.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Just add 1/2 the range you intend to display to each of the cartesian co-ordinates after multiplying the y co-ord by -1: if your display area is 1000 high by 1000 wide, the center will be at 500,500, so adding 500 to the 'map' co-ords of 0,0 will give 500,500, a map co-ord of -10,-10 will give 490,510 (-10 + 500) , ((-10 *-1) +500) - 10 left of center, 10 below center.
Absolute faith corrupts as absolutely as absolute power
Eric Hoffer
All that is necessary for the triumph of evil is that good men do nothing.
Edmund Burke
|
|
|
|
|
Hi Christy
First of all thanks for the reply
i am stuck at building sql query from the fields selected and then passing it on to the reports
Can you please help me out
|
|
|
|
|
I have a fairly large VB 6 program group that generates 20 DLLs (each a separate project brought together by one VB project group). This is a system which I must keep running (i.e. conversion to .NET and/or code consolidation is not an option at this point in time - just in case you ask ).
These DLLs are used in Microsoft Office apps to provide custom connections between those apps and the document management system. There are also many Word document template files coded in VBA which use the objects provided by these DLLs.
Thus far these DLLs have been separately compiled in VB 6 with No Compatibility making it very difficult to deploy simple changes without recompiling all the dependent DLLs and templates. I want to change this to use binary compatibility but am having great trouble.
The procedure followed so far:
1. unregistered all DLLS on my machine.
2. copied the current build of the DLLs (compiled with No Compatibility) to a separate directory named "Compatibility" in the VB 6 project tree.
3. Changed the project definition of each separate project to use Binary Compatibility and set the compatible component to reference the corresponding DLL in the Compatibility directory.
4. Rebuilt the project group.
It is at this stage the first compile warns that "The get property for the 'ActiveControl' property in the 'LogReview' class module is missing from a similar declararion in the version-compatible component." There is only one choice available - the radio button to Break Compatibility is set, the other for Preserve is disabled.
If I choose to break compatibility, I will be in the same situation that I was trying to avoid in the first place. I really don't want to manually recompile all the templates to reference the new CLSIDs unless absolutely necessary.
Can anyone offer some advice on how to proceed?
Cheers.
...Steve
|
|
|
|
|
|
Dave,
I agree and have read those articles, but I have used the current DLL as the binary compatible version. There were no code changes at all when I recompiled yet compatibility was somehow broken. This is what I cannot understand.
...Steve
|
|
|
|
|
Dave,
Egg on face time... seems like I've been given DLLs that were NOT compiled with the 'official' source code. VB is telling me the truth after all.
Cheers.
...Steve
|
|
|
|
|
Even the best of us make mistakes like that. We can even make some real stupid mistakes! I was chasing my tail yesterday for about 6 hours, then found out I didn't even need the system I was working on...
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Seems like it was my fault to begin with - I had recompiled the DLLs on my machine many times before cleaning the registry and copying all files again from Visual Source Safe.
Looks like my registry still has orphaned entries which are upsetting the build process. A full rebuild with binary compatibility on another (fresh) machine solved the problem.
Anyone know of a good and free utility to clean the registry? The ones I have found so far on the net all require $$'s (yes - I'm cheap ).
...Steve
|
|
|
|
|
Hi have looked all over the internet for a way to make my program skinable, but have only came across commercial ways to do this. I just want to know if there are any free, open source or custom ways of doing this.
|
|
|
|
|
Skinning is just custom drawing, you write a UI where all controls display a bitmap they can discover via a config file. Nothing to it.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
I'm having a problem formating a column in my listview to show the column as a currency column. I'm sure there is a simple answer to this, but I have a column called "Length" which is an integer and a column "StartingPrice" which is the currency....with the following code they both show up as currency fields, what am I doing wrong?
While datareader.Read
test = New System.Windows.Forms.ListViewItem
Dim columns As Integer
test = lstPending.Items.Add(datareader(0).ToString)
For columns = 1 To datareader.FieldCount - 1
If datareader.Item("StartingPrice") Then
test.SubItems.Add(Format(datareader.Item(columns).ToString, "Currency"))
Else
test.SubItems.Add(datareader.Item(columns).ToString)
End If
Next
rows += 1
End While
|
|
|
|
|
Your test will always take the first path in the if statement since the column "StartingPrice" always exists.
you want
If datareader.GetName(column).Equals("StartingPrice") Then
test.SubItems.Add(Format(datareader.Item(columns).ToString, "Currency"))
Else
test.SubItems.Add(datareader.Item(columns).ToString)
End If
Absolute faith corrupts as absolutely as absolute power
Eric Hoffer
All that is necessary for the triumph of evil is that good men do nothing.
Edmund Burke
|
|
|
|
|
Great, that worked like a charm, much appreciated!
|
|
|
|
|
Hi, I want to create windows service in order to control the printer queue. And now I have read the following article http://www.developerfusion.co.uk/show/3441/[^] in order to create a simple windows service application. But one more thing that i still need is the way that I could control the printer queue from vb.net service application. Could any one provide me any information or resource in order to control the printer queue from vb.net service application for me? I need it in order to build a system to record the information about the printer utilization in my organization.
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Use the System.Management (WMI) classes to get the queue informantion a simplistic example is here[^].
Absolute faith corrupts as absolutely as absolute power
Eric Hoffer
All that is necessary for the triumph of evil is that good men do nothing.
Edmund Burke
|
|
|
|
|
Thank you very much for your comment. But your code example is showing in C# version. I prefer to use it VB.Net, but now I still find the way to conver C# language to VB.Net. If it is possible then it would be fine for me.
Thank you for your help!!!
A thousand mile of journey, begin with the first step.
APO-CEDC
Save Children Norway-Cambodia Office
|
|
|
|
|
Hi, i have a form which has a 1 datagrid and 12 label & textbox(like NAME, SURNAME, NATIONALITY, JOB etc..)and some buttons .I want to get data from database with one or more criteria (User if fill 2 criteria like NAME and SURNAME my query must be where NAME=txtname.text AND SURNAME=txtsurname.text) OR (user maybe fill only one criteria like NAME my query must be where NAME=txtname.text ) or (user maybe want to fill 8 or 6 or all criteria) and if user dont fill any criteria and click get button, query must be (Select * from ANABILGI) thats all..
I try to write a code below but unfortunately it was'nt worked.Would you somebody help me please.
Thanks a lot
Private Sub withcriteria()
Dim param As String = "ADI= txtad.Text & (param1) & SOYADI=txtsoyad.text & (param2)& BABAADI=txtbabaad.text & (param3)& ANAADI=txtanaad.text & (param4)& DYERI=txtdogumyer.text & (param5)& DTARIHI=txtdogumtar.text & (param6)& UYRUK=txtuyruk.text & (param7)& MESLEK=txtmeslek.text & (param8)& DIN=txtdin.text & (param9)& MEDENIHAL=txtmedenihal.text & (param10)& CINSIYET=txtcinsiyet.text & (param11)& TAHSIL=txttahsil.text"
Dim param1, param2, param3, param4, param5, param6, param7, param8, param9, param10, param11 As String
If txtad.Text.Length And txtsoyad.Text.Length And txtbabaad.Text.Length And txtanaad.Text.Length And txtdogumyer.Text.Length And txtdogumtar.Text.Length And txtuyruk.Text.Length And txtmeslek.Text.Length And txtdin.Text.Length And txtmedenihal.Text.Length And txtcinsiyet.Text.Length And txttahsil.Text.Length < 0 Then
Dim da As New OleDbDataAdapter("Select * from ANABILGI", baglan)
Dim ds As New DataSet
baglan.Open()
da.Fill(ds, "tablo")
DataGrid1.DataSource = ds.Tables("tablo")
baglan.Close()
DataGrid1.Select(DataGrid1.CurrentRowIndex)
Else
If txtad.Text.Length < 0 Then
param1 = "OR"
Else
param1 = "AND"
End If
If txtsoyad.Text.Length < 0 Then
param2 = "OR"
Else
param2 = "AND"
End If
If txtbabaad.Text.Length < 0 Then
param3 = "OR"
Else
param3 = "AND"
End If
If txtanaad.Text.Length < 0 Then
param4 = "OR"
Else
param4 = "AND"
End If
If txtdogumyer.Text.Length < 0 Then
param5 = "OR"
Else
param5 = "AND"
End If
If txtdogumtar.Text.Length < 0 Then
param6 = "OR"
Else
param6 = "AND"
End If
If txtuyruk.Text.Length < 0 Then
param7 = "OR"
Else
param7 = "AND"
End If
If txtmeslek.Text.Length < 0 Then
param8 = "OR"
Else
param8 = "AND"
End If
If txtdin.Text.Length < 0 Then
param9 = "OR"
Else
param9 = "AND"
End If
If txtmedenihal.Text.Length < 0 Then
param10 = "OR"
Else
param10 = "AND"
End If
If txtcinsiyet.Text.Length < 0 Then
param11 = "OR"
Else
param11 = "AND"
End If
End If
Dim da As New OleDbDataAdapter("Select * from ANABILGI where (param)", baglan)
Dim ds As New DataSet
baglan.Open()
da.Fill(ds, "tablo")
DataGrid1.DataSource = ds.Tables("tablo")
baglan.Close()
DataGrid1.Select(DataGrid1.CurrentRowIndex)
|
|
|
|
|
MAGICIANMERLIN wrote:
Dim param As String = "ADI= txtad.Text & (param1) & SOYADI=txtsoyad.text & (param2)& BABAADI=txtbabaad.text & (param3)& ANAADI=txtanaad.text & (param4)& DYERI=txtdogumyer.text & (param5)& DTARIHI=txtdogumtar.text & (param6)& UYRUK=txtuyruk.text & (param7)& MESLEK=txtmeslek.text & (param8)& DIN=txtdin.text & (param9)& MEDENIHAL=txtmedenihal.text & (param10)& CINSIYET=txtcinsiyet.text & (param11)& TAHSIL=txttahsil.text"
What are you expecting this to do ?
MAGICIANMERLIN wrote:
Dim da As New OleDbDataAdapter("Select * from ANABILGI where (param)", baglan)
What are you expecting to happen here ?
The easiest way to do this is to write a stored proc ( because the best way to do all of this is with stored procs ), that takes all of these possible search values, and searches using LIKE, so that you end up with blah LIKE % when no search paramater was provided. If you must do it creating SQL on the fly like this, then just build the query as you go. Either way, you should be parsing any input strings for SQL injection attacks.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Thank you but i am not using sql database i am using Access database and i will try to do it in Access Queries if possible..
Thanks A lot for your kindly answer
|
|
|
|
|
Access may not be a real database, but last time I checked, it used SQL.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
[edit]Hello!
I want to center my text in the RichTextBox Control but i don't want use "\tab"
Is a solution exist ?
thank you for your answer .. [/edit]
I'm sorry but i've found my answer
i give the url : The RTF for RichTextBox
SeLoRBIS
|
|
|
|
|
Please help me this problem
|
|
|
|