Skip to content

Instantly share code, notes, and snippets.


Vladimir Vissoultchev wqweto

  • Unicontsoft
  • Sofia, Bulgaria
View GitHub Profile
wqweto / Form1.frm
Last active Mar 25, 2019
PNG filter on save
View Form1.frm
Option Explicit
Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function GdiplusStartup Lib "gdiplus" (hToken As Long, pInputBuf As Any, Optional ByVal pOutputBuf As Long = 0) As Long
Private Declare Function GdipLoadImageFromFile Lib "gdiplus" (ByVal lFilenamePtr As Long, hImage As Long) As Long
Private Declare Function GdipDisposeImage Lib "gdiplus" (ByVal hImage As Long) As Long
Private Sub Form_Load()
Dim aInput(0 To 3) As Long
wqweto / LabelVert.ctl
Created Mar 7, 2019
Windowless Vertical Label control
View LabelVert.ctl
Begin VB.UserControl LabelVert
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
CanGetFocus = 0 'False
ClientHeight = 3372
ClientLeft = 0
ClientTop = 0
ClientWidth = 4980
wqweto / mdJson.bas
Last active Dec 17, 2020
JSON parsing/dumping/accessing functions for VB6 and VBA
View mdJson.bas
' JSON parsing and dumping functions
Option Explicit
DefObj A-Z
Private Const MODULE_NAME As String = "mdJson"
wqweto / mdCollection.bas
Last active Dec 16, 2020
[VB6/VBA] Collection keys
View mdCollection.bas
Option Explicit
#Const HasPtrSafe = (VBA7 <> 0)
#Const LargeAddressAware = (Win64 = 0 And VBA7 = 0 And VBA6 = 0 And VBA5 = 0)
'--- for CopyMemory
#If HasPtrSafe Then
Private Const NULL_PTR As LongPtr = 0
Private Const NULL_PTR As Long = 0
wqweto / mdBlurBitmap.bas
Last active Oct 18, 2019
[VB6] Blur effect on GDI+ bitmaps
View mdBlurBitmap.bas
Option Explicit
DefObj A-Z
'--- for VirtualProtect
Private Const PAGE_EXECUTE_READWRITE As Long = &H40
Private Const MEM_COMMIT As Long = &H1000
'--- for CryptStringToBinary
Private Const CRYPT_STRING_BASE64 As Long = 1
'--- for gdi+
Private Const ImageLockModeRead As Long = &H1
wqweto / oledbinterfaces.idl
Created Dec 6, 2018
OLEDB interfaces for feeding DataSource property of bound-controls
View oledbinterfaces.idl
helpstring("OLEDB Interfaces 1.0")
library OLEDBInterfaces
wqweto / usp_nom_Gener_PriceListsChildren.sql
Created Nov 16, 2018
This stored procedure generates client price lists upon parent price list modification
View usp_nom_Gener_PriceListsChildren.sql
IF OBJECT_ID('usp_nom_Gener_PriceListsChildren') IS NOT NULL DROP PROC usp_nom_Gener_PriceListsChildren
-- exec usp_sys_StartOperation @User='ucs'
exec dbo.usp_nom_Gener_PriceListsChildren 1,NULL,'{B0CEBE23-AA32-42D3-9FEC-082CA8B977F8}',NULL,NULL,'F715F915-4D3F-4710-A257-DD34BD2442B1'
-- exec dbo.usp_nom_Gener_PriceListsChildren 3, 7, '{F0736D5D-0004-43BE-859D-731DDD2EC5A8}', NULL, NULL, '6F0D3E0C-7CEE-4A2B-985B-C3C40ED6015C'
SELECT * FROM nom_priceLists WHERE PriceList_ID = 'B0CEBE23-AA32-42D3-9FEC-082CA8B977F8'
wqweto / suffix.peg
Created Oct 31, 2018
PEG.js proof of concept for zig
View suffix.peg
= AsyncPrefix SuffixExpr FnCallArgumnets
/ PrimaryExpr SuffixOp*
= AsyncPrefix (PrimaryExpr SuffixOpBeforeLParen?) FnCallArgumnets
/ (PrimaryExpr SuffixOp*)
wqweto / cPrintersCombo.cls
Created Oct 17, 2018
Based on [Retrieving icons of current user printers](
View cPrintersCombo.cls
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
Attribute VB_Name = "cPrintersCombo"
Attribute VB_GlobalNameSpace = False
wqweto /
Last active Sep 28, 2018
FAQ for Dreem POS

Q: Как да избера най-бързо клиентска карта по код, дори ако кодът съвпада с ИН/БУЛСТАТ на друг контрагент?
A: На новия ред напишете кода на картата, след което натиснете F2, например 204 F2

Q: Как да изтрия последния избран продукт без да използвам стрелки от клавиатурата?
A: Натиснете Del на новия ред

Q: Как да променя количеството на последния избран продукт без да използвам стрелки от клавиатурата?
A: Натиснете F4 на новия ред и редактирайте реквизит Количество, например "Супа от губи" в последствие се разбира че е половинка

Q: Как да създам нов контрагент за фактура без да въвеждам име и адрес?