廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 118360 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
aaaasszx
個人頭像
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x27
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][求助] vb撰寫錯誤
會vb的幫忙一下,最近在練習Inet物件
 寫一個練習程式但是明明網頁存在,卻不報
有點怪怪的,以下是程式碼

On Error Resume Next
Dim s, i, x As Integer
Dim head, rightx() As String
x = 1
If Left(Text1, 7) <> "http://" Then
Text1.Text = "http://" & Text1.Text
Text1.SetFocus
End If
MsgBox "載入檔案可能會很久喔!", , "警告 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



獻花 x0 回到頂端 [樓 主] From:台灣寬頻通訊顧問股份有限公司 | Posted:2012-06-13 21:06 |
zsx123665 手機 會員卡
個人文章 個人相簿 個人日記 個人地圖
初露鋒芒
級別: 初露鋒芒 該用戶目前不上站
推文 x16 鮮花 x95
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

If Left(Text1, 7) <> "http://&q...t; Then
Text1.Text = "http://&q...t; & Text1.Text
Text1.SetFocus
End If

我沒看到網址阿 = =
怎麼 你沒放吧?


獻花 x0 回到頂端 [1 樓] From:臺灣亞太線上服務股份有限公司 | Posted:2012-07-17 12:29 |
racky1224
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x0 鮮花 x5
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

If Left(Text1, 7) <> "http://你的網址!!!" Then
Text1.Text =     "http://你的網址!!!"         & Text1.Text
Text1.SetFocus
End If
MsgBox "載入檔案可能會很久喔!", , "警告"
If Right(Text1, 1) <> "/" Then
Text1.Text = Text1.Text & "/"
Text1.SetFocus
End If
Open App.Path & "\admin.dat" For Input As #1
Do While Not EOF(1)
Line Input #1, a
List1.AddItem a
Loop
Close
s = List1.ListCount


獻花 x0 回到頂端 [2 樓] From:臺灣中華電信股份有限公司 | Posted:2013-03-16 16:05 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.052729 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言