|
Me.ActiveMdiChild returns an instance of type Form. You're getting the error because Form doesn't contain a method called add_Record.
You need to cast the return value of Me.ActiveMdiChild to the type of the child form the contains that method.
CType(Me.ActiveMdiChild, MyMdiChild).add_Record()
Charlie
if(!curlies){ return; }
|
|
|
|
|
I need to know the name of the object.
did you manually type the procedure below because it lacks the handles toolbar1.click assuming the name of the toolbar is toolbar1.
Protected Sub toolBar_Click(ByVal sender As Object, ByVal e As oolBarButtonclickEventArgs) HANDLES toolbar1.click
find another method for this
Select Case tblMain.Buttons.IndexOf(e.Button)
I'm in an internet cafe so ican't test any code
Lastly
if Add_record() is form, then you need to make an instance of it
dim myform as new AdD_record()<br />
myform.show<br />
or if it is a procedure in a form
myform.add_record()
will do assuming myform is an open form.
|
|
|
|
|
This was a build error, so registered event handlers aren't the problem.
|
|
|
|
|
Hi,
Is it possible for a visual basic application to start a vba word macro and have it end without the user noticing? What i want to do is present a user for in visual basic (not VBA) and after they click a button, have a VBA macro run on a document in the background and perform certain operations so the text is different.
also, can you pass the macro value?
thanks
Lep
|
|
|
|
|
I have created a sub procedure named EditState. This is to enable and siable menu items as necessary. Enable or disable text boxes also. I do not know how to do this. Can anybody help.
Thank you,
ibok23
|
|
|
|
|
Use the Enabled property of each control. For example:
TextBox1.Enabled = False
MenuItem2.Enabled = False
MenuItem1.Enabled = True
RageInTheMachine9532
|
|
|
|
|
Do I do an if then statement? For example
If MenuItem7.enable = true then
MenuItem5.enable = false
MenuItem6.enable = false
MenuItem10.enable = false
Else If MenuItem5.enable = true then
MenuItem6.enable = false
so on and so on..
Thank you,
ibok23
|
|
|
|
|
Usually not. It all depends on what your doing and your design. You usually don't enable or disable menu items unless some kind of mode has changed in your program, like when Visual Studio goes from editing code to debugging.
For instance, if you have two buttons on a form, Start and Stop, you would normally start the app with the Start button enabled and the Stop button disabled. When you click Start:
Private Sub btnStart_Click(...)
btnStart.Enabled = False
btnStop.Enabled = True
... start some process ...
End Sub
and in the click event of the Stop button:
Private Sub btnStop_Click(...)
btnStop.Enabled = False
btnStart.Enabled = True
... stop whatever process you started...
End Sub
But, you usually NEVER change the enabled status of controls based on the enabled status of another.
RageInTheMachine9532
|
|
|
|
|
ok,
I have on top file,edit,and Navigate. Under file is exit, under edit are add, edit, update, cancel update and delete. Under Navigate are first, next, previous and last. The instructions are Create the code for the Add, edit, update, cancel, and delete menu items, create a sub procedure name EditState to enable and disable menu items as necessary. Enable or disable the text boxes also.
so far I have in the code under the sub of add is
Call EditState (cblnNotEditing)
Me.BindingContext (DsParts1, "tblparts").addNew()
I have nothing underneath the editState, I am not sure what to put there. I found this in my book telling me this is what I am suppose to type. I have an error under (cblnNotEditing). I am not sure what this cblnNotEditing means. I am just putting what the book is telling me.
Thank you,
ibok23
|
|
|
|
|
You're asking me? You have the book! 8)
What's this program supposed to do? A text editor like notepad?
And what's with the BindingContext? DataBindings sound like they are a few levels above you right now... What book is this?
As for what cblnNotEditing is, I couldn't tell you. Just the name of the variable/class/object/whatever isn't enough to tell you what's going on.
RageInTheMachine9532
|
|
|
|
|
I'm creating an instance of MSWord in my app (VB 6, Win98, Office 2000) & use CreateObject rather than GetObject so my app's instance won't interfere with any other instance of Word the user might be running independently of my app & vice versa. (My app creates Word and sets it to .Visible = False; I want it to run in background.) The users also tend to launch & exit Word frequently, for whatever reason.
Is there any way to create an instance of Word that, once created by my app, will not let allow another instance of Word get 'attached' to it? (i.e., , not allow another app to use GetObject on my app.) For ex., Word is not running on user's machine; my app is launched & at some point my app creates an instance of Word; while that is running, the user decides to independently open a Word doc; this makes all docs used by that instance visible (including my app's), & worse, if user then exits my app, this single instance of Word remains in an almost unusable state. Ideally, I'd like to create an instance of Word & leave it running for the life of my app, rather than creating, and later destroying, it each time it's needed.
Just a little new to this! Thanks in advance. Mike R
|
|
|
|
|
I followed the example on this website:
[url]http://www.eggheadcafe.com/articles/20030515.asp[/url]
To convert a HUGE Tiff to a samller JPeg image ..[b] to reduce the dimenstions ..[/b]..it converts the image to JPeg but still the weidth and height remain the same...it does NOT reduce the height and weidth to a smaller image..
What am I missing??
This is what I have:
[code]
Dim strFileToConvert As String
strFileToConvert = "C:\IP\W0008-01-01.tif.jpeg"
'Initialize the bitmap object by supplying the image file path
Dim b As New Bitmap(strFileToConvert)
Dim g As Graphics = Graphics.FromImage(b)
g.CompositingQuality = Drawing2D.CompositingQuality.HighQuality
g.SmoothingMode = Drawing2D.SmoothingMode.HighQuality
g.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
Dim newrec As Rectangle = New Rectangle(0, 0, 50, 50)
g.DrawImage(b, newrec)
b.Save(strFileToConvert & ".jpeg", System.Drawing.Imaging.ImageFormat.Jpeg)
g.Dispose()
[/code]
|
|
|
|
|
|
Hello i made a Pocket Pc application with Vb. net. I know that if i take the .cab file and copy it on my pocket, my application will be install. But some .dll are required for my application and i would like to have a setup that will install all .dll that my application needed. Do you know how can i do that ?
Thank you !
Josee
|
|
|
|
|
Being a VB.net application... The Visual Studio itself helps u in creating the 'SETUP PROJECT'.. But I have not used installer for Windows / Pocket PC apps...
I was born intelligent
Education ruined me!.
|
|
|
|
|
|
I am trying to insert a row into a access database with information taken from user input.
Here is the code i am using. It will not build i get an Constant expression is required error. can someone please tell me how to insert a row into a database with the users input.
Thank you,
Santana
Try
Const insertstr As String = "insert into newAuthors (authorID,firstName,lastName) values (" & txtacctnum.Text & "," & txtstartdate.Text & "," & txtenddate.Text & ")"
Dim cnn As New OleDbConnection(strCnn)
Dim cmd As New OleDbCommand(insertstr, cnn)
cnn.Open()
cmd.ExecuteNonQuery()
cnn.Close()
Catch oleDbExceptionParameter As System.Data.OleDb.OleDbException
MsgBox("Invalid Query")
End Try
|
|
|
|
|
can you try your insert without going thru the code..just directly in the database to make sure u have the correct syntax?
|
|
|
|
|
=================================================================
I think that , if the authorid is integer you must use
....cint(txtacctnum.Text )....
because (textbox?.text) will return string and authorid is integer !!!! wrong
Think Before Begin
|
|
|
|
|
I am trying to bind object together from access to visual. I am in the process of writing the code. I keep on getting the same error and don't know why. I have this so far.
dim partInformation as Binding
partInformation = new binding ("Text", dsParts1,_
"tblParts.fldpartNumber")
Under part information on the 2nd line the error that is coming up is - Declaration expected.
Under "tblParts.fldpartNumber" the error is Syntax error.
What am I doing wrong?
Thank you,
ibok23
|
|
|
|
|
Could somebody tell me what I am doing wrong? This is what I have...
Dim partInformation As Binding
partInformation = New Binding ("Text", dsParts, "tblParts.fldpartNumber")
txtpartNumber.dataBinding.add(partInformation)
partInformation = New Binding ("Text", dsParts, "tblParts.flddescription")
txtDescription.dataBinding.add(partInformation)
partInformation = new binding ("Text", tblParts.fldquanityOnHand")
txtquanityOnHand.dataBinding.add(partInformation)
partInformation = new Binding ("Text", tblParts.fldcost")
txtcost.dataBinding.add(partInformation)
partInformation = new binding ("Text", tblParts.fldsalesPrice")
txtsalesPrice.dataBinding.add(partInformation)
I am getting an error on all of the partInformation except for the dim. It says declaration expected. I am also getting an error on all the txt before the dataBinding saying declaration expected.
Thank you,
ibok23
|
|
|
|
|
hello
may i know how do i select a data in flexgrid
and then show it in another form
please help me
im using vb6
thank you
Gary
|
|
|
|
|
'This is on the main form
Dim strCustData(0 To 12) As String
Dim lngClientId As Long
Dim bytCount As Byte
With grdClients
If .TextMatrix(.Row, 0) = "" Or .TextMatrix(.Row, 1) = "N/A" Then
MsgBox "Please Select a Record"
Exit Sub
Else
lngClientId = .TextMatrix(.Row, 0)
For bytCount = 0 To UBound(strCustData, 1)
strCustData(bytCount) = .TextMatrix(.Row, bytCount + 1)
Next bytCount
End If
End With
Call Load(frmUpdate)
With frmUpdate
.MP_ClientDetails lngClientId, strCustData
.Show vbModal
End With
----------------------------------------------
'This is a function in the receiving page
Public Sub MP_ClientDetails(lngClientId As Long, strCustData() As String)
Dim bytCount As Byte
For bytCount = 0 To UBound(strCustData, 1)
txtCustDetails(bytCount).Text = strCustData(bytCount)
Next bytCount
exit sub
Hope this helps!
|
|
|
|
|
hii
will this also work if i have this module??
Public Function AutoComplete(sTextbox As TextBox, sFlexGrid As MSFlexGrid, sDB As Database, sTable As String, sField As String) As Boolean
On Error Resume Next
Dim sCounter As Integer
Dim OldLen As Integer
Dim sTemp As Recordset
AutoComplete = False
If Not sTextbox.Text = "" Then
OldLen = Len(sTextbox.Text)
Set sTemp = sDB.OpenRecordset("SELECT * FROM " & sTable & " WHERE " & sField & " LIKE '" & sTextbox.Text & "*'", dbOpenDynaset)
If Not sTemp.RecordCount = 0 Then
If sTemp.EOF = True And sTemp.BOF = True Then
MsgBox "Not Matching Records", vbInformation, "Error"
Else
sTemp.MoveFirst
sFlexGrid.Clear
sFlexGrid.FormatString = "Book Name |ISBN |Author |Book In-Store"
Do While Not sTemp.EOF
sFlexGrid.AddItem sTemp.Fields(0).Value
sFlexGrid.TextMatrix(sFlexGrid.Rows - 1, 1) = sTemp.Fields(1).Value
sFlexGrid.TextMatrix(sFlexGrid.Rows - 1, 2) = sTemp.Fields(2).Value
sFlexGrid.TextMatrix(sFlexGrid.Rows - 1, 3) = sTemp.Fields(3).Value
sTemp.MoveNext
Loop
End If
If sTextbox.SelText = "" Then
sTextbox.SelStart = OldLen
Else
sTextbox.SelStart = InStr(sTextbox.Text, sTextbox.SelText)
End If
sTextbox.SelLength = Len(sTextbox.Text)
AutoComplete = True
Else
sFlexGrid.Clear
End If
End If
End Sub
this must be available in it.
so this means i put the code in the
Flexgrid or the form_load?
im not really sure
please tell me
thank you
Gary
|
|
|
|
|
Hi Gary
Could you elaborate on what it is exactly you are trying to do?
Is your question... When I select a row of info on a grid, how do I populate another page with the selected data??
Cliff
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
