Excellent as always sir ,Can this be done using two listview, plus can one of the two listview act like an image of active cell on a worksheet, if you drag one item to another listview that item will be added to the active cell. Thanks a lot in advance
Hi George, in episode-8 (link below) we learned how to add file drag-drop feature to your UI using listview. You can follow the same approach (if an image is added to listview you'll need to consider the height of the image instead of font size). th-cam.com/video/y5_A9o37AKg/w-d-xo.html 1. For example, set from here Private Sub ListView3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS) 2. And catch from here. Private Sub ListView3_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, _ Button As Integer, Shift As Integer, x As Single, y As Single) I hope this makes sense, if needed we'll make another video with listview too. All the best!
First of all sir, i realy appreciate you took the time to reply, second maybe i was not very clear about the question , i want the list virw to act like an image ( display the content of the active cell in rows ) in other terms if an active cell contain 2 or maybe 3 numbers i want it to display each in number in a single row. Hope i was clear enough
Hi George, you can call me Pamai. I'm not fully understanding the question. If you want code to read the data and reflect them in listview and when items are drag-drop between listviews show the changes back in cells it can be done. If you're talking about the image (picture) of cell(s) be auto-converted and added ti listview that too can be done. Feel free to email me examples if this is something you're trying to achieve.
Excellent presentation. I use the MS Access VBA environment for my work extensively. I have just recently investigated using drag & drop, but I'm not clear if the Access VBA supports it. I have been unable to use the BeforeDragOver and BeforeDropOrPaste events. Am I doing something wrong or is this simply not supported in Access? I plan to watch more of your presentations! Thanks in advance....
Nice work! I don't know why I didn't find your channel before! I'm subscribed now and I'll be checking out your other videos! One question - how did you determine the 85% factor? Is this independent of screen resolution?
Hi there, please check below video on how to set dark theme to your VBE. th-cam.com/video/K_sj0GBSLew/w-d-xo.html Also please subscribe for upcoming videos.
Hi, thank you so much for the video, it helped me a lot. I am using Listbox for reordering data in worksheets. After I drag and drop data in Listbox, I would like to select that same data so I can visualize where am I dropping it. I tried with putting this after your code Listbox1_BeforeDropOrPaste: If to_lb_indx < from_lb_index Then Me.ListBox1.ListIndex =to_lb_indx Else Me.ListBox1.ListIndex =to_lb_indx-1 End If and when I put a breakpoint after that part of the code, it works great. But after closing the sub Listbox1_MouseMove, the selection goes back to to_lb_indx Can you help me? :)
Excel return an error when a ListBox is empty and you try to drag. I put this line in MouseMove Sub and works: " On Error GoTo Finalize . . . Finalize: End Sub "
@@VBAA2Z I think you have the wrong approach here. Someone with low VBA programming skills, would be able to take a ready-made functionality and adopt it but would very likely fail to follow your tutorial from the beginning to the end. If you don't want to give it away for free, why won't you just sell it for a low amount? Better earning on it something than nothing at all. Some folks would probably be willing to pay something to obtain the file. I actually received an inquiry from a prospect who wanted me to create it for him based on your tutorial. So it's just my two cents to you...
![สาวเมืองเพชร - ธีเดช ทองอภิชาติ [Official MV]](http://i.ytimg.com/vi/kEt7F9PvO3I/mqdefault.jpg)
Project uploaded to Google drive. Please check the video description for the download link.
I found it on point and very useful. Thank you
Glad it was helpful!
Very informative and simplified. I just gave it a try and it works fab. Thank you thank you
Great to hear!
Thanks for simplifying it. Excellent and helpful.
Glad it was helpful!
This is brilliant, thank you
Glad you enjoyed it!
this is really interesting channel, love it. thank you
Glad you enjoy it!
very helpful. thank you.
This is great!!!thank you
Glad it was helpful!
just great
Glad you like them! thanks for watching
Excellent as always sir ,Can this be done using two listview, plus can one of the two listview act like an image of active cell on a worksheet, if you drag one item to another listview that item will be added to the active cell. Thanks a lot in advance
Hi George, in episode-8 (link below) we learned how to add file drag-drop feature to your UI using listview. You can follow the same approach (if an image is added to listview you'll need to consider the height of the image instead of font size).
th-cam.com/video/y5_A9o37AKg/w-d-xo.html
1. For example, set from here
Private Sub ListView3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As stdole.OLE_XPOS_PIXELS, ByVal y As stdole.OLE_YPOS_PIXELS)
2. And catch from here.
Private Sub ListView3_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, x As Single, y As Single)
I hope this makes sense, if needed we'll make another video with listview too.
All the best!
First of all sir, i realy appreciate you took the time to reply, second maybe i was not very clear about the question , i want the list virw to act like an image ( display the content of the active cell in rows ) in other terms if an active cell contain 2 or maybe 3 numbers i want it to display each in number in a single row. Hope i was clear enough
Hi George, you can call me Pamai.
I'm not fully understanding the question. If you want code to read the data and reflect them in listview and when items are drag-drop between listviews show the changes back in cells it can be done. If you're talking about the image (picture) of cell(s) be auto-converted and added ti listview that too can be done. Feel free to email me examples if this is something you're trying to achieve.
Excellent presentation. I use the MS Access VBA environment for my work extensively. I have just recently investigated using drag & drop, but I'm not clear if the Access VBA supports it. I have been unable to use the BeforeDragOver and BeforeDropOrPaste events. Am I doing something wrong or is this simply not supported in
Access? I plan to watch more of your presentations! Thanks in advance....
Yes we can use it in Access too.
I'll try and cover in new series.
Nice work! I don't know why I didn't find your channel before! I'm subscribed now and I'll be checking out your other videos! One question - how did you determine the 85% factor? Is this independent of screen resolution?
If I remember correctly cpearson blog discussed these topics
fantastic!!!
Thank you! Cheers!
Thanks
No problem
Where does your 0.85 come from? To get my drop index to work correctly I needed to use 0.04. Have I done something wrong?
No, you haven't done anything wrong
0.85 might need to be adjusted based on font size and screen resolution to make accurate drag-drop
Thanks for the video... how you got the syntax highlighting as dark theme
Hi there, please check below video on how to set dark theme to your VBE.
th-cam.com/video/K_sj0GBSLew/w-d-xo.html
Also please subscribe for upcoming videos.
Can you please tell me how to create user form scroll down /up through Mouse
Sure Mahesh, I'll cover more UI videos including this this topic.
Hi, thank you so much for the video, it helped me a lot. I am using Listbox for reordering data in worksheets. After I drag and drop data in Listbox, I would like to select that same data so I can visualize where am I dropping it.
I tried with putting this after your code Listbox1_BeforeDropOrPaste:
If to_lb_indx < from_lb_index Then
Me.ListBox1.ListIndex =to_lb_indx
Else
Me.ListBox1.ListIndex =to_lb_indx-1
End If
and when I put a breakpoint after that part of the code, it works great. But after closing the sub Listbox1_MouseMove, the selection goes back to to_lb_indx
Can you help me? :)
where can I download the code?
Please check video desc. for link
Excel return an error when a ListBox is empty and you try to drag.
I put this line in MouseMove Sub and works:
"
On Error GoTo Finalize
. . .
Finalize:
End Sub
"
I forgot to thankyou man! This work is brilliant! Thank you very much!
@@JulesGroup you're welcome!
Good job with showing this technique. From where can we download the sample file?
I'm just curious about the accent, are you originally from India?
Thanks. To promote code yourself, projects/codes downloads are not available. Please let me know if you're stuck / need help. Yes you're right :)
@@VBAA2Z I think you have the wrong approach here. Someone with low VBA programming skills, would be able to take a ready-made functionality and adopt it but would very likely fail to follow your tutorial from the beginning to the end. If you don't want to give it away for free, why won't you just sell it for a low amount? Better earning on it something than nothing at all. Some folks would probably be willing to pay something to obtain the file. I actually received an inquiry from a prospect who wanted me to create it for him based on your tutorial. So it's just my two cents to you...
@@Thunderin11 thanks for your suggestion.
Dear sir, please make menu with sub menu drop down like web page without user form please make.
I ain't able to access the source code from GoogleDrive Link: "You need access" Can you help me?
Hi Julio - Simply click on Request Access.
@@VBAA2Z Done! Waiting for your approval :)
@@JulesGroup please check again.
@@VBAA2Z Worked! Thank you very much! This will help me a lot.
@patas :
spammer :)
#atm :
《》
.fill
.folder
.file
:
.pop
linux. .lotte
linux. .fanta
linux. .vans
linux. .levis
linux. .nano
linux. .sega
linux. .intel
nano. .linux
ym. .txt
om. .url
ms. .elf
pos. .mt
xl. .pos
pos. .xl
cap. .tm
pop. .id
vox. .ic
cop. .ai
bug. .ip
sub. .ui
vox. .fN
dos. .Rx
bug. .Xd
box. .nR
vex. .dc
metromini. .rot
metromini. .cell
metormini. .rod
metromini. .poll
metromini. .clip
fill. .metromini
fill. .file
studio. .patas
distro. .metro
distro. .patas
patas. .metro
fill. .folder
file. .fill
metromini. .fill
folder. .fill
fill. .fill
txt. .fill
lite. .fill
rod. .fill
life. .fill
fill. .line
fill. .live
elf. .fill
fill. .hot
url. .fill
alt. .fill_
×0×0×0×0×0×0×0× :
《》×0×0×0×0×0×0×0× :
:
: .0.0.0.0.0.0.0.
'```×0×0×0×0×0×0×0× :
《```'{ .: °telkomsel '```: ×[.*.0.0.0×0×0×0×|>>ו×÷×0××0×÷ו××0×0×0ו•×0×0×0×
.0.0.0.0.0.0.0. ×0×0×0×0×0×0×0× .0.0.0.0.0.0.0.
'```《```'{×0×0×0×*.0.0.0×
|×0.0.0.*×0×0×0×}'```》
:
:
.
:
×0×0×0×
|×0×0×0×
×
:
×[.*.0.0.0.0.0.0.0.*.]×
×
×0×0×0×0×0×0×0× :
.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0. ×0×0×0×0×0×0×0× .0.0.0.0.0.0.0.
'```《```'{×0×0×0×*.0.0.0×
|×0.0.0.*×0×0×0×}'```》
:
: .
:
×0×0×0×
|×0×0×0×
×
:
×[.*.0.0.0.0.0.0.0.*.]×
×
×0×0×0×0×0×0×0× :
: ```'
. : .
:
:
: :
÷××÷
: ×
÷
× : : × 0
0
:
《'{××}
'》××
×0×0×0×0×0×0×0× :
: : ÷ ÷ : ÷ ÷ : ×0×0×0×0×0×0×0×: : : :
'```《```'{×
*(+-×0×0×0×|'{×|×0×0×0×|《×[.*.0.0.0×0×0×0×|.0.0.0.0.0.0.0.|×0×0×0.0
0.*.]×》|×0×0×0×|×}'|×0×0×0×-+)*~*(-+×0×0×0×*.0.0.0×0×0×0×*.0.0.0×|.0.0.0×|.0.0.0×0×0×0×*.'《××》'.*×0×0×0×0.0.0.|×0.0.0.|×0.0.0.*×0×0×0×0.0.0.*×0×0×0×+-)*
.0.0.0.0.0.0.0.
:
.0.0.0.0.0.0.0.
×}'```》
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×:
.0.0.0.0.0.0.0.
```'
:
:
:
:
.0.0.0.0.0.0.0.
: . . : ×0×0×0×0×0×0×0× ×[.*.0.0.0×0×0×0× | | ×0×0×0×0.0.0.*.]× .0.0.0.0.0.0.0. ×0×0×0×0×0×0×0× ×| |× ×0×0×0×0×0×0×0× : × × .0.0.0.0.0.0.0. ×0×0×0×0×0×0×0× ×>× ×||× × :
×
°telkomsel _: :
:
×0×0×0×0×0×0×0×
×|×[.0.0.0×0×0×0×
《
: ÷
》'.*×0×0×0×0.0.0.]×|×
×0×0×0×*.0.0.0×*.0.0.0×0×0×0× |'《 : ```'
. : .
:
:
: : :
: :
:
:
:
×0×0×0×0×0×0×0× :
×0×0×0×0×0×0×0×
:×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
: .0.0.0.0.0.0.0.
×|🌡️|×_
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
:×[.0×
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
: .0.0.0.0.0.0.0.
×|*(+-×0×0×0×*.0.0.0×0×0×0×*.0.0.0×|>>•×0×
.metromini
.unisoviet
.sixlline
.metropollitan
.unilliver
.tacobell
.vollcom
.bank
.fill
.aqua
.nano
.avon
.sega
.lotte
.intel
.linux
.aplle
.pundi
.walls
.atm
.mcd
.phd
.barked
.folder
.file
.track
.clip
.slam
.rod
.poll
.text
.elf
.alt
.dm
.ms
.mt
.om
.tm
.dc
.wd
.ym
.me
.dx
.rC
.hp
.ox
.ps
.Op
.xP
.os
.Gt
.fN
.xp
.Os
.ink
.font
.sys
.wax
.mac
.x
.shc
.exe
.box
.cop
.org
.inc
.y
.vox
.sec
.vex
.pos
.cap
.xC
.Xd
.Rx
.txt
.url
.cell
.pack
.dunk
×0×0×0×0×0×0×0× :
. :
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
: .
: .
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
. :
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
:×[.
.]× :×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
: .0.0.0.0.0.0.0.
.font
.tatto
.tintta
.angka
.alfabet
.huruf
.nomor
.fill
.sub
.bug
.folder
.poll
.clip
.text
.file
.cell
:
.cap
.box
.pos
.pop
.vex
track. .track
slam. .slam
pack. .pack
bank. .bank
dunk. .dunk
fill. .file
fill. .folder
file. .fill
file. .pop
text. .pop
alt. .text
elf. .text
txt. .text
url. .text
fill. .text
dos. .fill
org. .fill
pop. .url
fill. .url
txt. .fill
elf. .fill
sub. .fill
bug. .fill
pop. .fill
pop. .font
pos. .pad
pop. .text
pop. .vex
pop. .cap
pop. .box
vex. .pop
box. .pop
pod. .pos
folder. .fill
fill. .fill
macro. .atm
micro. .atm
atm. .patas
metro. .atm
atm. .makro
patas. .atm
patas. .mikro
vollcom. .atm
atm. .sixlline
atm. .tacobell
pop. .vans
fanta. .pop
fill. .piero
dutta. .fill
lotte. .atm
fanta. .atm
vans. .atm
levis. .atm
fill. .dutta_
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.:
:×[.0×| |×0.]×:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×:
:
×0×0×0×0×0×0×0× :
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
*(+-×0×0×0×*.0.0.0×0×0×0×*.0.0.0×| |×0.0.0.*×0×0×0×0.0.0.*×0×0×0×-+)*~*(-+0×0×0×*.0.0.0×0×0×0×*.0.0.0×||×0.0.0.*×0×0×0×0.0.0.*×0×0×0+-)*
:
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
:×[.*.*.0.0.0×0×0×0×
×0×0×0×0.0.0.*.*.]×:
.pop
hp. .os
hp. .xP
hp. .cX
hp. .Rx
hp. .Op
Os. .Rc
Op. .fM
nitendo. .os
tettrice. .ox
marblle. .ps
rumblle. .op
maxtlle. .hp
xp. .hp
hp. .playstore
hp. .maxtlle
metromini. .atm
sec. .poll
sec. .clip
sec. .rod
sec. .cell
sec. .hot
sec. .kis
sub. .atm
bank. .metromini
metromini. .pack
metromini. .dunk
lotte. .metromini
metromini. .vans
levis. .nusa
pos. .text
text. .mac
pos. .pod
wax. .mac
wax. .text
text. .font
pos. .box
cinderawasih. .pos
pos. .barked
cap. .pos
pos. .cinderawasih
box. .box
piero. .tendencis
pertamina. .chevron
freport. .darllinton
facebook. .portlland
fanta. .metromini
vans. .metromini
levis. .metromini
atm. .atm
atm. .metromini
clip. .ox
exe. .hot
Rx. .poll
sys. .rod
cell. .ic
txt. .hp
sn. .barked
barked. .id
ip. .playstore
playstore. .heat
playstore. .maxtlle
nestlle. .playstore
fill. .whatsapp
fill. .instagram
fill. .facebook
fill. .natteflixe
youtube. .maxtlle
ym. .elf
ms. .text
vox. .alt
om. .url
tm. .fN
mt. .org
wd. .xd
chellullare. .i
internet. .i
ie. .atm
u. .link
track. .txt
txt. .track
wall. .inc
ink. .wall
slam. .txt
link. .g
atm. .ie
paraggone. .i
nattework. .i
i. .facebook
i. .instagram
i. .natteflixe
×0ו
×
×
×
[.'《~××~》'.]
:
:
:
: : :
:
: : ×[.*..*.]×
×0×0×0×0×0×0× :
《
: ×0×0×0×0×0×0×0× ××
:
×
×××0××0×0×0××××
》
×
[ ]
×
:
:
.×0×0×0×0×0×0×0×.
×0×
: 》 《 :
×[.
: :
.]×
×0×0×0×0×0×0×0×
×××××××××××××××0×0×0××
.0.
.
'```
0.0.0.0.0.0.0. :
《```'
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
: : : : :
: :
:
×0×0×0×0×0×0×0×
: .0.0.0.0.0.0.0.
.0.0.0.0.0.0.0. :
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0. : : .0.0.0.0.0.0.0.
'```
》
×[.0.]×
```'
×0×0×0×0×0×0×0× : .0.0.0.0.0.0.0.
《×
×
×
×
[.'《~××~》'.]
:
:
:
: : :
:
: : ×[.*..*.]×
×0×0×0×0×0×0× :
《
: ×0×0×0×0×0×0×0× ××
:
×
×××0××0×0×0××××
》
×
[ ]
×
:
:
.×0×0×0×0×0×0×0×.
×0×
: 》 《 :
×[.
: :
.]×
×0×0×0×0×0×0×0×
×××××××××××××××0×0×0××
.0.
.
'```
0.0.0.0.0.0.0. :
《```'
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
: : : : :
: :
:
×0×0×0×0×0×0×0×
: .0.0.0.0.0.0.0.
.0.0.0.0.0.0.0. :
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0. : : .0.0.0.0.0.0.0.
'```》```'
:
:
:
《 :
×
×0×0×0×0×0×0×0× .0.0.0.0.0.0.0. :
×
: .0.0.0.0.0.0.0.
《×>×》
.
. . : ×
.
. . .
:
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0. :
.0.0.0.0.0.0.0.
×0×0×0×0×0×0×0×
×0×0×0×0×0×0×0×
.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.
× :
》
:
'```.0.0.0.0.0.0.0. :
《```'{×[.0.0.0×0×0×0×0×*.0.0.0×0×0×0×
: .0.0.0.0.0.0.
× .0.0.0.0.0.0.0.
《
××
》
: .0.0.0.0.0.0.0.
:
: ×0×0×0×0×0×0×
'```》```'
.0.0.0.0.0.0.0.
:
.0.0.0.0.0.0.0.
: .0.0.0.0.0.0.0.
.0.0.0.0.0.0.0.
'```:
《```'{
}'```》```'
:
@distro :
spammer :)