Visual Basic Foro

¿ Y que es lo que quieres hacer ?, en este ejemplo basado de uno de codeproject, cada frame de la rotacion del pie se dibuja completo en un buffer y luego se copia en el usercontrol, lo que da la sensacion de que esta rotando, el control dibuja pie 2d y 3d






http://www.mediafire.com/file/dbjcqyma8in01e0/PieControl.rar

Para trabajar gdiplus en vb6 utilizo una clase wrapper de psc, que te permite usar gdiplus casi con la misma sintaxis de .net

GpGDIPlus Wrapper v1.0---Using GDI+ From VB
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=45451&lngWId=1

the C++ code on CodePage has been updated. Refer to https://www.codeproject.com/Articles/35759/A-Simple-Pie-Chart-Control-Improved-D-Pie-Chart

VBAccelerator is the best side for advance stuff. But I found nothing regarding the scrollbar's bugs. After debugging, I put offset -1 in MAX calculation and checking codes in Value calculation. Problem resolved.

The fix is here: http://www.vbforums.com/showthread.php?762497-RESOLVED-VBAccelerator-Scrollbar-Class-Issue&p=4663499&viewfull=1#post4663499

@Jen: VB6's Err.Description?

No errors.

Edited: After removing the resource file, it can compile.

Y en psc esta LynxGrid

LynxGrid had big issue with unicode windows (non-unicode setting on your PC).

Jen, lo he descargado y lo he vuelto a subir en 4Shared porque quiza es como dice Raul que tienes bloqueado el megaupload

Traduction:
Jen, I downloaded and I have gone up in 4Shared because maybe is like Raul says you have blocked megaupload.

Download 4Shared

To YAcosta & Raul,
Thanks.
You are true. megaupload is being blocked.

TO ssccaann43:
Interesting. I saw our immigration used those machines to scan foreign workers' fingers.
There are many dll files. Could you please write a simply description for them?

BioMini
Saludos a todos, espero les guste el aporte.

Descargar

Buen día

Download link is invalid.

Why LVN_LINKCLICK notification can't trigger?

ElseIf (uNMH.hwndFrom = m_hListView) Then
      Select Case uNMH.code
                Case LVN_LINKCLICK
                 MsgBox "Triggered"

Código: [Seleccionar]

'In Demo form
ucListview1.GroupTask(1)= "Group 1 Task"

'In uc
Public Property Let GroupTask(ByVal GroupID As Long, Text As String)

Dim tGRP As LVGROUPW
Dim lR    As Long

    If m_hListView Then
            With tGRP
                .cbSize = Len(tGRP)
                .Mask = LVGF_TASK
                .pszTask = StrPtr(Text)
                .iGroupId = GroupID
            End With
            lR = SendMessageLong(m_hListView, LVM_SETGROUPINFO, GroupID, VarPtr(tGRP))
    End If

End Property


I saw an article named" CListCtrl and Grouping Rows" on codepage.com ( http://www.codeproject.com/KB/list/CListCtrl_Grouping.aspx). He also use LVN_LINKCLICK notification to detect a Link clicked.

#include "stdafx.h"
#include "CListCtrl_Category_Groups.h"

#include <shlwapi.h>
#include "Resource.h"
//#include "ListCtrl_Category_GroupsDef.h"

BEGIN_MESSAGE_MAP(CListCtrl_Category_Groups, CListCtrl)
   ON_WM_CONTEXTMENU()   // OnContextMenu
   ON_WM_LBUTTONDBLCLK()
   ON_NOTIFY_REFLECT_EX(LVN_COLUMNCLICK, OnHeaderClick)   // Column Click
#if _WIN32_WINNT >= 0x0600
   ON_NOTIFY_REFLECT_EX(LVN_LINKCLICK, OnGroupTaskClick)   
#endif
END_MESSAGE_MAP()

BOOL CListCtrl_Category_Groups::OnGroupTaskClick(NMHDR* pNMHDR, LRESULT* pResult)
{
#if _WIN32_WINNT >= 0x0600
   NMLVLINK* pLinkInfo = (NMLVLINK*)pNMHDR;
   int nGroupId = pLinkInfo->iSubItem;
   CheckEntireGroup(nGroupId, true);
#endif
   return FALSE;
}

Follow up on 26/7/2011:
Still failed to find the way to resolve this issue. Subclass doesn't issue LVN_LINKCLICK notification at all. I saw someone complained the same problem on VB.NET: http://social.msdn.microsoft.com/Forums/en/vbgeneral/thread/c4caf1ac-94b8-4d32-92aa-aec1cdcd9171

Edited on 26/7/2011 19:00:
    I see.
    LVN_LINKCLICK  notification was inhibited by WM_LBUTTONDOWN message if we bypassed the def procedure.
    Case WM_LBUTTONDOWN
       If GroupHeaderHitTest then bHandled = True

Cita de: Jen en Julio 10, 2011, 11:18:54 am

...
Please refer this:
1.  http://cboard.cprogramming.com/windows-programming/74680-moving-items-listview.html
2. Audica 0.6.0 source  http://winandfx.narod.ru/data/project_audica_0.6.0_src.zip

Get off this, but when I run I get this error message:

Can't load BASS library

What should I do?

Thank

Traslate with google.

I am sure the code can run on VB6.
Register the dll and supply right Path:

There're two ways to do:
1. Put BASS.DLL and tags.dll into your Application Folder then change the below code

2. Put BASS.DLL and tags.dll to your System Folder C:\Windows\System32 without any modifications.

Private Function initBass() As Boolean
    ' change and set the current path, to prevent from VB not finding BASS.DLL
    ChDrive App.path
    ChDir App.path
   
    If b(libbass, LoadLibrary(App.Path & "\" & "bass.dll")) Then
        ' check the correct BASS was loaded
        If (HiWord(BASS_GetVersion) <> BASSVERSION) Then
            Call MsgBox("An incorrect version of BASS.DLL was loaded", vbCritical)
            Exit Function
        End If
        ' initialize default output device
        If (BASS_Init(-1, 44100, 0, frm_info.hwnd, 0) = 0) Then
            Call Error_("Can't initialize device")
            Exit Function
        End If
        ' check that DX8 features are available
        Dim bi As BASS_INFO
        Call BASS_GetInfo(bi)
        If (bi.dsver < Then
            Call Error_("DirectX 8 is not installed")
            Call BASS_Free
            Exit Function
        End If
        ' load tag-reading library
        If Not b(libtags, LoadLibrary(App.Path & "\" & "tags.dll")) Then
            Call MsgBox("Can't load tags.dll", vbCritical)
            Call BASS_Free
            Exit Function
        End If
        initBass = True
    Else
        Call MsgBox("Can't load BASS library", vbCritical)
    End If
End Function