|
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
|
|
|
|
|
well the module is to select all the data from DB
when the textBox is fill the flexgrid will show the data in the flexgrid
so..
i want to know is that when i select the row of data using the code u gave me
it will show in other form, right?
then where should i put the code
in the flexgrid? module? or in the form_load?
actually you can ignore the module i send to you
and thank you Cliff
Gary
|
|
|
|
|
Hey Gary
Ok... Once you have populated your flexgrid:
You will select a row of data by clicking on the flexgrid row.
Then(just as example) you have a command button called cmdENTER.
When you have selected a row and then click cmdENTER,
you put the selected rows information in an array called strCustData.
It has been dimentioned to (0 to 12) because there are 13 columns in my
row.
'So this code will go in the same form as your selected flexgrid
'Copy this code into VB, it will be easier to read
Private sub cmdENTER_Click()
Dim strCustData(0 To 12) As String
Dim lngClientId As Long
Dim bytCount As Byte
With grdClients
'This just checks if a valid record was selected
If .TextMatrix(.Row, 0) = "" Or .TextMatrix(.Row, 1) = "N/A" Then
MsgBox "Please Select a Record"
Exit Sub
Else
'Sets my variable to the first column's value of the selected row
lngClientId = .TextMatrix(.Row, 0)
'here we assign the rows values to our array
For bytCount = 0 To UBound(strCustData, 1)
strCustData(bytCount) = .TextMatrix(.Row, bytCount + 1)
Next bytCount
End If
End With
'Now we call our next form where you want the selected row's data
' to be displayed
'Load the form
Call Load(frmUpdate)
With frmUpdate
'Then in frmUpdate create a Public Sub call MP_ClientDetails
'and here we call that Sub and pass through our array
'strCustData)
.MP_ClientDetails lngClientId, strCustData
.Show vbModal
End With
End Sub
'Here is the code for that Public Sub which should be in frmUpdate
Public Sub MP_ClientDetails(lngClientId As Long, strCustData() As String)
Dim bytCount As Byte
'Here we assign the values from our Array into the textboxes on
'frmUpdate (Obviously this could be changes to a grid or ??)
For bytCount = 0 To UBound(strCustData, 1)
txtCustDetails(bytCount).Text = strCustData(bytCount)
Next bytCount
End Sub
I really suck at explaining things but hope this helps a little.
If confusion reigns just tell me and I will try explain in a different way
Regards
Cliff
|
|
|
|
|
hi cliff
thank you for your help
it really work
thank you very much
|
|
|
|
|
Have a canvas 700 x 500.
Want to paste an image on it . My image can be smaller or bigger than the Canvas. Smaller image fits fine on the canvas...
But if I have an image larger than the canvas...how can I resize it without blurring the image??
I believe photoshop can reduce image size without blurring/squeshing the image..so, it reduces the image without messing it up...
Is this doable in .Net? Ca i resize/reduce an image to fit a 700x500 canvas without messing up how the image looks??
any ideas/sample code/website would be great to get me going...
|
|
|
|
|
I think all you need to do is set the InterpolationMode to Bicubic instead of Default.
Example:
e.Graphics.InterpolationMode = Drawing.Drawing2D.InterpolationMode.Bicubic
e.Graphics.DrawImage(bmpImage, destRect, srcRect, GraphicsUnit.Pixel)
Look up InterpolationMode in the help for all of the different modes.
To not know is bad.
To not wish to know is worse.
|
|
|
|
|
hmmm, I will... i didnt see InterpolationMode.Bicbic in Scott Mitchell's dicusstion but will look into it.
Thanks for the lead.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
