9,977 Topics

Member Avatar for
Member Avatar for cambalinho
Member Avatar for cambalinho

heres my RayCasting function: Private Sub DrawRays2() Dim AY As Double Dim AX As Double Dim StepX As Double Dim StepY As Double Dim VertX As Double Dim VertY As Double Dim HorizX As Double Dim HorizY As Double Dim MapX As Long Dim MapY As Long Dim HorizDist As …

Member Avatar for cambalinho
1
53
Member Avatar for SCBWV

In case you're wondering, VB6 programs run on Windows 11. Programs with a manifest have the appropriate Windows 11 appearance. The IDE works as well, although it seems to aggravate the known Windows 11 Taskbar flickering issue, but it settles down quickly. The only issue I have found so far …

Member Avatar for wolfnero
1
1K
Member Avatar for cambalinho

i'm using CreateDIBSection(): Public Function NewImage(ByVal ImageWidth As Long, ByVal ImageHeight As Long, Optional color As ColorConstants = vbBlack) As Long If (Width > 0 Or Height > 0 Or hBitmap > 0 Or PointerPixelData > 0) Then DeleteImage Width = ImageWidth Height = ImageHeight 'Criar HDC MemoryHDC = CreateCompatibleDC(0) …

Member Avatar for rproffitt
0
16
Member Avatar for cambalinho

how send parameters on CreateThread()? on a class: Option Explicit Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal …

Member Avatar for rproffitt
0
47
Member Avatar for cambalinho

i have tried several ways, but i always get an overflow error :( how can i combine the ARGB color elements? Public Function ARGB(ByVal alpha As Byte, ByVal red As Byte, ByVal green As Byte, ByVal blue As Byte) As Long Dim color As Variant color = CDec(alpha) * 256 …

Member Avatar for cambalinho
0
74
Member Avatar for cambalinho

see these 'for' loop: Public Function SetTransparentColor(color As Long) Dim X As Integer Dim Y As Integer Dim c As Long Dim h As Long Dim w As Long Dim temp As BGRAQUAD ' substitua BGRColor pelo tipo de dado correto usado em bDibBGRA h = Height - 1 w …

Member Avatar for Reverend Jim
0
94
Member Avatar for Syed Zubair

Dear Team, I am underprocess of a working for Tailor software where i need your kind and appreciation advise. I have fields of cloth like shirt and trouser of a customer, when i enter the records into database it is working well if single shirt or single trouser. **I want …

Member Avatar for rproffitt
0
52
Member Avatar for Syed Zubair

Dear All, I have a project where I have to transfer records from one datagrid control to another datagrid control (like list.additem formation) I have two datagrids in my project and both are connected with ADODC. First datagird showing record at run time, when select a row and click to …

Member Avatar for rproffitt
0
38
Member Avatar for cambalinho

using the Circle method and knowing the start angle(playerangle-30) and end angle (playerangle+30), in degrees, how can i draw the arc?

Member Avatar for cambalinho
0
58
Member Avatar for Joaquim_5

how can i use CopyMemory() on VB6? i have these funcion: Public Sub Clear(BGRColor As Long) Dim i As Long For i = 0 To (Width * Height) - 1 CopyMemory ByVal PixelData(0) + (i * 4), vbGreen, 4 Next i End Sub how can avoid the 'for' loop? i …

Member Avatar for Gulshan_6
1
195
Member Avatar for fx.eko

hi.. I have a problem when compiling the program created in VB6, an error message suddenly appears visual basic has stopped working the condition of the laptop that I use with 4GB memory specifications does this correlate directly while executing the process compile, while if I compile the program with …

Member Avatar for AndreRet
0
67
Member Avatar for cambalinho

heres a sample of using pointers on VB6: Option Explicit Private Const BI_RGB = 0 Private Const CBM_INIT = &H4 Private Const DIB_RGB_COLORS = 0 Private Const USE_BITMAP_ALPHA = &H1000000 Private Type BITMAPINFOHEADER biSize As Long biWidth As Long biHeight As Long biPlanes As Integer biBitCount As Integer biCompression As …

0
75
Member Avatar for mankind33

Hi there, I am a beginner and need your kind support to build an application in VB6. I want to know how to attach a VOLUME CONTROL to a MMcontrol of VB6 in the form. Please reply to [email removed] Thanks and atb.

Member Avatar for frank_49
-1
358
Member Avatar for Joaquim_5

how can i read a file to StdPicture? and draw it on memory HDC? Public Sub LoadImage(strPath As String) Dim myPic As New StdPicture Set myPic = LoadPicture(strPath) NewImage myPic.Width, myPic.Height BitBlt MemoryHDC, 0, 0, Width, Height, myPic.Handle, 0, 0, SRCCOPY 'i get only a black background color End Sub

Member Avatar for rproffitt
1
103
Member Avatar for Joaquim_5

i use the RtlFillMemory(): Call RtlFillMemory(ByVal DataPtr, DIBInf.bmiHeader.biSizeImage, &H80) the '&H80' is the mid-grey color.... what are the others colors code?

Member Avatar for Joaquim_5
0
319
Member Avatar for Joaquim_5

with CreateDIBSection() we create an array of DIB's pixels .. but it's a copy and not a pointer :( when i change 1 pixel or draw a rectangle, i must re-create the DIB's and then draw the result. Private bmpPtr() As Long ReDim bmpPtr(ImageWidth * ImageHeight - 1) hBitmap = …

1
38
Member Avatar for Joaquim_5

on VB6 i have these code for create a memory DC: Public Sub CreateMemoryBitmap(ByVal Width As Long, ByVal _ Height As Long) If (ImageWidth > 0 Or ImageHeight > 0) Then DeleteMemoryBitmap ImageWidth = Width ImageHeight = Height ' Create the device context. hdc = CreateCompatibleDC(ByVal 0&) If (hdc = …

Member Avatar for SCBWV
0
198
Member Avatar for Joaquim_5

i can create a DDA algoritm.. but pixel a pixel. so what is the best speed for it? IncrementPixel = 2 For RayAngle = StartAngle To EndAngle Step IncrementAngle Distance = 0 Wall = 0 RayActualX = RayX RayActualY = RayY IncrementStepSin = Sin(RayAngle) * IncrementPixel IncrementStepCos = Cos(RayAngle) * …

Member Avatar for rproffitt
0
108
Member Avatar for arcon

when editing it does it well on the screen but it doesn't save the data correctly example Option Explicit Private Type molde_agenda id As String nombre As String * 40 imagen As String * 250 End Type Dim Datos As molde_agenda Dim DatosTemp As molde_agenda Dim FileFree As Integer Dim …

Member Avatar for AndreRet
0
114
Member Avatar for fx.eko

Hello all I've been using it for years SQL SERVER 2014 Standard and language VB6 programming, but only this time get the following error: Run-time error '-2147467259 (80004005)': [DBNETLIB][ConnectionWrite (WrapperWrite().]General network error Has any of you guys ever experienced this?? what is this caused by?? thanks for the enlightenment Regards,

Member Avatar for antonio78
1
137
Member Avatar for arcon

I need to read the id of the datos.txt file datos.txt file information: 1 a dreamstime_3361539.jpg 1 b dreamstime_7231733.jpg 2 c dreamstime_19009914.jpg 2 d dreamstime_66340321.jpg 3 r F100010793.jpg 3 t music-girl-1366-768-5394.jpg 3 p orig_shutterstock_5515123.jpg when i put the value in text2.text in 1 it has to come out 1 a …

Member Avatar for pritaeas
0
108
Member Avatar for arcon

I'm doing an inventory application in a random file, everything works fine, but I need to delete the record through combobox. I don't know what I'm doing wrong. It loads the data to the textboxes and when deleting the specific record it is not deleted The program is made in …

Member Avatar for arcon
0
118
Member Avatar for om_138

Hi I am creating a employee management system with ms access and VB6. I need code for marking and view attendance. Can anyone help me ?

Member Avatar for SCBWV
1
103
Member Avatar for arcon

Hi, I'm Arcon. I have a problem when saving records, it saves a record and when it saves another it overlaps the first record when reading records with its id it does not read it to me correctly thank you

Member Avatar for SCBWV
0
277
Member Avatar for NewAccount

Hello, I have 2 questions, i'm not sure if it's even possible but if I'm wrong please correct me. So, i need to run my .exe file in cmd via vb6, is it possible? And second,if it's possible to run, how can I find the path and the name of …

Member Avatar for rproffitt
0
27
Member Avatar for NewAccount

Hello everyone, I'm not sure if it's even possible, but I'm curious if it's possible to find my .exe file if it's uploaded to mediafire.com(for example) I know if the file is on my computer I can use `App.Path & "\" & App.EXEName & ".exe"`,

0
36
Member Avatar for willianrc

Im trying to populate Listbox with Columns but I didn't get success. Below is my code. I populated Listbox with text file: on users.txt: 1|Jhon|street 3|12/03/1985 2|Peter|strt2|29/09/2009 3|Scoby|street 1|11/02/2001 Here is my code to populate , as you can see there's delimiter "|". Public Sub Pathway(way As Variant) 'SET DATABASE …

Member Avatar for SCBWV
3
1K
Member Avatar for Thao_14

hi I'm new to coding, I'm have a Visual Basic project for the memory game. it basically lets the player flips over 2 cards, if those 2 cards match, they disappear, if they don't, they flip back. the game end when all the cards disappear. I have completed the code …

Member Avatar for Reverend Jim
0
86
Member Avatar for eson dc

Hi everyone, Can someone help me about Vb6? I have 2 data reports that is connected into 1 data environment. my 1st data report works fine but the second one displays invalid data source. help me please.

Member Avatar for rproffitt
0
29

The End.