-
LoadPicture Function
Hi, I was wondering where I have to save my images in order to use the loadpicture function?
I dont know what directory to save my images to for the application to source from.
so far I have only come up with this pathetic little code...
Private Sub Command2_Click()
LoadPicture (belfast.jpg)
End Sub
Do i need to display the ".jpg" or how do I go about this?
thanks andy
-
Re: LoadPicture Function
Andy, try not to open new thread if it is relevant to one of your previous that's currently active - just continue on ...
-
Re: LoadPicture Function
Sorry!!!
can you help me with this please? I thought of maybe having a command buttone in the form which linked to the relevant image? do you know how i would go about this?
andy
-
Re: LoadPicture Function
I did show you how in your other thread ... :confused:
-
Re: LoadPicture Function
Sorry could you please explain what i need to do with this code a little more? I am finding it hard to understand VB!!
thanks
visual basic code:--------------------------------------------------------------------------------
Option Explicit
Private Type tHousing
sName As String
End Type
Dim arHousing() As tHousing
Private Sub Command1_Click()
Static i%
lblName.Caption = arHousing(i).sName
Image1.Picture = LoadPicture(App.Path & "\" & arHousing(i).sName & ".bmp")
i = i + 1
If i > UBound(arHousing) Then i = 0
End Sub
Private Sub Form_Load()
ReDim arHousing(2)
arHousing(0).sName = "Mayflower"
arHousing(1).sName = "Sunny Side"
arHousing(2).sName = "Western"
End Sub
-
Re: LoadPicture Function
Just go back to your previous thread, please.
-
Re: LoadPicture Function
Hi can someone tell me if this code looks ok, to create a graph from four text boxs in a form:
Public Sub showgrf()
Dim iCol, iRow, imax As Integer
Dim X() As Variant
imax = 1
ReDim X(1 To 5, 1 To imax + 1)
iRow = 1
X(1, iRow) = "Period"
X(2, iRow) = "1996 "
X(3, iRow) = "1998 "
X(4, iRow) = "2000 "
X(5, iRow) = "2002 "
iRow = 2
X(1, iRow) = 0
X(2, iRow) = myProperty(Val(txtSaveAs.Text)).p96
X(3, iRow) = myProperty(Val(txtSaveAs.Text)).p98
X(4, iRow) = myProperty(Val(txtSaveAs.Text)).p00
X(5, iRow) = myProperty(Val(txtSaveAs.Text)).p02
MSChart1.ChartData = X
End Sub
Thanks andy