Search:

Type: Posts; User: Argus19

Page 1 of 8 1 2 3 4

Search: Search took 0.04 seconds.

  1. Re: Picture Box or Image for a Flappy Bird Game

    The last statement of the "Objekt.PaintPicture" method is RasterOp. By applying different RasterOp constants, you can get different results. From simple copying to mixing images.
  2. Replies
    11
    Views
    413

    Re: Subscript out of range

    Hi, Ramco
    It's clear.
    If the array is two-dimensional, then first you need to re-declare it:

    Dim Arr() As String
    '.................
    ReDim Arr(First meaning, Second meaning ) 'So that...
  3. Replies
    11
    Views
    413

    Re: Subscript out of range

    Dim Arr() As String
    '.................
    ReDim Arr(1) 'So that there is no mistake
    '...............
    If counter > UBound(Arr, 1) Then
    ReDim Preserve Arr(counter) As String
    End If
  4. Replies
    11
    Views
    413

    Re: Subscript out of range

    If counter > UBound(Arr, 1) Then
    ReDim Preserve Arr(counter) As String
    End If
  5. Replies
    11
    Views
    413

    Re: Subscript out of range

    Show the code for declaring the array.
  6. Re: get part of string in html page

    The site is not well written.
    I found a website parsing module on the Internet.
    Form, large text box and button.
    Form code:

    'Text1.MultiLine = True
    'Text1.ScrollBars = 2
    Option Explicit
    Dim...
  7. Replies
    0
    Views
    172

    PictureBox Properties

    PictureBox has two properties:

    Picture1.Picture.Handle
    Picture1.Image.Handle
    For example, in PictureBox, an image is loaded using the method

    Picture1.Picture = LoadPicture.......
    Drawing is...
  8. Re: get part of string in html page

    I was able to get the content of the page into a text variable:

    'Text1.MultiLine = True
    'Text1.ScrollBars = 2
    Option Explicit
    Dim Syte As String
    Private Sub Command1_Click()
    Syte =...
  9. Replies
    70
    Views
    14,731

    Re: Planet Source Code Jumbo Resource CDs

    At the request of a colleague and in case more PSC disks are found, I am posting the source codes of the .psc file decoder program.
  10. Replies
    1
    Views
    194

    Re: Open a form from "minimized" to "normal"

    All modes work for me when the program starts

    Private Sub Form_Load()
    Me.WindowState = vbMaximized 'vbNormal 'vbMinimized
    End Sub
  11. Replies
    15
    Views
    574

    Re: (VB6) - Zoom up image and reverse

    Perhaps I did not take into account something. Take a look:
    https://disk.yandex.ru/d/F9gbsSVP4QMgLg
  12. Replies
    15
    Views
    574

    Re: (VB6) - Zoom up image and reverse

    There is an endless loop with stops when the maximum and minimum image size is reached.
  13. Replies
    15
    Views
    574

    Re: (VB6) - Zoom up image and reverse

    Giorgina, With this method, the image gradually appears from around the corner in parts.
    I made two Pictureboxes. The second is invisible. I scale the first one and copy the whole image from the...
  14. Re: suggestion to write 5 vales per line from an array

    Either form an array so that it is always a multiple of five (add spaces), or after each iteration, when reading, count the remaining number of elements and, when there are less than five of them,...
  15. Re: How to determine the refresh rate range of the monitor screen?

    Thank you. I read it. It is not clear how to implement it yet.
  16. How to determine the refresh rate range of the monitor screen?

    The EnumDisplaySettings function determines the current display rate of the monitor. How do I determine all the refresh rates supported by the monitor?
  17. Thread: How Large

    by Argus19
    Replies
    16
    Views
    624

    Re: How Large

    The program demonstrates how to use the click sound in the button and in the exit button of their program.
    https://disk.yandex.ru/d/HjqTwyPtidA0qA
  18. Re: How Do I Draw a Shaded Area Dynamically in a PictureBox?

    Cut out part of the code from the program. No variable declarations.
    When you press the left mouse button and move it, a rectangle is drawn with coordinates in public variables that can be used
    ...
  19. Replies
    4
    Views
    370

    Re: How to resize the mouse pointer

    The easiest way is to create your own cursor, remember the old one, set your own, and when the program exits, restore the previous cursor.
    Functions required:

    Private Declare Function SetCursor...
  20. Re: Is it possible to program a search for the buttons on the surface of the form?

    Private Sub Form_Activate()
    Dim ctrl As Control
    Dim s As String

    For Each ctrl In Me.Controls
    With ctrl
    s = s & .Name
    On Error GoTo index_error
    ...
  21. Re: Transparency with WIA Automation

    I took the color detection function from here:
    https://docs.microsoft.com/en-us/previous-versions/windows/desktop/wiaaut/-wiaaut-iimagefile-argbdata
    To display the resulting color in the Shape...
  22. Re: Transparency with WIA Automation

    VB color sequence: RGB (red, green, blue) does not match WIA ARGB colors?
  23. Replies
    5
    Views
    409

    Re: Printing a color

    You did not write in what format the report is created.
    If the file is in .txt format, then color insertion is not possible.
    If in .doc or .xls formats, then you can.
  24. Re: Transparency with WIA Automation

    dilettante, I uploaded a .gif file and it came out transparent.
    Thanks.
  25. [RESOLVED] Transparency with WIA Automation

    On the page:
    https://docs.microsoft.com/ru-ru/previous-versions/windows/desktop/wiaaut/-wiaaut-howto-use-filters#argb-filter-create-a-modified-version-of-an-image
    an example of transformation of...
  26. Replies
    25
    Views
    1,638

    Re: How Recognize geometric shapes

    Mojtaba, shapes - just a circle, a triangle and a star?
    Are the shapes the same size?
  27. Re: How to load a .WEBP image into a PictureBox using WIC?

    Steve Grant, dilettante.
    Checked your modules on Windows 10. Works great.
  28. Replies
    3
    Views
    418

    Re: Function

    Simple example:

    Option Explicit
    Dim A1 As Single, A2 As Single

    Private Sub Form_Activate()
    'Assigning some values to variables
    A1 = 25.426
    A2 = 1.315
    Print RetString(A1, A2) ...
  29. Replies
    3
    Views
    418

    Re: Function

    Decimal values - single or double precision real numbers?
  30. Re: How to load a .WEBP image into a PictureBox using WIC?

    Here is the code for the form:

    Option Explicit
    Dim cWICImage As New cWICImage
    Dim iWidth As Long
    Dim iHeight As Long

    Private Sub Command1_Click()
    cWICImage.OpenFile App.Path & "\Mik.webp"...
  31. Re: How to load a .WEBP image into a PictureBox using WIC?

    I have, when trying to load a .webp image, the OpenFile method exits at the line:

    If IWICImagingFactory_CreateDecoderFromFilename_Proxy(m_ImgFact, StrPtr(sFile), UUID_NULL, GENERIC_READ, _
    ...
  32. Re: How to load a .WEBP image into a PictureBox using WIC?

    Thanks. The class works fine with bmp, gif and jpg formats, but does not work with webp format.
  33. Re: How to load a .WEBP image into a PictureBox using WIC?

    cWicImage.cls requires a link to oleexp.tlb.
    I wrote:
    How to load .WEBP image into PictureBox using WIC functions without using .tlb?
  34. How to load a .WEBP image into a PictureBox using WIC?

    On the page:
    https://www.vbforums.com/showthread.php?891043-VB6-In-memory-convert-to-JPEG-using-WIC
    wqweto gave a great example of converting .bmp image to .jpeg using WIC functions.
    How to load...
  35. Replies
    13
    Views
    1,840

    Re: [VB6] In memory convert to JPEG using WIC

    Unfortunately, due to lack of knowledge of the English language, I could not find out if it is possible to get the playing time of animated .gifs using the WIC functions?
  36. Replies
    10
    Views
    541

    Re: WITH PRINTER...image

    Top middle:

    Printer.PaintPicture picBarCode.Image, (Printer.Width - picBarCode.ScaleWidth) / 2, 0, picBarCode.ScaleWidth, _
    picBarCode.ScaleHeight, 0, 0, picBarCode.ScaleWidth,...
  37. Thread: Extending VB6

    by Argus19
    Replies
    70
    Views
    4,952

    Re: Extending VB6

    While working.
    Olaf writes the IDE alone. This is the feat of Hercules.
    Does anyone say that he does it out of boredom ?!
  38. Thread: Extending VB6

    by Argus19
    Replies
    70
    Views
    4,952

    Re: Extending VB6

    If we started talking about sexual associations ...
    VB 6.0 programmers have become an oppressed minority against which Microsoft is waging a deliberate genocide. To deprive your favorite programming...
  39. Replies
    11
    Views
    915

    Re: What FRACTAL have you created in VB6?

    Comments in the file are not translated into English.
  40. Replies
    70
    Views
    14,731

    Re: Planet Source Code Jumbo Resource CDs

    This phenomenon is observed even when communicating between citizens of the same country.
Results 1 to 40 of 318
Page 1 of 8 1 2 3 4



Click Here to Expand Forum to Full Width