|
LAPEC wrote: Im a student and very new to VB .NET
That explains why you're having so much trouble. Buy a book that takes you through the basics and then ease into winforms and so on. What you want to do can be done with delegates, but I can't imagine why you'd do it.
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 )
|
|
|
|
|
I am haveing trouble converting some vba come code to .net. The function call states that the ITrackCancel need to be there but does not need to be used. However when I don't pass one I get an embedded com error. When I do pass a new ITrackCancel I get a "The method or operation is not implemented. This item has several methods that could be implemented but I would have make it a global object to do this (I think). Does anybody have any suggestions on some things I could do with this to make it work?
The unimplemented functions look like this in the imed window
CancelOnClick = {"The method or operation is not implemented."}
CancelOnKeyPress = {"The method or operation is not implemented."}
CheckTime = {"The method or operation is not implemented."}
ProcessMessages = {"The method or operation is not implemented."}
Progressor = {"The method or operation is not implemented."}
TimerFired = {"The method or operation is not implemented."}
Blizzardice
<br />
Private Sub simplerMap()<br />
Try<br />
<br />
Dim strPMFFile As String<br />
strPMFFile = "D:\GIS_SHARED_DATA\Working\Shane\Junk\Applications\Reader\UtilityJunk.pmf"<br />
<br />
Dim pmf As IPMFPublish<br />
Dim mapDoc As IMapDocument = New MapDocument<br />
mapDoc.Open("D:\GIS_SHARED_DATA\Working\Shane\Junk\Applications\Maps\UtilityReaderMapjunk.mxd")<br />
<br />
<br />
pmf = New PublisherEngine<br />
pmf.Publish(mapDoc.PageLayout, mapDoc.ActiveView, pmf.GetDefaultPublisherSettings, False, strPMFFile) 'Set up the publisher engine for packaging<br />
Debug.Print("published")<br />
<br />
Dim pPE As ESRI.ArcGIS.Publisher.IPMFPackage<br />
pPE = New ESRI.ArcGIS.Publisher.PackagerEngine<br />
'Specify the data package location<br />
Dim pSettings As IPropertySet<br />
pSettings = pPE.GetDefaultPackagerSettings()<br />
pSettings.SetProperty("Package Directory", "D:\GIS_SHARED_DATA\Working\Shane\Junk\Applications\Reader\package")<br />
''Set the output data format to compressed and encrypted<br />
pSettings.SetProperty("Vector Type", esriAPEVectorType.esriAPEVectorTypeShapefile)<br />
<br />
''Set the vector clip type to only include features that intersect the data frame<br />
pSettings.SetProperty("Vector Clip Type", esriAPERasterType.esriAPERasterTypeFileGDBCompressed)<br />
<br />
'Put the published map to package in an array<br />
Dim pArr As IStringArray<br />
pArr = New StrArray<br />
pArr.Add(strPMFFile)<br />
'Set Cancel Tracker<br />
Dim pCT As ITrackCancel<br />
pCT = New TrackCancel '******Set Item Here********************************<br />
<br />
<br />
<br />
Debug.Print("Begin Package")<br />
'Package the published map<br />
pPE.Package(pSettings, pCT, pArr) '********Get Error Here***************<br />
Debug.Print("End Package")<br />
<br />
<br />
Catch ex As Exception<br />
Console.WriteLine(ex.Message)<br />
End Try<br />
|
|
|
|
|
You have to create a class that implements ITrackCancel and supply the code to implement the methods. From your code, it looks like you don't know what an Interface is.
Public Class MyTrackClass
Implments ITrackCancel
Public Sub ....whatever methods you MUST code to satisfy
the requirements of the ITrackCancel interface...
End Class
Blizzardice wrote: Dim pArr As IStringArray
pArr = New StrArray
pArr.Add(strPMFFile)
'Set Cancel Tracker
Dim pCT As ITrackCancel
pCT = New TrackCancel '******Set Item Here********************************
The two Dim statements as Interfaces are unneccessary. Assuming that you have two classes that implement these interfaces (as above), what you did is no different than:
Dim pArr As New StrArray
pArr.Add(strPMFFile)
Dim pCT As New TrackCancel
|
|
|
|
|
Thanks for your help. I implemented the class and of course had to implement another class for something in there and now just get a HRESULT error  Oh well I will have to see what I can make of that.
No I don't know or remember what an interface is. I only seem to get to program about 3 months of the year so I forget alot between. Thanks for your time and patience. i am curious thought why all the examples from ESRI (Which is where all this comes from always do the
dim P_Interface as Iinterface
p_Interface = new interface
when you say its not neccessary. I have been doing it that way for a long time now.
Blizzardice
|
|
|
|
|
Blizzardice wrote: i am curious thought why all the examples from ESRI (Which is where all this comes from always do the
dim P_Interface as Iinterface
p_Interface = new interface
Because an Interface is not a concrete object. It's more like a contract. An interface just defines what a class MUST implement.
Think of it this way. If you were writing a plugin for another application, how would that application know how to call the code in your plugin?? The only way is to make sure that the class you write implements an interface that the host application expects your class to use. Otherwise, the host app has no idea how to call your plugin code.
Now, since the host app also cannot know what your class is called at runtime, it just casts an instance of your class to the interface is expects. This allows the code to call your class because, without knowing what your class is called or what's in it, it knows that your class has to implements the things it DOES know about.
For example:
Public Class MyPlugIn
Implements IAppPlugin
Public Sub SomeMethod(blah, blah) Implements IAppPlugin.SomeMethod
.
End Sub
End Class
And in the application, it would do something like this (simplified!)
' An instance of the class has already been created somewhere
' else. This is how the host app would use it.
Dim p As IAppPlugin = DirectCast(someInstance, IAppPlugin)
p.SomeMethod(argumentList)
The ESRI examples are overblown. They're doing extra steps that are just not necessary.
|
|
|
|
|
I am not sure if this should be posted as another question or not but since you seem to be very well infomed I have a couple more questions about the implements.
Do I have to put something in the get set properties? I implemented another item and put return new item for the get that called that item. But the rest I left blank. Like I said its been a while. Well over a year easy. The autocreation of the implements was nice. 
What is the [functionName] purpose of the square brackets? Does it signify something like _variable means a private variable?
Is there a scoring system here where I give you points for answering my posts?
blizzardice
<br />
Public Property Progressor() As ESRI.ArcGIS.esriSystem.IProgressor Implements ESRI.ArcGIS.esriSystem.ITrackCancel.Progressor<br />
Get<br />
Return New MyProgressor<br />
End Get<br />
Set(ByVal value As ESRI.ArcGIS.esriSystem.IProgressor)<br />
<br />
End Set<br />
End Property<br />
|
|
|
|
|
Blizzardice wrote: Do I have to put something in the get set properties? I implemented another item and put return new item for the get that called that item. But the rest I left blank.
Most likely, yes. Those properties, if mandated by the Interface, are expecting you to store some information, whatever it is. The Interface is saying that the host app is going to expect to find certain kinds of data in those properties.
Blizzardice wrote: What is the [functionName] purpose of the square brackets?
It's telling the compiler your using a reserved word as a variable name, which would otherwise be illegal.
Blizzardice wrote: Is there a scoring system here where I give you points for answering my posts?
Just the 1,2,3,4,5 in the bottom right corner of each post.
Blizzardice wrote: Public Property Progressor() As ESRI.ArcGIS.esriSystem.IProgressor Implements ESRI.ArcGIS.esriSystem.ITrackCancel.Progressor
Get
Return New MyProgressor
End Get
Set(ByVal value As ESRI.ArcGIS.esriSystem.IProgressor)
End Set
End Property
I don't know what you asking here. From this little piece of code, it looks like this property is returning a new instance of an object that implements IProgressor, on every call to the property. This can get out of control very rapidly. EVERY SINGLE call to this property would create a new instance, NOT returning the same instance that was help before. If you've not a pro at this, using a technique like this can lead to some nasty problems to debug.
Normally, you wouldn't use a property to do this. Normally, you use a shared factory method in a class to create new instances. This is an example of a over simplified factory method:
Public Shared Function CreateProgressor() As IProgressor
Return New MyProgressor
End Function
What you posted looks like a poor-mans implementation of the Factory pattern.
|
|
|
|
|
Hi,
I have a SQL-Server table with columns: ID(integer,identity),Id_Parent(integer,referencing ID), and other fields.
I load the data in a datatable(with a SqlTableAdapter).
1) If I create a new row in the datatable, the Update method works well
2) If I create another row referencing the previous before updating (and so without an ID), I cannot save it.
Probably I have to retrieve the @@IDENTITY field from the database, but I would like to use only one update action.
Any ideas ???
Peace!
|
|
|
|
|
You have no choice but to do this in TWO actions. It's impossible to do in one.
|
|
|
|
|
Hi,
Is it possible to unzip a winzip or pkzip file with the sharpzip library. If so, where can I find examples?
jthomas
|
|
|
|
|
Does anyone know how to create the Select All function under the Edit menu in vb.net? I need to be able to select all items in a listbox.
jds1207
|
|
|
|
|
For i As Integer = 0 To ListBox1.Items.Count - 1
ListBox1.SetSelected(i, True)
Next i
SetSelected also allows you to deselect an item by setting the boolean parameter to false
|
|
|
|
|
How can I retrieve the list of IP Addresses, and the Names of the Computers connected in my local area Network.
I want to develop a project which can show me the list of computers connected to the server through vb.net.
Please Help me.
Sekhar
|
|
|
|
|
|
hi my name is Vuyiswa, i have the Following Problem
.
am using vb.net in vs2003. i have written an dabase application.i have knowledge of ADo.net and i have created my connection and droped the table on my form and generated the dataset. now when i add the new row to the dataset, it complete the process and be succsessfull, here is the code
<br />
'save the New Record for an Add or Edit<br />
If mblnAdding Then<br />
Try<br />
Dim newRow As DataRow = DataSet11._PROPERTY.NewRow<br />
newRow("Num_key") = txtnumkey.Text<br />
newRow("Extension") = txtextension.Text<br />
newRow("Cell_ID") = txtcellid.Text<br />
newRow("ACTUAL_EXTENT") = txtactualextent1.Text<br />
newRow("Lis_key") = txtliskey.Text<br />
newRow("Func_key") = txtfunckey.Text<br />
newRow("PROP_CATEGORY_ID") = txtcategoryid.Text<br />
newRow("Geocode") = txtgeocode.Text<br />
DataSet11._PROPERTY.Rows.Add(newRow)<br />
<br />
Catch exc As Exception<br />
MessageBox.Show("Unable to add the Record." & _<br />
ControlChars.NewLine & exc.Message, "Property")<br />
<br />
End Try<br />
mblnAdding = False<br />
lblRecordNumber.Text = "Record Added at the end of the Table"<br />
End If<br />
Locktextboxes()<br />
EnableNavigation()<br />
cmdsave.Enabled = False<br />
cmdadd.Text = "&Add"<br />
mblnIsDirty = True<br />
End Sub<br />
and my code is Very well working, i used the Closing Event of the form to update, meaning to save the dataset into the real table so as to reflect the new added row into my table, so i put the Following Code on the closing Event of my form
<br />
Private Sub frmSingle_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing<br />
'save the datasource Changes<br />
If mblnIsDirty Then<br />
If MessageBox.Show("Do you want to Save the Changes?", "Property", _<br />
MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then<br />
Try<br />
SqlDataAdapter1.Update(DataSet11, "Property")<br />
Me.SqlDataAdapter1.Update(Me.DataSet11, "PROPERTY")<br />
<br />
Catch<br />
MessageBox.Show("Error saving the File", "Property")<br />
End Try<br />
End If<br />
End If<br />
End Sub<br />
Built it and run it ,after i click on the save Button of the first code, it save a new Row in the dataset. now when i try to close the form, it recognises the changes in the dataset and ask me if ai want to save the changes and i say "Yes" and it gives me the Error that used to trap Errors. as you have seen my above Errors, please help me and tell me what is wrong, why doesnt it update my dataset by appending a Row in the tables.
?
Vuyiswa
|
|
|
|
|
Vuyiswamb wrote: Try
SqlDataAdapter1.Update(DataSet11, "Property")
Me.SqlDataAdapter1.Update(Me.DataSet11, "PROPERTY")
Catch
MessageBox.Show("Error saving the File", "Property")
End Try
Get rid of the Try/Catch block for now and let the code throw the exception. We need to see the exception messsage to know what it's complaining about. Your code is hiding the exception behind a non-description messagebox that doesn't give any useful information.
|
|
|
|
|
thanks for your Reply Dave. here is the following Error i get when i remove the try and catch
"An unhandled exception of type 'System.Data.SQlClient.SQlException'
occurred in System.data.dll"
Please help
Vuyiswa
|
|
|
|
|
That's not the entire exception. What does the Message property say in that exception?
|
|
|
|
|
Hey
I have an application integrated with Microsoft Outlook 2003. This application also runs Macros in Excel and then saves the workbook. The save can take a reasonable amount of time, so at the moment I bring Excel to the front so the user can see the program hasnt crashed.
This is a bit of a bodge and looks untidy so is there a way to get Excel to notify my application of when it has finished saving?
I though about trying to hook into the Save event and then callback when it has done but I was wondering if there is a simpler way so that I can just implement a progress indicator or another way of telling the user the app is busy.
Thanks
Dan
|
|
|
|
|
I don't see how this is going to work. The Save method in the Excel object is going to be a blocking call, blocking your UI thread(!). So I don't see how you can put up a progress bar and update it while your UI thread is blocked.
|
|
|
|
|
You could use a BackgroundWorker that processes all the information in the background and reports back to your application the progress of the procedure. You would then have a progressbar update with the progress (you might consider a never-ending/repetitive progressbar if you cannot track the time of the save event).
Regards,
Thomas Stockwell
Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning.
Visit my homepage Oracle Studios[ ^]
|
|
|
|
|
I recorded an actual Macro and it looks like this.
Application.CommandBars("Web").Visible = False
Range("A28").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Range("A29").Select
ActiveWindow.SmallScroll Down:=3
What I actually have is thousands of rows populated, Three rows are visible with data in the top three rows of my active sheet, 26, 27 & 28 in this example.
When I first open the spreadsheet, I need to make the WEB toolbar go away, this part is good.
I then need to click on the very last hyperlink in 'A' column, I think it may be refered to something like lastused range????? This example is 'A28'.
I then need to put the cursor in the next available empty cell past the lastused range in the 'A' column and post it in the very top left corner, (as though it was in cell A1 ready to work).
This empty cell was in the fourth row so I did three smallscroll to get it to the top row in view.
When I record the macro as you see above it records the actual cell number, this will not help me but I know someone here can please.
I also need the macro to run slowly giving the internet time to upload the hyperlink and then revert back to finish the macro, it just zips right through it now and does not end up in the correct cell when completed.
Thanks in advance for any help, I didnt see a VBA forum, flame suit on.
Lastly, is there a way to make the WEB toolbar stay gone, it wasnt in view by default prior to some MS update I am guessing???
|
|
|
|
|
As I have said before I have textboxes bound to the DataGridView. When the user updates a value I have them click on a "Save" button where I get the values that find the row from the current row in the DataGridView and then call Row.BeginEdit, set the values, then call Row.EndEdit.
Only after sorting will the row change event occur (I am verifying this by checking for BindingSource.PositionChanged) and it only happens if I change the value within the sorted column and when it changes rows the row it changes to gets that single changed value.
This is so strange and Im not sure what to do about it.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
Let's see the code that's making the changes. Why are you setting the values in the data in code? Why not just bind theTextBox to the fields?
|
|
|
|
|
Dave Kreskowiak wrote: Why are you setting the values in the data in code? Why not just bind theTextBox to the fields?
They are bound but I guess Im not sure how to apply those changes except for changing rows.
Dim searchKeys() As String = {value1, value2, value3}
Dim updateRow As DataRow = DsCirculars1.tblAPCirculars.Rows.Find(searchKeys)
Try
With updateRow
.BeginEdit()
.Item("FirstName") = uxFirstName.Text
.Item("LastName") = uxLastName.Text
.Item("Address") = uxAddress.Text
.Item("City") = uxCity.Text
.Item("State") = State.Text
.Item("ZipCode") = uxZipCode.Text
.EndEdit()
End WithThis does work when there is no column sorted and only causes the row to change if I change a value that is within that column.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
