|
Posting the question a 3rd time won't change the answers. You can change the origin by using the Scale and Transform methods and properties of the Graphics object your using to do the drawing.
|
|
|
|
|
Hello. Thank you for your reply. I used the "scale" method, but I could not change the place of the origin of Coordinate System. I used this code: "Me.Scale()"
Can you help me?
|
|
|
|
|
Did you look at the TranslationTransform of the Graphics object you're using to do the drawing?
|
|
|
|
|
Do not keep reposting the same question. It's considered rude. As stated earlier, please read the forum guidelines. Also, asking for someone to just send you the code is rude. If you have a section of code and are having troubles, please feel free to post that, and the problem, and we'll look at it.
_____________________________________________
Flea Market! It's just like...it's just like...A MINI-MALL!
|
|
|
|
|
Reza12 wrote: I 'm writing my question for the third time
Didn't you look at the replies you've received? Asking the same question over and over tends to just piss people off around here
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
|
|
|
|
|
I am beginning a project working with a paradox file type .DB. This is new to me and I need help. The project is to read the file, update, and add the file data to a database. Has anyone ever worked with paradox files using vb.net? If so please help.
jds1207
|
|
|
|
|
There are a couple of ways you can go about this. You can read the files using a DBase connection type, or you can import the Paradox files into MS Access/SQL Server (depending on the size) and use that as your data source.
I guess it depends whether you need to keep the Paradox file at the end, or if you are simply performing a data migration into a different database.
D.
-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!
|
|
|
|
|
How do you open the file with this type of extension?
|
|
|
|
|
What do you want to do with it once it's open? This is an important point, because if you want to open and use it (as the data source for your project) the answer will be different to if you want to open it, get the information out and migrate it elsewhere...
-------------------------------------------
Don't walk in front of me, I may not follow;
Don't walk behind me, I may not lead;
Just bugger off and leave me alone!!
|
|
|
|
|
I have a Listview that is populated with information from a database using a datareader. What I'm looking to do is allow the user to select a particular row in the list and output one of the subitems to a simple text file. I'm not sure how to pull or format the subitem though and what properties to use. Any help would be appreciated!! Here is the code I used to populate the listview.
Do While hl7reader.Read
tmp1 = hl7reader("FROM_WHOM")
tmp2 = hl7reader("FROM_TERM")
tmp3 = hl7reader("CRE_TIMESTAMP")
tmp4 = hl7reader("PATIENT_NO")
tmp5 = hl7reader("APPC_DATA")
Dim str(5) As String
Dim itm As ListViewItem
str(0) = tmp1
str(1) = tmp2
str(2) = tmp3
str(3) = tmp4
str(4) = tmp5
itm = New ListViewItem(str)
ListView1.Items.Add(itm)
Loop
|
|
|
|
|
Alright I've got one of the selections outputting correctly. If I select one item, it writes correctly. Now what I'm looking to do is output multiple selections (say 6 items selected). Here's what I have.
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ListViewSelect As ListView.SelectedListViewItemCollection = Me.ListView1.SelectedItems
Dim item As ListViewItem
Dim selecteditem As String
'Dim price As Double = 0.0
For Each item In ListViewSelect
selecteditem = item.SubItems(4).Text
Dim writer As StreamWriter = _
New StreamWriter("c:\Test.txt")
Dim line As Stream
writer.WriteLine(selecteditem)
writer.Close()
Next
End Sub
|
|
|
|
|
Hi, I need some help with my structure, I always get this error:
Exception System.NullReferenceException was thrown in debuggee:
Object reference not set to an instance of an object.
And this is the structure and how I'm using it.
Public Class Form1<br />
......<br />
Public Structure ECU_St<br />
Public ID_HS As Integer<br />
Public CB As String<br />
Public C0 As String<br />
Public C1 As String<br />
Public C2 As String<br />
Public C3 As String<br />
Public C4 As String<br />
Public C5 As String<br />
Public C6 As String<br />
Public C7 As String<br />
Public C8 As String<br />
Public C9 As String<br />
Public CA As String<br />
Public PN41 As String<br />
End Structure<br />
.........<br />
Sub ToolStripButton7Click(ByVal sender As Object, ByVal e As EventArgs)<br />
Dim PN As String<br />
Dim HSECU() As ECU_St<br />
Dim i As Integer<br />
................<br />
i = 0<br />
HSECU(i).CB = PN<br />
i = i + 1
I don't know what else to try, always I get the same error, anyone can help me? Thank you!!!
|
|
|
|
|
BThunder wrote: Dim HSECU() As ECU_St
You created an array of empty pointers to ECU_St objects. You never created an instance of these objects though. Also, you didn't provide a size for the array, so you have to increase the number of elements in the array using ReDim Preserve. But, if you're going to go through that hassle, just use a List(Of T) collection instead (only works in VB.NET 2005 and above!):
Dim HSECU As New List(Of ECU_St)
Dim i As Integer = 0
HSECU.Add(New ECU_St)
HSECU(i).CB = PN
i = i + 1
|
|
|
|
|
Thx for your really quick response!!!!
Let me try this
|
|
|
|
|
I already try this, but, when I compile, I get an error:
Expression is a value and therefore cannot be the target of an assignment. (BC30068)
HSECU.Add(New ECU_St)<br />
---> HSECU(i).CB = PN <br />
<br />
HSECU(i).CB = PN assigment???
Any Ideas?
PD. CB and PN are Strings, CB Declared with public
|
|
|
|
|
Assuming code isn't correct...
Dim newNode As ECU_St
newNode.CB = PN
HSECU.Add(newNode)
|
|
|
|
|
Ok my boss switch the concept so my previous problem is no longer valid (so I deleted it)
but now I have another problem
situation:
I have an mdi form with a menu
when the user clicks a button on the menu a function on the activeform needs to run
here's the code I have so far:
For Each f As Form In Me.MdiChildren<br />
If f.Equals(Form.ActiveForm) Then<br />
f.Add()'gives error<br />
End If<br />
Next
add() = de function that needs to run
but understandably I get an error on that
anyone know how I coud do this?
-- modified at 10:32 Tuesday 17th July, 2007
apperently the code to get the activeform doesn't work so that's another problem
does anyone know the code to get the active mdiform
|
|
|
|
|
TDDragon wrote: Ok my boss switch the concept so my previous problem is no longer valid (so I deleted it)
Thanks! I typed up this nice long explanation about why this won't work and I couldn't get it posted because you deleted your original post. Please don't do that again.
|
|
|
|
|
I appolagish for that
I woudn't do it again (just figured if it wasn't relevant anymore no need to clutter up the forum)
|
|
|
|
|
We like to leave some stuff behind so that, in the future, people searching (yeah, right. Like this ever happens!) for why an inherited form isn't working can find some information on it.
|
|
|
|
|
ActiveForm returns a Form object, not a whateverMyFormName object. So, the Form class doesn't have a method called Add . You have to cast the Form object returned by ActiveForm to the class that it really is. BTW, you don't need to iterate through the MdiChild forms. You ALREADY have the instance of the form that is active!
Dim myForm As YourFormClass = DirectCast(Form.ActiveForm, YourFormClass)
myForm.Add()
|
|
|
|
|
The problem is I don't know what the formclass is
I have for instance 20 open forms and on the active one I need to run the function add()
so I can't cast an object because I don't know wich form it is
any idee's or am I understanding your code wrong
|
|
|
|
|
Then you can create a seperate Interface that each of your child form types Implements. You then cast the ActiveForm to the Interface and call the Add method through that.
Public Interface ISomething
Sub Add()
End Interface
And in your form classes:
Public Class MyChildForm
Implements ISomething
Public Sub Add() Implements ISomething.Add
...
End Sub
...and in your ActiveForm code:
Dim myChildForm As ISomething = DirectCast(Form.ActiveForm, ISomething)
myChildForm.Add()
|
|
|
|
|
I like the interface part since I was planning on using that anyway
but the code doesn't work because 'Form.activeform' is always nothing (and I have a form active)
so I get an error that he cant cast my mdi form (wich doesn't implement the interface) to an interface
|
|
|
|
|
solved the problem
have to use me.activemdichild instead then it works perfectly
thank you for help
|
|
|
|