Sy bagi referensi Coding nya ya...
'Deskripsi: Membuat suatu form bisa tampil paling atas dari setiap aplikasi'
yang sedang dijalankan.'Pembuat : Masino Sinaga ([EMAIL
PROTECTED])'Persiapan: 1. Buat 1 Project baru dengan 1 Form dan 1 Module, dan 2
Commandbutton.' 2. Copy-kan coding berikut ke dalam editor
Module/Form
ybt.'----------------------------------------------------------------------------------'Tombol
pertama untuk membuat tampil paling atas dari segalanya.'Tombol kedua untuk
membuat form kembali seperti posisi sebelumnya. '--- Coding ini di
Module...Declare Function SetWindowPos Lib "user32" (ByVal h%, ByVal hb%,
_ByVal x%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal F%) As IntegerGlobal Const
SWP_NOMOVE = 2Global Const SWP_NOSIZE = 1Global Const flags = SWP_NOMOVE Or
SWP_NOSIZEGlobal Const HWND_TOPMOST = -1Global Const HWND_NOTOPMOST = -2'---
Batas coding di Module... '--- Coding ini di Form...Private Sub
Command1_Click() res =
SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, flags)End Sub Private Sub
Command2_Click() res = SetWindowPos(Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0,
flags)End Sub'--- Batas coding di Form...
Semoga Bermanfaat...
Salam Sukses,
xBudi_S
----------------------------
Belajar dan terus Belajar
----- Original Message ----
From: kiki <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, November 30, 2007 10:51:46 AM
Subject: [Programmer-VB] mencegeah form utama ditutup sebelum form lainnya di
tutup terlebih dahulu
Hai Semua,
Ada yang tahu
gak, bagaimana caranya mencegah form utama yang kita bikin tidak bisa ditutup
jika form yang lainnya masih terbuka.
Salam, Kiki
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.503 / Virus Database: 269.16.9/1158 - Release Date: 28/11/2007
9:11 PM
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
<!--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-->
<!--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;}
#ygrp-tpmsgs{
font-family:Arial;
clear:both;}
#ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-actbar{
clear:both;margin:25px 0;white-space:nowrap;color:#666;text-align:right;}
#ygrp-actbar .left{
float:left;white-space:nowrap;}
..bld{font-weight:bold;}
#ygrp-grft{
font-family:Verdana;font-size:77%;padding:15px 0;}
#ygrp-ft{
font-family:verdana;font-size:77%;border-top:1px solid #666;
padding:5px 0;
}
#ygrp-mlmsg #logo{
padding-bottom:10px;}
#ygrp-vital{
background-color:#e0ecee;margin-bottom:20px;padding:2px 0 8px 8px;}
#ygrp-vital #vithd{
font-size:77%;font-family:Verdana;font-weight:bold;color:#333;text-transform:uppercase;}
#ygrp-vital ul{
padding:0;margin:2px 0;}
#ygrp-vital ul li{
list-style-type:none;clear:both;border:1px solid #e0ecee;
}
#ygrp-vital ul li .ct{
font-weight:bold;color:#ff7900;float:right;width:2em;text-align:right;padding-right:.5em;}
#ygrp-vital ul li .cat{
font-weight:bold;}
#ygrp-vital a{
text-decoration:none;}
#ygrp-vital a:hover{
text-decoration:underline;}
#ygrp-sponsor #hd{
color:#999;font-size:77%;}
#ygrp-sponsor #ov{
padding:6px 13px;background-color:#e0ecee;margin-bottom:20px;}
#ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;}
o{font-size:0;}
..MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
..replbq{margin:4;}
-->
____________________________________________________________________________________
Never miss a thing. Make Yahoo your home page.
http://www.yahoo.com/r/hs
