VB.NET拖放文本文件到TextBox获得其路径。 VB 文本框 文件拖拽 鼠标松开再显示路径
C# \u9f20\u6807\u62d6\u52a8\u4e00\u4e2a\u6587\u4ef6\u8def\u5f84 \u5230TextBox\u4e2d\u663e\u793a\u8bbe\u7f6e\u5141\u8bb8\u62d6\u653e\uff0c\u5e76\u5904\u7406\u62d6\u5165\u548c\u62d6\u653e\u4e8b\u4ef6
textBox.AllowDrop = true;
textBox.DragEnter += new DragEventHandler(textBox_DragEnter);
textBox.DragDrop += new DragEventHandler(textBox_DragDrop);
\u83b7\u53d6\u6587\u4ef6\u8def\u5f84
void textBox_DragDrop(object sender, DragEventArgs e)
{
string path = ((System.Array)e.Data.GetData(DataFormats.FileDrop)).GetValue(0).ToString();
textBox.Text = path;
}
\u62d6\u5165\u7684\u662f\u6587\u4ef6\u5219\u54cd\u5e94
void textBox_DragEnter(object sender, DragEventArgs e)
{
if (e.Data.GetDataPresent(DataFormats.FileDrop))
e.Effect = DragDropEffects.Link;
else
e.Effect = DragDropEffects.None;
}
\u90a3\u4f60\u7528DragOver\u5e72\u561b\uff0cOver\u7ecf\u8fc7\u6587\u672c\u6846\u4e0a\u7a7a\u5c31\u4f1a\u89e6\u53d1\uff0c\u7528DragDrop\u554a\uff0c\u91ca\u653e\u65f6\u624d\u89e6\u53d1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.LoadTextBox1.AllowDrop = True
End Sub
Private Sub TextBoxDragEnter(sender As Object, e As DragEventArgs) Handles TextBox1.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
Dim files As String()
Try
files = CType(e.Data.GetData(DataFormats.FileDrop), String())
Me.TextBox1.Text = files(files.Length - 1)
Catch ex As Exception
MessageBox.Show(ex.Message)
Return
End Try
End If
End Sub
TextBox1.AllowDrop = True 是开启拖放支持，可以在窗体设计器里面开启它，也可以代码开启。
Private MouseIsDown As Boolean = False
Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As _
System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
' Set a flag to show that the mouse is down.
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
' Initiate dragging.
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
' Check the format of the data being dropped.
If (e.Data.GetDataPresent(DataFormats.Text)) Then
' Display the copy cursor.
e.Effect = DragDropEffects.Copy
Else
' Display the no-drop cursor.
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
' Paste the text.
TextBox2.Text = e.Data.GetData(DataFormats.Text)
End Sub
微软的Msdn上面有所有的答案。
绛旓細鍦ㄧ▼搴忕鐞嗚璁′腑锛屼竴绉嶅父瑙佺殑绛栫暐鏄氳繃鏂囨湰鏂囦欢鏉ョ鐞嗙▼搴忚矾寰勩傞鍏堬紝绋嬪簭杩愯鏃朵細浠庤繖浜涙枃鏈枃浠朵腑璇诲彇绋嬪簭鐨勮矾寰勶紝杩欎竴姝ラ瀵逛簬鑾峰彇绋嬪簭鍥炬爣鑷冲叧閲嶈銆傜▼搴忓浘鏍囦細琚彁鍙栧嚭鏉ワ紝骞跺瓨鍌ㄥ湪鐗瑰畾鐨勬暟鎹簱涓紝纭繚鏁版嵁鐨勬湁搴忓拰瀹夊叏鎬с傛帴涓嬫潵锛屽綋闇瑕佸惎鍔ㄧ▼搴忔椂锛岀郴缁熶細鐩存帴浠庢暟鎹簱涓绱箣鍓嶄繚瀛樼殑绋嬪簭鍚嶇О鍜...
绛旓細璁剧疆 FileName 灞炴э紝灏 .rtf 鎴 .txt 鏂囦欢鐨勫唴瀹硅鍏ヨ鎺т欢銆傜敤 SelPrint 鏂规硶鎵撳嵃 RichTextBox 鎺т欢涓殑鍏ㄩ儴鎴栭儴鍒鏂囨湰銆傚皢 RichTextBox 鎺т欢缁戝畾鍒 Data 鎺т欢锛屽彲浠ュ鐞 Microsoft Access 鏁版嵁搴撶殑 Memo 瀛楁锛屾垨鑰呭叾瀹冩暟鎹簱涓ぇ鍨嬬殑鏂囨湰瀛楁锛堟瘮濡 SQL 鏈嶅姟鍣ㄤ腑鐨 TEXT 鏁版嵁绫诲瀷锛夈傚湪杩愯鏃讹紝...
绛旓細VB绠鍗曞皬绋嬪簭,鍙婂叾绠鍗,楹荤儲鍦ㄧ嚎鐨勫府涓,涓昏褰㈡垚杩欐牱鍔熻兘鑳芥湁涓涓鍏ュ姛鑳,瀵煎叆涓涓猅XT鏂囦欢,閲岄潰鍐呭鍋囪濡備笅ffesfdfgsade3efdssd3w4gdgdssgag4eweggsdgasdgewfg34dsd8jf23fedgfgd324... VB绠鍗曞皬绋嬪簭,鍙婂叾绠鍗,楹荤儲鍦ㄧ嚎鐨勫府涓,涓昏褰㈡垚杩欐牱鍔熻兘鑳芥湁涓涓鍏ュ姛鑳 ,瀵煎叆涓涓猅XT鏂囦欢,閲岄潰鍐呭鍋囪濡備笅ffesfdfg...
绛旓細1銆佸鍒剁矘璐达細灏嗙紪杈戝ソ鐨勬枃鏈唴瀹瑰鍒跺埌鐨勬枃鏈紪杈戝櫒涓繘琛屼繚瀛橈紝鍙互灏嗗唴瀹逛繚瀛樺埌鏈湴璁惧鎴栦簯瀛樺偍銆2銆佸鍑哄姛鑳斤細妫鏌ュ钩鍙版垨搴旂敤绋嬪簭鏄惁鎻愪緵瀵煎嚭鍔熻兘锛屽鍑轰负鏂囨湰鏂囦欢甯歌鏂囦欢鏍煎紡锛屽彲浠ヤ娇鐢ㄥ鍑哄姛鑳藉皢缂栬緫濂界殑鏂囨湰淇濆瓨鍒版湰鍦般3銆佹彁渚涘弽棣堬細鍚戝钩鍙版垨搴旂敤绋嬪簭鐨勫紑鍙戣呮垨鎶鏈敮鎸佸洟闃熸彁渚涘弽棣堬紝璇存槑鏃犳硶淇濆瓨...
绛旓細瑕佸揩閫熷皢鏂囧瓧璇嗗埆鍒癢ord涓紝鍙互閲囩敤浠ヤ笅鍑犵鏂规硶锛氶鍏堬紝鏈绠鍗曠殑鏂规硶鏄洿鎺ュ鍒舵枃鏈唴瀹癸紝鐒跺悗绮樿创鍒癢ord涓傚叾娆★紝鍙互浣跨敤OCR(鍏夊瀛楃璇嗗埆)杞欢锛屽皢鎵弿杩囩殑鏂囨湰杞崲鎴愬彲缂栬緫鐨勬牸寮忥紝鐒跺悗鍐嶅鍒跺埌Word涓傚彟澶栵紝涔熷彲浠ラ氳繃鎷栨斁鏂囨湰鏂囦欢鍒Word涓紝鎴栬呬娇鐢ㄥ揩鎹烽敭Ctrl+C澶嶅埗鏂囨湰锛岀劧鍚庡湪Word涓娇鐢–trl+V...
绛旓細write 鍛戒护 瀵规湁鏍煎紡鐨勬枃浠,鍐欎竴鍙橀噺鍒版枃浠剁粍浠朵腑; 瀵鏂囨湰鏂囦欢,鍐欎竴涓垨澶氫釜鍊煎埌鏂囦欢涓 writeln 鍛戒护 鎵цwrite杩囩▼,鐒跺悗杈撳嚭涓琛岀粨鏉熸爣蹇 widecharlentostring 鍑芥暟 灏哸nsi瀛楃涓茶浆鎹负unicode瀛楃涓 widecharlentostrwar 鍑芥暟 灏唘nicode瀛楃涓茶浆鎹负ansi瀛楃涓插彉閲 widechartostring 鍑芥暟 灏唘nicode瀛楃涓茶浆鎹负ansi...
绛旓細Dim da As String = "SELECT Count(妫娴嬮」鐩) FROM b where 妫娴嬮」鐩='cc'"杩欏彞鍐欓敊鍟,浣犵洿鎺ヤ紶閫佺殑鏄娴嬮」鐩负瀛楃涓"cc"鐨勫弬鏁,骞朵笉鏄綘绋嬪簭鍐欑殑CC鍙傛暟 鏀逛负:Dim da As String = "SELECT Count(妫娴嬮」鐩) FROM b where 妫娴嬮」鐩='" & cc & "'"寤鸿閫氳繃绋嬪簭缁勭粐鐨剆ql璇彞鍙互閫氳繃...
绛旓細鎵╁睍缁勪欢閲岄潰鏈鎷栨斁鎺т欢 .鐗堟湰 2 .鏀寔搴 edroptarget .绋嬪簭闆 绐楀彛绋嬪簭闆1 .瀛愮▼搴 _鎷栨斁瀵硅薄1_寰楀埌鏂囦欢 .鍙傛暟 鎺ユ敹鍒扮殑鏂囦欢璺緞, 鏂囨湰鍨 缂栬緫妗1.鍐呭 锛 鍒版枃鏈 (璇诲叆鏂囦欢 (鎺ユ敹鍒扮殑鏂囦欢璺緞)).瀛愮▼搴 __鍚姩绐楀彛_鍒涘缓瀹屾瘯 鎷栨斁瀵硅薄1.娉ㄥ唽鎷栨斁鎺т欢 (缂栬緫妗1.鍙栫獥鍙ｅ彞鏌 ())...
绛旓細echo off for /f %%a in ('type %1') do set /a v+=1 echo 鎵ц鐨勬槸 %1 echo 璇鏂囦欢鏈 %v% 琛屽瓧绗︼紒pause 鐩存帴鎶婃枃浠舵嫋鍒拌鎵瑰鐞嗗浘鏍囦笂灏辫浜嗭紝缁撴灉灏变細鏄剧ず鍑烘潵鐨勶紝涓嶇敤鍏堣繍琛岃鎵瑰鐞嗭紝鍦ㄦ妸鏂囦欢鎷栧埌鍛戒护绐楀彛涓幓锛屽湪鎸 鍥炶溅閭ｄ箞楹荤儲銆
绛旓細6. 鐢变簬榛樿鐘舵佷笅,ASP.NET涓嶅厑璁告彁浜ゅ惈鏈塇TML鍙奐AVASCRIPT鐨勫唴瀹,鍥犳,浣犲繀椤诲皢浣跨敤FCKEDITOR鐨勯〉闈㈢殑 ValidateRequest璁句负false.(<%@page validteRequest="false" %>鍗冲彲)涓冦佽缃笂浼鏂囦欢璇█鎶奆CKeditor鏍圭洰褰曚笅闈㈢殑fckconfig.js鏂囦欢閲寁ar _FileBrowserLanguage = 'asp' ; // asp | aspx | cfm | lasso | ...
