返回列表 上一主題 發帖

[發問] 網頁的下拉選單要如何控制?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-1-7 01:09 | 只看該作者

[發問] 網頁的下拉選單要如何控制?

一般網頁的textbox就用value做輸入,button就用click去點案
但下拉選單要如何控制呢?
我目前可以將下拉選單進行輸入,但如果是人點案的話下拉選單會從圖一變成圖二

可是我用下列程式碼進行輸入之後只會有圖一,不會變成圖二
'程式碼的value輸入dsheet_qty 之後,反而下拉選單會出現我要的(刊登數量),若直接輸入反而不行,我也不知道為什麼
  1. For Each e In ie.document.GetElementsByTagName("select")
  2.     If e.textContent Like "*一按解決*" Then
  3.         e.Value = "dsheet_qty"
  4.     End If
  5. Next
複製代碼
但重點是沒有出現圖二我可以直接輸入另外兩個下拉選單的值嗎?
以及另外兩個下拉選單我要如何輸入?
下圖有該下拉選單的網頁元素,我的是option 7 ,但我不知道要如何輸入讓他直接跳到7?


不好意思又麻煩各位大大了!
收藏 分享
PKKO

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2017-1-15 13:39 | 只看該作者
該下拉選單的屬性如下,請問要如何點擊他,讓他出現許多選單呢?
我直接給予值(dsheet_qty)網頁會變成刊登數量,但是另外兩個下拉選單都不會出現
只有原本的第一個下拉選單有出現而已...

tagname=SELECT       
ID=listbfield
name=listbfield
value=dsheet_qty
type=select-one
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2017-1-17 13:58 | 只看該作者
由於不知道如何按下該下拉選單,因此我用模擬鍵盤的方式完成了
不過我還是很好奇,到底要如何點出該下拉選單呢?
.click .select .dropclick 我都試過了,就是不會出現下拉選單
但我模擬鍵盤用down的案件就可以出現下拉選單= =?
  1. Application.SendKeys "{TAB}", True
  2. Application.SendKeys "{TAB}", True
  3. Application.SendKeys "{TAB}", True
  4. Application.Wait Now + TimeValue("00:00:01")

  6. Application.SendKeys "{DOWN}", True
  7. Application.SendKeys "{DOWN}", True
  8. Application.SendKeys "{DOWN}", True
  9. Application.SendKeys "{DOWN}", True
  10. Application.SendKeys "{DOWN}", True
  11. Application.SendKeys "{DOWN}", True
  12. Application.SendKeys "{DOWN}", True
  13. Application.Wait Now + TimeValue("00:00:01")

  15. Application.SendKeys "{TAB}", True
  16. Application.SendKeys "{TAB}", True
  17. Application.Wait Now + TimeValue("00:00:01")

  19. Application.SendKeys "+", True
  20. Application.SendKeys 1

  22. ie.document.GetElementByID("jqizoo_state0_button更新及同步").Click
複製代碼
PKKO

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2017-1-18 09:16 | 只看該作者
回復 1# PKKO
http://forum.twbts.com/viewthread.php?tid=13209
表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題