小编Jer*_*emy的帖子

我正在尝试将属性设置为我的Android应用程序中的微调器和其中一个属性textAlignment = "right"(问题是我有一个微调器,layout_width="match_parent"所以有很多空间,我想把它放到右边)但是这个仅在API 17及更高版本中支持,而我想为API 16制作应用程序 - 是否有解决方法？

我的属性是:

        <Spinner
            android:layout_width="match_parent"
            android:layout_height="wrap_content"
            android:layout_gravity="right"
            android:textAlignment="gravity"
            android:id="@+id/MainSpinner"
            tools:listitem="@layout/support_simple_spinner_dropdown_item"/>

当前的linearLayout如下所示:

我希望它看起来像这样:

哪里:

LinearLayout(水平)=

RelativeLayout =

TextView =

LinearLayout(垂直)=

Spinner =

按钮=

当谈到Android应用程序时,我正处于新手联盟中,并且我希望在下面填充一个带有数组或字符串的Spinner(它是一个转换器应用程序),这是我的XML文件的摘录,我希望填充Spinner:

......
<string name="TemperatureString">Temperature</string>
<string name="WeightString">Weight</string>
<string name="VolumeString">Volume</string>
<string name="SpeedString">Speed</string>
<string name="LengthString">Length</string>
<string name="AreaString">Area</string>
<string name="EnergyString">Energy</string>
<string name="PresureString">Presure</string>
<string name="MemoryString">Memory</string>

<string-array name="Convert_Type">
    <item>@string/TemperatureString</item>
    <item>@string/WeightString</item>
    <item>@string/VolumeString</item>
    <item>@string/SpeedString</item>
    <item>@string/LengthString</item>
    <item>@string/AreaString</item>
    <item>@string/EnergyString</item>
    <item>@string/PresureString</item>
    <item>@string/MemoryString</item>
</string-array>

从这开始,我正在尝试填充我的微调器(@+id/MainSpinner) - 我不确定我在这里做什么,但是activity_main.xml我有以下内容:

    <Spinner
        android:layout_width="wrap_content"
        android:layout_height="match_parent"
        android:id="@+id/MainSpinner"
        tools:listitem="@layout/support_simple_spinner_dropdown_item"/>

我知道有一种方法可以通过Java实现这一点,但我更糟糕的是Java!出于这个原因,如果可能的话,我想将它保留在xml中.

此外,如果有人可以指望我指向可以带来我的Java和xml技能的链接,那将是很好的 - 我已经开始使用Udacity并且发现它们很好但是非IT毕业生需要接受很多(I在金融界工作,但发现这件事真的很有趣!)

提前致谢!

我正在尝试找到一个函数,比如Environ找到我的业务中的主驱动器已经映射到特定PC上的驱动器.

使用文件路径"G:\ Eworking\SET\Operations\file"我知道我的PC已被映射,以便该文件路径在G驱动器内,但其他可能被映射不同,所以我想确定它是什么.

我已经尝试过if else方法来完成字母表并做一个if Dir([filepath]) then之前(见下文),但我想知道是否有更好的方法来做到这一点？

Sub LoopThroughDrives()
sFilePath As String

sFilePath = ":\Eworking\SET\Operations\file"

If Dir("A" & sFilePath) > 0 Then
    msgbox ("It's in drive A")
    Else
        If Dir("B" & sFilePath) > 0 Then
            msgbox ("It's in drive B")
            Else
                If Dir("C" & sFilePath) > 0 Then
                    msgbox ("It's in drive C")
                    Else
                        '...........................
                        'All other letters of the alphabet, checking each possibility
                        '...........................
                End If
        End If
End If

End Sub

我一直在使用 Internet Explorer 提供的 COM 接口，但是由于某些站点现在已经转移并且不支持 IE，我一直在寻找用SeleniumBasic.

因为这对我来说是全新的，所以我处于非常基本的水平 - 我已经下载了 Selenium 类型库（我已经从 Github下载了Selenium 库参考，并且引用在模块中）。

我已经输入了一些非常基本的代码来测试它，但我收到以下错误：

错误编号：33 错误描述：

SessionNotCreatedError 会话未创建异常来自未知错误：Runtime.executionContextCreated 具有无效的“上下文”：{"auxData":{"frameId":"AE85B634088DDFB4B8E7D65A145ADA0F","isDefault":true},"id":1,"name":" ","origin":"://"} (会话信息: chrome=69.0.3497.100) (驱动程序信息: chromedriver=2.21.371459 (36d3d07f660ff2bc1bf28a75d1cdabed0983e7c4),platform.64=Windows NT8610

代码是;

Sub TestCode()
Dim driver as New Selenium.Chrome

driver.get "www.Google.com" 

End Sub

我也用 firefox 和 Edge 浏览器尝试过这个，但遇到了同样的问题 - 关于可能出什么问题的任何建议？

我已经习惯了刮刮这是一个令人烦恼的问题 - 我正在尝试使用GET方法刮掉VBA,但要获得由Revolut提供的EUR到BHD的汇率并使用以下代码:

Sub My_Scraper()
Dim oXHTTP As Object
Dim doc As New HTMLDocument
Dim html As String
Dim url As String

url = "https://www.revolut.com/converter/EURBHD"

Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "GET", url, False
oXHTTP.send
html = oXHTTP.responseText
Set oXHTTP = Nothing
doc.body.innerHTML = html
Debug.Print doc.getElementsByClassName("rvl-Rate-rateLabel")(0).innerHTML                 ' Returns "Current rate" as expected
Debug.Print doc.getElementsByClassName("rvl-Rate-rateLabel")(0).NextSibling.innerHTML     ' Reurns "0" (not the rate quoted

End Sub

有我已经印刷在上面的代码和当我看着一个电平向上在2个兄弟节点innerHTML的parentElement它为什么发生这种情况仍然是不明确(I具有正确的片的HTML但响应(在父级别 - 但不匹配开发人员工具控制台);

<DIV class=rvl-Rate-rateLabel data-reactid="1920">Current rate</DIV>
<DIV class=rvl-Rate-rateNumber data-reactid="1921">0</DIV>

这是开发人员工具控制台:

我一直在看下面代码的输出,我看不出它有什么问题 - 过去几周我一直在看它,但仍然看不出它有什么问题!

代码如下:

Sub Macro()
Dim i As Long
Dim sString As String

Do Until i = 27
    If i = 0 Then
        sString = sString & "H"
    ElseIf i = 26 Then
        sString = sString & "!"
    ElseIf i = 25 Then
        sString = sString & "y"
    ElseIf i = 24 Then
        sString = sString & "d"
    ElseIf i = 23 Then
        sString = sString & "o"
    ElseIf i = 22 Then
        sString = sString & "b"
    ElseIf …