Mensajes

jajaja pues si,casi todos son para mostrar informacion...que se yo...textbox..listbox...combobox...flexgrid...datagrid...listview..mhflexgrid...labels...etc...

la verdad,la verdad,no entendi... 

[Enabled = False]

pues probe asi como el tuyo pero con 2 textbox y funciona,vos tenes que seleccionar el texto primero y despues ahi podes arrastrarlo..para ahorrarte seleccionarlo podes que cuando tome el foco el textbox se seleccione todo el texto...no tendran alguna propiedad activada qeu le cambiaste y por eso no anda,antes dijiste que estaban bloqueados,pero lo unico que les afecta es el Enabled = False pero con el Locked = True sige funcionando...

saludos.

EDITADO: esta todo bien ...me fije mal... y una pregunta de que textbox a cual queres pasar por ejemplo...?

jaja esto no es para finalizar procesos, es para no mostrarlo en el adminstrador de tareas...

proba el codigo que te puse yo en un proyecto nuevo y vas a ver que funciona...despues fijate en el tuyo como armarlo...tenes que seleccionar el texto que queres arrastrar para que funcione...

al no saber yo como es el GEOMEDIA, ni como se usa...perdona pero no puedo ayudarte...

saludos.

Código (vb) [Seleccionar] Expandir

imgRetrato.Picture = LoadResPicture(1, vbResBitmap)

bueno mira primero no hace falta poner toda la ruta del notepad....la funcion shell trabaja sobre la carpeta del sistema por lo que poner esto es suficiente...

Código (vb) [Seleccionar] Expandir

Shell "notepad.exe", vbNormalFocus

y lo otro que queria decir es que, el codigo a mi no me funciona...el proceso se ve igual...Leandro habia posteado una vez un ejemplo casi igual en otro foro...

saludos.

Hola,pues se me ocurre asi,puede haber otras formas...

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
Text1.OLEDragMode = 1
Text2.OLEDropMode = 1
End Sub

Private Sub Text1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Text1.OLEDrag
End Sub

Private Sub Text2_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text2.Text = Data.GetData(1)
End Sub

saludos.