ÓÃvbÔõô»ñÈ¡ÍøÒ³±êÌâ
http://tieba.baidu.com/f?kz=255370663
ËѼ¯µ½Ò»¸ö³ÌÐò
¼¸ºõ¶¼ÓÃËüÀ´Íê³É²É¼¯ÈÎÎñÁË£¡¹±Ï׳öÀ´°¡£¬ºÜ¼òµ¥µÎ
Function strCut(strContent, StrStart, StrEnd) As String 'ͨÓýØÈ¡º¯Êý
Dim strHtml, S1, S2 As String
dim strstart,strend as string
strHtml = strContent
On Error Resume Next
S1 = InStr(strHtml, StrStart) + Len(StrStart)
S2 = InStr(S1, strHtml, StrEnd)
strCut = Mid(strHtml, S1, S2 - S1)
End Function
Private Sub Form_Load()
Dim hunzi1, hunzi2 As String
hunzi1 = "<html><title>this is title</title></html>"
hunzi2 = strCut(hunzi1, "<title>", "</title>")
MsgBox hunzi2
End Sub
Ïà¹ØÎĵµ£º
ºÜ¶àʱºò,ÎÒÃDz»ÏëÒ»¿ªÊ¼¾ÍÏÔʾ¹ö¶¯Ìõ,µ±Îı¾µ½´ïÖ¸¶¨ÐÐÊýÎı¾¿òÎÞ·¨ÍêÈ«ÏÔʾµÄʱºòÔÙÏÔʾËü,ÓÉÓÚScrollbarÊôÐÔÊÇÖ»¶ÁµÄ,ÎÞ·¨ÔÚÔËÐÐʱµÄ´úÂëÖиıäÕâ¸öÊôÐÔ,Ö»ÄÜʹÓÃÏÂÃæµÄAPIʵÏÖÕâ¸ö¹¦ÄÜ:
Public Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long
......
ʹÓÃoracleÊý¾Ý¿âÓÐÁ½ÖÖ·½·¨£º
1¡¢ÔÚ¿Í»§¶Ë»úÆ÷Éϰ²×°oracleµÄ¿Í»§¶ËÈí¼þ¡£Î¨Ò»µÄÀýÍâ¾ÍÊÇjavaÁ¬½ÓÊý¾Ý¿âµÄʱºò£¬¿ÉÒÔÓÃjdbc thinģʽ£¬²»ÓÃ×°oracleµÄ¿Í»§¶ËÈí¼þ¡£
2¡¢Èç¹ûÄãÔÚ»úÆ÷É ......
ÉùÃ÷¹Ì¶¨´óСµÄÊý×é
ÓÐÈýÖÖ·½·¨ÉùÃ÷¹Ì¶¨´óСµÄÊý×飬ÓÃÄÄÒ»ÖÖ·½·¨È¡¾öÓÚÊý×éÓ¦ÓеÄÓÐЧ·¶Î§£º
½¨Á¢¹«ÓÃÊý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Public Óï¾äÉùÃ÷Êý×é¡£
½¨Á¢Ä£¿é¼¶Êý×飬ÔÚÄ£¿éµÄÉùÃ÷¶ÎÓà Private Óï¾äÉùÃ÷Êý×é¡£
½¨ ......
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï
ÀûÓÃAPI°ÑÒ»¸ö¿Ø¼þ°ó¶¨µ½ÁíÒ»¸ö¿Ø¼þÀï¡£²»¹ýÒª¿Ø¼þÓÐHWNDÊôÐÔ¡£ÀýÈ磺
New_OldParent& = SetParent(Me.Text_txt.hWnd, Me.picture_bj.hWnd)
°Ñtxt¿Ø¼þÌí¼Óµ½picture¿Ø¼þÀïʹÓá£
×¢£ºÊ¹Óà ......