Clik here to view.
Path Rotation with GDI+
Illustrates how to rotate a GDI+ path around a center axis. Uses a simple transformation matrix. Useful for certain drawing applications. I originally wrote this for use with certain elements of a...
View ArticleClik here to view.
(VB6) Compare two controls interfaces
And tell the differences. This project is related to the other one: Replicate control interface or encapsulate control into UserControl. Attached Images Attached Files...
View ArticleCreateThread Sample--Vfb(Visual Freebasic),vb7,WinFBE
Code: Sub Form1_Command2_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd) '单击 Dim ABC As String Ptr = New String *ABC = "China" 'CreateThread (NULL,0,@ThreadSub,ABC,0,0) Threaddetach...
View ArticleAll Freebasic Code Sample,Vfb(Visual Freebasic),Like VB6,VB7
VB6 has stopped updating for 25 years. We have a development tool similar to VB6. Everyone is welcome to use it together and let the VISUAL BASIC syntax last forever. vfb(visual freebasic),ide like...
View ArticleCall PrintF,MessageboxW by Asm,Call windows api--Vfb(Visual...
Code: dim as string frmt = !"%s %s\n" dim as string hello = "Hello" dim as string world = "world" asm mov eax, [world] push eax mov eax, [hello] push eax mov eax,...
View Articlesorry,Chrome OCX,Miniblink,VB6 chromium,Chrome core only one dll
Chrome OCX,Miniblink,VB6 chromium,Chrome core only one dll download node.dll from here: https://github.com/weolar/miniblink49/releases GitHub - imxcstar/vb6-miniblink-SBrowser: Miniblink control made...
View Article[VB6] Simple VNC Server using DXGI Desktop Duplication
https://github.com/wqweto/VbVncServer A single-class VNC server for embedding in LOB applications for built-in client support. Very much work in progress but first cut seems to work. Based on RFC 6143...
View ArticleClik here to view.
The fastest way to download web pages(GET,POST)
Research using multiple methods to download web pages and choose the fastest solution One of the test application examplesï¼ best way to get or save utf-8 content url faster?(https support)-VBForums...
View Articlevb6 Show Gif Movie by ActiveMovie control(DirectShow),WebBrowser
Code: Private pMC As FilgraphManager Private pVW As IVideoWindow Private Sub Form_Load() 'Reference quartz.dll#ActiveMovie control type library Me.ScaleMode = 3 Picture1.ScaleMode = 3 End Sub Private...
View ArticleClik here to view.
vb6 Gif Ocx/Png OCX,Show Movie by DirectShow,WebBrowser,AniGif.OCX
Usercontrol.ctl about Webbrowser GIF(PNG ,JPG),Support Url,Localdisk File [gif ocx,Png ocx] activex control Code: Dim WithEvents M_Dom As MSHTML.HTMLDocument Public Event ImgClick() Private Url As...
View ArticleClik here to view.
Neumorphism Design
In this case, it is, on the one hand, a class Module and, on the other, a Usercontrol to create a modern user interface called Neumorphism, which began to become fashionable as of 2020, although it is...
View Article[VB6] In memory convert to JPEG using WIC
This uses Windows Imaging Component to convert a bitmap (a 32-bit DIB) to a JPEG stream purely in memory. Paste the following code in a .bas module: Code: Option Explicit Private Declare Function...
View ArticleClik here to view.
Get Rgb info by GdipBitmapLockBits,Read Bitmap into a 2D array
Read Bitmap into a 2D array test in form1.frm Code: Private Sub Form_Load() StartUpGDIPlus Dim Data() As RgbType Data = GetPicBmpData_RGB(App.Path & "\BMP1.bmp") MsgBox "One Pixel rgb=" &...
View ArticleClik here to view.
Transparent Control By Multiple transparent windows form
Multiple transparent windows form a transparent program How do you switch between multiple windows without changing the focus of the form?If you have five windows with similar layers and click and...
View ArticleClik here to view.
Transparent Activex Control,WS_EX_LAYERED on child controls
Starting from Window 8, WS_EX_LAYERED can be used for child controls. Method: A manifest file is required, and at least Window 8 compatibility is specified (sub-layering only supports starting from...
View ArticleClik here to view.
VB6 UserControl-Transparency Container
'TransparencyOcx(Transparent container) 'Like PictureBox(NOT for Set Picture),Can Put Controls on it 'Don't Remove Area() Control change code in sub ShowAllChildArea: Code: Sub ShowAllChildArea() Dim...
View ArticleTransparent text Box by CreateWindowEx(edit)
How to Transparent text Box by CreateWindowEx(edit)? .BackgroundBrush = CreatePatternBrush(Form1.Image1.Picture.Handle) 'IT'S good CODE FROM HERE YOU GUYS MUST BE SMARTER THAN THIS...-VBForums...
View ArticleMsgbox With Picture
how to change use TRANSPARENT color? GetStockObject(HOLLOW_BRUSH)? SubMsgBox = CreatePatternBrush(Form1.Picture.Handle) form1.frm Code: Option Explicit Private Sub Form_Load() Me.Picture =...
View ArticleClik here to view.
MySimpleProjects
6 small apps from my in progress program folder. In various stages of completion , but generally working. Attached Files My Projects.zip (95.9 KB)
View ArticleVB6 Transparent Textbox By API(WM_CTLCOLOREDIT)
How to use API to set text to transparent and accept cursor in vb Code: '在窗体Form代码中，把以下代码复制进去: 'IN FORM1 Private Sub Form_Load() makeTransparentTextbox Text1 'Text1 '是需要透明的文本框 End Sub 'BAS FILE: APIs...
View Article