Image and Form Size 1

allyeric · Apr 7, 2000

On my form, I have an image that I need as a background pic.  I have the form maximize when running, but the image does not maximize.  How can I fix this?  I would like it to fill the screen no matter what setting the screen is at.  Any help is greatly appreciated. Thanks

misterstick · Apr 7, 2000

Form.Picture property draws the image at screen resolution with top-left at 0, 0. use API call BitBlt() to draw directly on the form. Public Declare Function BitBlt Lib "gdi32" Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long hDestDC = Form.hDC x = 0 y = 0 nWidth = Form.ScaleWidth (in PIXELS) nHeight = Form.ScaleHeight (in PIXELS) hSrcDC = ContainerObject.hDC (some object with its Picture property set to the image you want to use) xSrc = 0 ySrc = 0 dwRop = &HCC0020 (copy) see MSKB article Q147810 <<A HREF="

http://support.microsoft.com/support/kb/articles/q147/8/10.asp&gt"

TARGET="_new">

http://support.microsoft.com/support/kb/articles/q147/8/10.asp&gt</A>;

for more info. mr s. <

allyeric · Apr 7, 2000

thank you for responding.  But, I am pretty new to this, I did read the article you referred to, but still a little confused.  Where do I put this code?  I added it as a separate function, but I am getting an error.  Is there something else I need to do?

allyeric · Apr 7, 2000

ok, I figured out where to put the code, but still getting an error - with the hDestDC  line ...  do I put my form name in there?  Or my image object name?  

misterstick · Apr 10, 2000

the hDestDC (DC = device context, the handle of the object windows draws onto) is the DC of the destination, so pass <yourformname>.hDC as the first parameter. don't store this value in a variable since it may change. stephen. <

allyeric · Apr 10, 2000

I did put my form name as hDC - but still get an error, invalid outside procedure ??  why is this?

misterstick · Apr 11, 2000

i'm sorrry, i should have made this clearer. you can only ever run code from inside subs or functions. if you use Public Declare... it should go in a .bas module. if on the other hand you use Private Declare..., it goes in the declarations section of the form (before the first sub or function). call BitBlt() inside the Form_Paint() or Form_Resize() procedures. so something like: Option Explicit Public Declare Function BitBlt Lib... Private Sub Form_Paint() If BitBlt(Form.hDC, ...) = 0 Then   ' Error checking End If End Sub remember that BitBlt() returns non-zero when it succeeds, but not necessarily (well, almost definitely) not -1, so you can't use Not to check for this. Not 1 is -2, which is also equivalent to True. mr s. <

allyeric · Apr 11, 2000

I am sorry - I am just not getting this.  I am still getting the same error in the hDestDC = frmResults.hDC line.  Here is what I have in my code ... Option Explicit Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal XSrc As Long, ByVal YSrc As Long, ByVal dwRop As Long) As Long hDestDC = frmResults.hDC X = 0 Y = 0 nWidth = frmResults.ScaleWidth '(in PIXELS) nHeight = frmResults.ScaleHeight '(in PIXELS) hSrcDC = frmResults.hDC '(some object with its Picture property set to the image you want to use) XSrc = 0 YSrc = 0 dwRop = &HCC0020 '(copy) End Sub ----------------------------------------- Private Sub Form_Paint() If BitBlt(Form.hDC, 0, 0, frmResults.ScaleWidth, frmResults.ScaleHeight, frmResults.hDC, 0, 0, &HCC0020) = 0 Then   ' Error checking End If End Sub I really do appreciate you taking the time to help me with this.

misterstick · Apr 11, 2000

sorry, i didn't mean to confuse you. the variable = value lines were to show you what to put in the parameters. so, set the ScaleMode property of your form to 3 - Pixel in the form designer. it goes like this: Option Explicit Private Declare Function BitBlt Lib "gdi32" _   (ByVal hDestDC As Long, _    ByVal X As Long, _    ByVal Y As Long, _    ByVal nWidth As Long, _    ByVal nHeight As Long, _    ByVal hSrcDC As Long, _    ByVal XSrc As Long, _    ByVal YSrc As Long, _    ByVal dwRop As Long) _    As Long Private Sub Form_Paint() If BitBlt(frmResults.hDC, 0, 0, frmResults.ScaleWidth, frmResults.ScaleHeight, picStore.hDC, 0, 0, &HCC0020) = 0 Then   ' Error checking End If End Sub use Err.LastDLLError to check the error as API call GetLastError has (apparently) a serious memory leak. hope this helps. mr s. <

allyeric · Apr 11, 2000

ok, I changed my code.  I don't get any more errors, but its still not working.  Doesn't Form_Paint() only get called when user resizes the form?  In my case, the user cannot resize the form, it opens up maximized.  Therefore, the paint function is never called.  And, I created a picStore object and put it on the form (?) but should this object be visible or not?  

misterstick · Apr 11, 2000

hmm. a sudden rush of self-doubt sent me rushing to vb to test if my memory was right or not. doesn't work for me. copies the screen background fine. never trust what you read in the manual. so, how about using an Image control with the Stretch property set to True, Top and Left to 0, and resizing in the Form_Resize event. Private Sub Form_Load() Image1.Stretch = True Image1.Top = 0 Image1.Left = 0 Image1.zOrder 0 End Sub Private Sub Form_Resize() If Me.WindowState = vbMinimized Then Exit Sub Image1.Width = Me.ScaleWidth Image1.Height = Me.ScaleHeight End Sub this is probably simpler too if you don't mind the overhead. you can also use the PaintPicture method of the Form object: Private Sub Form_Resize() Me.PaintPicture picStore.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight End Sub

allyeric · Apr 11, 2000

that works great!  Well, except for one small problem - I have some labels on the form, and they stay behind the background when I run it - I did set the background to Send to Back - but makes no difference - the text boxes are fine, its just the labels that don't show up.

misterstick · Apr 11, 2000

the Paint event: Occurs when part or all of an object is exposed after being moved or enlarged, or after a window that was covering the object has been moved. (MSDN) so pretty much whenever the object needs to be repainted. the nWidth and nHeight parameters of BitBlt seem to be ignored, so use StretchBlt instead: Option Explicit Private Declare Function StretchBlt Lib "gdi32" _   (ByVal hdc As Long, _    ByVal x As Long, _    ByVal y As Long, _    ByVal nWidth As Long, _    ByVal nHeight As Long, _    ByVal hSrcDC As Long, _    ByVal xSrc As Long, _    ByVal ySrc As Long, _    ByVal nSrcWidth As Long, _    ByVal nSrcHeight As Long, _    ByVal dwRop As Long) _    As Long Private Sub Form_Paint() If StretchBlt(frmResults.hdc, _           0, 0, _           frmResults.ScaleWidth, frmResults.ScaleHeight, _           picStore.hdc, _           0, 0, _           picStore.ScaleWidth, picStore.ScaleHeight, _           &HCC0020) = 0 Then Stop End Sub only problem is Paint doesn't seem to be called when the form is made smaller (huh?) but since yours is maximised that doesn't matter. mr s. <

allyeric · Apr 11, 2000

I used the other way - with the image - and it works perfectly - as for the label question I had, its ok now too, I changed the z-order of the image. Thank you very much for your time and assistance!!

allyeric · Apr 11, 2000

uh oh - I have another problem with that now! (And just when you thought you were done with me!) When I change my screen size from 1024 x 768 to 800 x 600 the background no longer fits - its too big.  And, while we are on the subject, is there any way I can have all my controls on that form to move as form resizes?  What I mean is, when I created the controls on the form, they were in the right place that I wanted them to be, but when the form maximizes, they are no longer on the same place on the form, no longer centered so to speak.  

misterstick · Apr 11, 2000

so, you've use the resizing Image control with stretch set to True to display the image. if you set the Width to Me.ScaleWidth and the Height to Me.ScaleHeight, i don't see how it can be too big. could you post the code? if you want to set the positions of the controls on the form when it is resized, there's no easy way to do it. you have to work out where you want them (relatively), and then set the Top, Left, Width and Height properties for each control seperately. example: form has a label and a textbox at the top, then a full width and height multiline text box, then another label/textbox pair at the bottom of the form ' X = border;- = label;. = textbox ' ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' X-Label1---------------X.Text1................X ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' X.Text2.......................................X ' X.............................................X ' X.............................................X ' X.............................................X ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ' X-Label2---------------X.Text3................X ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX Private Sub Form_Resize() Label1.Width = (Me.ScaleWidth - 3 * Label1.Top) / 2 Text1.Width = Label1.Width Text1.Left = (Me.ScaleWidth + Label1.Top) / 2 Text2.Top = Label1.Height + 2 * Label1.Top Text2.Width = Me.ScaleWidth - 2 * Label1.Top Text2.Height = Me.ScaleHeight - 2 * Label1.Height - 3 * Label1.Top Label2.Top = Me.ScaleHeight - Label2.Height - Label1.Top Label2.Width = Label1.Width Text3.Top = Label2.Top Text3.Width = Label1.Width End Sub you'll get errors if the form is too small or minimised... mr s. <

allyeric · Apr 11, 2000

I added that code to two separate forms, and on one it works perfectly, but on the other doesn't get smaller when I change screen size.  The only difference between the two forms, is that on the form that doesn't work properly, I have other code in the form load as well as your code.  On the other form, only code I have in form load is yours.  I tried changing where I put your code in the function, first or last, but didn't make a difference either.

misterstick · Apr 11, 2000

when you say it doesn't work, what do you mean? doesn't compile, gives a runtime error, or doesn't resize the image on the form? some code would really help here. mr s. <

<a href=mailto: > </a> <a href= > </a> why does it never do what is says it does in the manual?

allyeric · Apr 11, 2000

sorry - what I meant is it doesn't resize the image on the form.  As for code, if I copied it, I am sure it would be alot of useless information, as most of it is just queries and putting the query results on the form. But, here it is anyways. Private Sub Form_Resize() If Me.WindowState = vbMinimized Then Exit Sub imgBackground.Width = Me.ScaleWidth imgBackground.Height = Me.ScaleHeight End Sub ---------------------------- Private Sub Form_Load() X = 15 Dim FrmPass As String Dim MCIndex As Integer Dim Index2 As Integer Dim NewIndex As Integer Dim C, R As Integer Dim Pass As String 'Open the database For lQuestionNumber = 1 To 24     strSQL = "SELECT * FROM Exam_SRHEXA16 where Question_No =" & lQuestionNumber     Set con = New ADODB.Connection     con.Open "DSN=Training;UID=;PWD=;"     Set rs = con.Execute(strSQL)     While Not rs.EOF         sAnswers(lQuestionNumber - 1) = rs("Answer_Text&quot

sCorrectAns(lQuestionNumber - 1) = rs("Correct_Answer&quot

sCorrectAns2(lQuestionNumber - 1) = rs("Correct_Answer&quot

sQuestion(lQuestionNumber - 1) = rs("Question_Text&quot

sAnswers2(lQuestionNumber - 1) = rs("Answer_Text&quot

rs.MoveNext      Wend Next Pass = frmPassword.txtPassword.Text For C = 1 To Len(Pass)         R = R + Asc(Mid$(Pass, C)) Next 'randomize answers from database       For lJumble = 1 To (R \ 5)             lrandom = Int(Rnd * 23)             sTempQues = sQuestion(lrandom)             sQuestion(lrandom) = sQuestion(lJumble Mod 3)             sQuestion(lJumble Mod 3) = sTempQues       Next For lQuestionNumber = 0 To 23     If sQuestion(lQuestionNumber) <> "XXX" Then         lblQuestion(Index).Caption = sQuestion(lQuestionNumber)         Index = Index + 1    End If Next 'print questions on form For Index = 0 To 23     lblAnswers(Index).Caption = sAnswers(Index) Next 'print employee's answers to form     For Index2 = 0 To 19         lblAnswers(Index2).Caption = (sAnswers(Index2))         strSQL = "UPDATE Emp_Questions set Ques_" & (Index2 + 1) & "= '" & lblQuestion(Index2).Caption & "' where No_Employe = " & frmPassword.txtEmpNo.Text         Set rs = con.Execute(strSQL)     Next For Index = 0 To 19     strSQL = "SELECT * From Exam_SRHEXA16 WHERE Question_Text = '" & lblQuestion(Index) & "'"     Set rs = con.Execute(strSQL)     With frmResults         .txtQuestion(Index).Text = lblQuestion(Index)         If rs("Correct_Answer&quot

= "15" Then             .txtCorrAns(Index).Text = "13"             .txtAnswerText(Index).Text = "Micro Circuit"         Else             .txtCorrAns(Index).Text = rs("Correct_Answer&quot

.txtAnswerText(Index).Text = rs("Answer_Text&quot

End If      End With      rs.MoveNext Next          imgBackground.Stretch = True imgBackground.Top = 0 imgBackground.Left = 0 imgBackground.ZOrder 1 End Sub

misterstick · Apr 12, 2000

it looks like your code isn't reaching the imgBackground lines. your code is like this: Private Sub Form_Load() 'Code Block One X =... 'Code Block Two imgBackground.... End Sub if code block two only runs if code block one isn't present, it suggests that code block one doesn't finish. some errors aren't caught by vb and dump you out of the procedure with no notification (the API is especially terrible for this). you could try putting the image initialisation at the beginning of the procedure instead. if this works and the image resizes you should step debug the rest of the code. if moving the code doesn't work you could always set the properties directly at design time using the properties window. mr s. <

<a href=mailto: > </a> <a href= > </a> why does it never do what is says it does in the manual?

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Image and Form Size 1

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Programmer

Similar threads

Log in

Part and Inventory Search

Sponsor