很久沒有上這里了,今天看到了這個問題,嘗試做了一個;
10多年的長沙網(wǎng)站建設經(jīng)驗,針對設計、前端、開發(fā)、售后、文案、推廣等六對一服務,響應快,48小時及時工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設備顯示端的尺寸不同,自動調(diào)整長沙建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設計,從而大程度地提升瀏覽體驗。創(chuàng)新互聯(lián)從事“長沙網(wǎng)站設計”,“長沙網(wǎng)站推廣”以來,每個客戶項目都認真落實執(zhí)行。
本例以源文本框TextBox1全部文字作為拖放文字為例,實現(xiàn)拖放
1、向一個窗體中添加兩個文本框,分別名為TextBox1,TextBox2。注意:把TextBox2控件的AllowDrop屬性設置成True,這點不要遺漏。
2、完整的代碼如下:
Public Class Form1
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
'設置一個標志以顯示鼠標已按下。
MouseIsDown = True
End Sub
Private Sub TextBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
If MouseIsDown Then
'開始拖動(將TextBox1的文本內(nèi)容作為拖放內(nèi)容)。
TextBox1.DoDragDrop(TextBox1.Text, DragDropEffects.Copy)
End If
MouseIsDown = False
End Sub
Private Sub TextBox2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragEnter
'檢查正在被拖放的數(shù)據(jù)的格式。
If (e.Data.GetDataPresent(DataFormats.Text)) Then
'顯示復制光標(表示是拖放行為)。
e.Effect = DragDropEffects.Copy
Else
'顯示不放置光標(表示不是拖放行為)。
e.Effect = DragDropEffects.None
End If
End Sub
Private Sub TextBox2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles TextBox2.DragDrop
'粘貼文本(將拖放內(nèi)容作為TextBox2的文本內(nèi)容)。
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
End Class
這個問題不是小問題。如果只是90度轉(zhuǎn),vb.net的picture控件有RotateFlip方法。
任意角度,可以參考這個
;cs-lang=csharp
圖片的變換涉及坐標處理,要自己算。
還有可以用Windows Presentation Foundation (WPF) 編程,里面的image控件好像也能旋轉(zhuǎn)圖片。
如果是VB6,恐怕只能用API函數(shù)了,百度一下“vb 旋轉(zhuǎn)圖片” “VB api函數(shù)”了解一下
VB的Label控件內(nèi)的漢字文字向左(逆時針)轉(zhuǎn)90度,可對控件的Fonf屬性進行設置,選有@前綴的漢字字體,并調(diào)整好Labei控件的尺寸,并對WordWrap 屬性和AutoSize 屬性進行必要設置。
WordWrap 屬性
返回或設置一個值,該值用來指示一個 AutoSize 屬性設置為 True 的 Label?
控件,是否要進行水平或垂直展開以適合其 Caption 屬性中指定的文本的要求。
AutoSize 屬性,返回或設置一個值,以決定控件是否自動改變大小以顯示其全部內(nèi)容。
為了決定 Label 控件如何顯示其內(nèi)容,應使用此屬性。例如,一個動態(tài)改變的圖形可能具有一個包含的文本也發(fā)生改變的Label。為了使 Label 保持水平方向尺寸不變并允許增加或減少文本,則應將 WordWrap 和?AutoSize 屬性設置為 True。
VB.net可以做,,繪制的不是圖片,還是控件,這就有點難了。
建議你還是先把文字畫到一張圖片上,然后再對圖片旋轉(zhuǎn),淡入淡出都好做。
我可以幫你,但暫時沒有時間。如果你會vb,那么你自己看Help Library學下其中的函數(shù)怎么用就行了。
buffer?=?"79?6F?75?20?63?68?6F?6F?73?65?20?73?70?65?65?64?21?0A?0A?32?35?35?2C?32?35?35?2C?32?35?35?0A"
arr?=?Split(buffer,?"?")
For?i?=?0?To?UBound(arr)
s?=?s??Chr(Val("h"??arr(i)))
Next
MsgBox?s