| |
|
| |||||||
 |
| | Seçenekler |
|
#1
24-12-2007, 12:15
| ||||||
| ||||||
popup menu ile kes kopyala ve yapıştırpopup menu ile kes kopyala ve yapıştır Private Sub buyuk_Click() If Text1.SelLength = 0 Then 'seçili kısım yoksa tümünü çevir Text1.Text = UCase(Text1.Text) Else Text1.SelText = UCase(Text1.SelText) End If End Sub Private Sub Form_Load() menu.Visible = False End Sub Private Sub kes_Click() 'şeçili kısmı panoya al Clipboard.SetText Text1.SelText 've sil Text1.SelText = "" End Sub Private Sub kopyala_Click() 'şeçili kısmı panoya kopyaLA Clipboard.SetText Text1.SelText End Sub Private Sub kucuk_Click() If Text1.SelLength = 0 Then 'seçili kısım yoksa tümünü çevir Text1.Text = LCase(Text1.Text) Else Text1.SelText = LCase(Text1.SelText) End If End Sub Private Sub sil_Click() 've sil Text1.SelText = "" End Sub Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 'sağ fare tuşuna basıldı ise If Button = 2 Then PopupMenu menu, 4, Text1.Left + X, Text1.Top + Y End If End Sub Private Sub yapıstır_Click() 'şeçili kısmı panoya kopyaLA Text1.SelText = Clipboard.GetText() End Sub  |
|
| Arama Etiketleri: kes, kopyala, menu, popup, yapistir |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konu Açanlar | Forum | Cevaplar | Güncel Mesajlar |
| Popup şeklinde üye olma uyarısı - vBulletin | becerikliforum | Template Modifikasyonları | 1 | 08-09-2008 04:23 |
| ŞOK!!! ŞOK!!! ŞOK!!! 25 YTL'ye POPUP REKLAM!!! | ismbat | Reklam verme - Reklam alma | 2 | 28-03-2008 10:18 |
| Textarea yı buton ile kopyala | Miliotta | Html kodları | 0 | 12-03-2008 12:02 |
| sayfayı ilk ziyaretinde popup mesaj gösterme | banias | Javascript kodları | 0 | 25-11-2007 09:57 |
| Popup Açtırma Çok Basit | B737 | SMF | 0 | 17-11-2007 06:09 |
 |  |
